Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   E-Mail (https://forum.antichat.xyz/forumdisplay.php?f=14)
-   -   [perl] ycandex checker на регистрацию (https://forum.antichat.xyz/showthread.php?t=99208)

flabber 03.01.2009 05:15

[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/

m0Hze 03.01.2009 05:40

Дада,вот и он.С асечки :)
Вот тоже самое на пыхе.
http://forum.antichat.ru/thread99199.html

Spyder 03.01.2009 05:42

close() - плохой тон =)

chomp($_);
можно просто chomp;

а вообще я не понял зачем этот скрипт нужен

m0Hze 03.01.2009 05:55

Удобно,например чтото вроде 2 значных мыл чекать...малоли.

flabber 11.01.2009 04:53

Spyder Да да знаю что плохой...И не пытался красиво :)


Время: 13:10