Форум АНТИЧАТ - [perl] ycandex checker на регистрацию

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

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

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

[perl] ycandex checker на регистрацию

03.01.2009, 05:15

flabber

Новичок

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

Сообщений: 18

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

Репутация: 9

[perl] ycandex checker на регистрацию

Код:

 
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.8;" . $ua->agent);
open(A,"source.txt");
open(B,">>er_log.txt");
while(<A>)
{
chomp($_);
$res = $ua->get( "http://passport.yandex.ru/passport?mode=constructlogin&login=$_&iname=123&fname=123");
$res = $res->as_string;
if($res =~ /"input_login_status":"free"/s)
{
print "[+]\t$_\n";
open(C,">>good.txt");
print C "$_\n";
close(C);
}
elsif($res =~ /"input_login_status":"occupied"/s)
{
print "[-]\t$_\n";
}
elsif($res =~ /"input_login_status":"badlogin_length"/s)
{
print "[--]\t$_\n";
print B $res;
}
elsif($res =~ /"input_login_status":"badlogin"/s)
{
print "[--]\t$_\n";
print B $res;
}
else
{
print "[--]\t$_\n";
print B $res;
}}
close(B);

В екзе кому надо (perl2exe)
http://multi-up.com/44273/

Последний раз редактировалось flabber; 03.01.2009 в 05:29..