Source for file ldap.php

Documentation is available at ldap.php

  1. <?php
  2.  
  3. /**
  4.  * Change password LDAP backend
  5.  *
  6.  * @copyright &copy; 2005-2006 The SquirrelMail Project Team
  7.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  8.  * @version $Id: ldap.php,v 1.15 2006/07/15 12:01:09 tokul Exp $
  9.  * @package plugins
  10.  * @subpackage change_password
  11.  */
  12.  
  13. /**
  14.  * do not allow to call this file directly
  15.  */
  16. if ((isset($_SERVER['SCRIPT_FILENAME']) && $_SERVER['SCRIPT_FILENAME'] == __FILE__) ||
  17.      (isset($HTTP_SERVER_SERVER['SCRIPT_FILENAME']) && $HTTP_SERVER_SERVER['SCRIPT_FILENAME'] == __FILE__) ) {
  18.     header("Location: ../../../src/login.php");
  19.     die();
  20. }
  21.  
  22. /** load required functions */
  23.  
  24. /** sqimap_get_user_server() function */
  25. include_once(SM_PATH . '../functions/imap_general.php');
  26.  
  27. /** get imap server and username globals */
  28. global $imapServerAddress, $username;
  29.  
  30. /** Default plugin configuration.*/
  31. /**
  32.  * Address of LDAP server.
  33.  * You can use any URL format that is supported by your LDAP extension.
  34.  * Examples:
  35.  * <ul>
  36.  *   <li>'ldap.example.com' - connect to server on ldap.example.com address
  37.  *   <li>'ldaps://ldap.example.com' - connect to server on ldap.example.com address
  38.  *   and use SSL encrypted connection to default LDAPs port.
  39.  * </ul>
  40.  * defaults to imap server address.
  41.  * @link http://www.php.net/ldap-connect
  42.  * @global string $cpw_ldap_server 
  43.  */
  44. global $cpw_ldap_server;
  45. $cpw_ldap_server=$imapServerAddress;
  46.  
  47. /**
  48.  * Port of LDAP server.
  49.  * Used only when $cpw_ldap_server specifies IP address or DNS name.
  50.  * @global integer $cpw_ldap_port 
  51.  */
  52. global $cpw_ldap_port;
  53. $cpw_ldap_port=389;
  54.  
  55. /**
  56.  * LDAP basedn that is used for binding to LDAP server.
  57.  * this option must be set to correct value.
  58.  * @global string $cpw_ldap_basedn; 
  59.  */
  60. global $cpw_ldap_basedn;
  61. $cpw_ldap_basedn='';
  62.  
  63. /**
  64.  * LDAP connection options
  65.  * @link http://www.php.net/ldap-set-option
  66.  * @global array $cpw_ldap_connect_opts 
  67.  */
  68. global $cpw_ldap_connect_opts;
  69. $cpw_ldap_connect_opts=array();
  70.  
  71. /**
  72.  * Controls use of starttls on LDAP connection.
  73.  * Requires PHP 4.2+, PHP LDAP extension with SSL support and
  74.  * PROTOCOL_VERSION => 3 setting in $cpw_ldap_connect_opts
  75.  * @global boolean $cpw_ldap_use_tls 
  76.  */
  77. global $cpw_ldap_use_tls;
  78. $cpw_ldap_use_tls=false;
  79.  
  80. /**
  81.  * BindDN that should be able to search LDAP directory and find DN used by user.
  82.  * Uses anonymous bind if set to empty string. You should not use DN with write
  83.  * access to LDAP directory here. Write access is not required.
  84.  * @global string $cpw_ldap_binddn 
  85.  */
  86. global $cpw_ldap_binddn;
  87. $cpw_ldap_binddn='';
  88.  
  89. /**
  90.  * password used for $cpw_ldap_binddn
  91.  * @global string $cpw_ldap_bindpw 
  92.  */
  93. global $cpw_ldap_bindpw;
  94. $cpw_ldap_bindpw='';
  95.  
  96. /**
  97.  * BindDN that should be able to change password.
  98.  * WARNING: sometimes user has enough privileges to change own password.
  99.  * If you leave default value, plugin will try to connect with DN that
  100.  * is detected in $cpw_ldap_username_attr=$username search and current
  101.  * user password will be used for authentication.
  102.  * @global string $cpw_ldap_admindn 
  103.  */
  104. global $cpw_ldap_admindn;
  105. $cpw_ldap_admindn='';
  106.  
  107. /**
  108.  * password used for $cpw_ldap_admindn
  109.  * @global string $cpw_ldap_adminpw 
  110.  */
  111. global $cpw_ldap_adminpw;
  112. $cpw_ldap_adminpw='';
  113.  
  114. /**
  115.  * LDAP attribute that stores username.
  116.  * username entry should be unique for $cpw_ldap_basedn
  117.  * @global string $cpw_ldap_userid_attr 
  118.  */
  119. global $cpw_ldap_userid_attr;
  120. $cpw_ldap_userid_attr='uid';
  121.  
  122. /**
  123.  * crypto that is used to encode new password
  124.  * If set to empty string, system tries to keep same encoding/hashing algorithm
  125.  * @global string $cpw_ldap_default_crypto 
  126.  */
  127. global $cpw_ldap_default_crypto;
  128. $cpw_ldap_default_crypto='';
  129.  
  130. /** end of default config */
  131.  
  132. /** configuration overrides from config file */
  133. if (isset($cpw_ldap['server'])) $cpw_ldap_server=$cpw_ldap['server'];
  134. if (isset($cpw_ldap['port'])) $cpw_ldap_port=$cpw_ldap['port'];
  135. if (isset($cpw_ldap['basedn'])) $cpw_ldap_basedn=$cpw_ldap['basedn'];
  136. if (isset($cpw_ldap['connect_opts'])) $cpw_ldap_connect_opts=$cpw_ldap['connect_opts'];
  137. if (isset($cpw_ldap['use_tls'])) $cpw_ldap_use_tls=$cpw_ldap['use_tls'];
  138. if (isset($cpw_ldap['binddn'])) $cpw_ldap_binddn=$cpw_ldap['binddn'];
  139. if (isset($cpw_ldap['bindpw'])) $cpw_ldap_bindpw=$cpw_ldap['bindpw'];
  140. if (isset($cpw_ldap['admindn'])) $cpw_ldap_admindn=$cpw_ldap['admindn'];
  141. if (isset($cpw_ldap['adminpw'])) $cpw_ldap_adminpw=$cpw_ldap['adminpw'];
  142. if (isset($cpw_ldap['userid_attr'])) $cpw_ldap_userid_attr=$cpw_ldap['userid_attr'];
  143. if (isset($cpw_ldap['default_crypto'])) $cpw_ldap_default_crypto=$cpw_ldap['default_crypto'];
  144.  
  145. /** make sure that setting does not contain mapping */
  146. $cpw_ldap_server=sqimap_get_user_server($cpw_ldap_server,$username);
  147.  
  148. /**
  149.  * Adding plugin hooks
  150.  */
  151. global $squirrelmail_plugin_hooks;
  152. $squirrelmail_plugin_hooks['change_password_dochange']['ldap'] =
  153.         'cpw_ldap_dochange';
  154. $squirrelmail_plugin_hooks['change_password_init']['ldap'] =
  155.         'cpw_ldap_init';
  156.  
  157. /**
  158.  * Makes sure that required functions and configuration options are set.
  159.  */
  160. function cpw_ldap_init() {
  161.     global $oTemplate, $cpw_ldap_basedn;
  162.  
  163.     // set initial value for error tracker
  164.     $cpw_ldap_initerr=false;
  165.  
  166.     // check for ldap support in php
  167.     if (! function_exists('ldap_connect')) {
  168.         error_box(_("Current configuration requires LDAP support in PHP."));
  169.         $cpw_ldap_initerr=true;
  170.     }
  171.  
  172.     // chech required configuration settings.
  173.     if ($cpw_ldap_basedn=='') {
  174.         error_box(_("Plugin is not configured correctly."));
  175.         $cpw_ldap_initerr=true;
  176.     }
  177.  
  178.     // if error var is positive, close html and stop execution
  179.     if ($cpw_ldap_initerr) {
  180.         $oTemplate->display('footer.tpl');
  181.         exit;
  182.     }
  183. }
  184.  
  185.  
  186. /**
  187.  * Changes password. Main function attached to hook
  188.  * @param array $data The username/curpw/newpw data.
  189.  * @return array Array of error messages.
  190.  */
  191. function cpw_ldap_dochange($data) {
  192.     global $cpw_ldap_server, $cpw_ldap_port, $cpw_ldap_basedn,
  193.         $cpw_ldap_connect_opts,$cpw_ldap_use_tls,
  194.         $cpw_ldap_binddn, $cpw_ldap_bindpw,
  195.         $cpw_ldap_admindn, $cpw_ldap_adminpw;
  196.  
  197.     // unfortunately, we can only pass one parameter to a hook function,
  198.     // so we have to pass it as an array.
  199.     $username = $data['username'];
  200.     $curpw = $data['curpw'];
  201.     $newpw = $data['newpw'];
  202.  
  203.     // globalize current password.
  204.  
  205.     $msgs = array();
  206.  
  207.     /**
  208.      * connect to LDAP server
  209.      * hide ldap_connect() function call errors, because they are processed in script.
  210.      * any script execution error is treated as critical, error messages are dumped
  211.      * to $msgs and LDAP connection is closed with ldap_unbind(). all ldap_unbind()
  212.      * errors are suppressed. Any other error suppression should be explained.
  213.      */
  214.     $cpw_ldap_con=@ldap_connect($cpw_ldap_server);
  215.  
  216.     if ($cpw_ldap_con) {
  217.         $cpw_ldap_con_err=false;
  218.  
  219.         // set connection options
  220.         if (is_array($cpw_ldap_connect_opts) && $cpw_ldap_connect_opts!=array()) {
  221.             // ldap_set_option() is available only with openldap 2.x and netscape directory sdk.
  222.             if (function_exists('ldap_set_option')) {
  223.                 foreach ($cpw_ldap_connect_opts as $opt => $value) {
  224.                     // Make sure that constant is defined defore using it.
  225.                     if (defined('LDAP_OPT_' . $opt)) {
  226.                         // ldap_set_option() should not produce E_NOTICE or E_ALL errors and does not modify ldap_error().
  227.                         // leave it without @ in order to see any weird errors
  228.                         if (! ldap_set_option($cpw_ldap_con,constant('LDAP_OPT_' . $opt),$value)) {
  229.                             // set error message
  230.                             array_push($msgs,sprintf(_("Setting of LDAP connection option %s to value %s failed."),$opt,$value));
  231.                             $cpw_ldap_con_err=true;
  232.                         }
  233.                     } else {
  234.                         array_push($msgs,sprintf(_("Incorrect LDAP connection option: %s"),$opt));
  235.                         $cpw_ldap_con_err=true;
  236.                     }
  237.                 }
  238.             } else {
  239.                 array_push($msgs,_("Current PHP LDAP extension does not allow use of ldap_set_option() function."));
  240.                 $cpw_ldap_con_err=true;
  241.             }
  242.         }
  243.  
  244.         // check for connection errors and stop execution if something is wrong
  245.         if ($cpw_ldap_con_err) {
  246.             @ldap_unbind($cpw_ldap_con);
  247.             return $msgs;
  248.         }
  249.  
  250.         // enable ldap starttls
  251.         if ($cpw_ldap_use_tls &&
  252.             check_php_version(4,2,0) &&
  253.             isset($cpw_ldap_connect_opts['PROTOCOL_VERSION']) &&
  254.             $cpw_ldap_connect_opts['PROTOCOL_VERSION']>=3 &&
  255.             function_exists('ldap_start_tls')) {
  256.             // suppress ldap_start_tls errors and process error messages
  257.             if (! @ldap_start_tls($cpw_ldap_con)) {
  258.                 array_push($msgs,
  259.                            _("Unable to use TLS."),
  260.                            sprintf(_("Error: %s"),ldap_error($cpw_ldap_con)));
  261.                 $cpw_ldap_con_err=true;
  262.             }
  263.         } elseif ($cpw_ldap_use_tls) {
  264.             array_push($msgs,_("Unable to use LDAP TLS in current setup."));
  265.             $cpw_ldap_con_err=true;
  266.         }
  267.  
  268.         // check for connection errors and stop execution if something is wrong
  269.         if ($cpw_ldap_con_err) {
  270.             @ldap_unbind($cpw_ldap_con);
  271.             return $msgs;
  272.         }
  273.  
  274.         /**
  275.          * Bind to LDAP (use anonymous bind or unprivileged DN) in order to get user's DN
  276.          * hide ldap_bind() function call errors, because errors are processed in script
  277.          */
  278.         if ($cpw_ldap_binddn!='') {
  279.             // authenticated bind
  280.             $cpw_ldap_binding=@ldap_bind($cpw_ldap_con,$cpw_ldap_binddn,$cpw_ldap_bindpw);
  281.         } else {
  282.             // anonymous bind
  283.             $cpw_ldap_binding=@ldap_bind($cpw_ldap_con);
  284.         }
  285.  
  286.         // check ldap_bind errors
  287.         if (! $cpw_ldap_binding) {
  288.             array_push($msgs,
  289.                        _("Unable to bind to LDAP server."),
  290.                        sprintf(_("Server replied: %s"),ldap_error($cpw_ldap_con)));
  291.             @ldap_unbind($cpw_ldap_con);
  292.             return $msgs;
  293.         }
  294.  
  295.         // find userdn
  296.         $cpw_ldap_search_err=cpw_ldap_uid_search($cpw_ldap_con,$cpw_ldap_basedn,$msgs,$cpw_ldap_res,$cpw_ldap_userdn);
  297.  
  298.         // check for search errors and stop execution if something is wrong
  299.         if (! $cpw_ldap_search_err) {
  300.             @ldap_unbind($cpw_ldap_con);
  301.             return $msgs;
  302.         }
  303.  
  304.         /**
  305.          * unset $cpw_ldap_res2 variable, if such var exists.
  306.          * $cpw_ldap_res2 object can be set in two places and second place checks,
  307.          * if object was created in first place. if variable name matches (somebody
  308.          * uses $cpw_ldap_res2 in code or globals), incorrect validation might
  309.          * cause script errors.
  310.          */
  311.         if (isset($cpw_ldap_res2)) unset($cpw_ldap_res2);
  312.  
  313.         // rebind as userdn or admindn
  314.         if ($cpw_ldap_admindn!='') {
  315.             // admindn bind
  316.             $cpw_ldap_binding=@ldap_bind($cpw_ldap_con,$cpw_ldap_admindn,$cpw_ldap_adminpw);
  317.  
  318.             if ($cpw_ldap_binding) {
  319.                 // repeat search in order to get password info. Password info should be unavailable in unprivileged bind.
  320.                 $cpw_ldap_search_err=cpw_ldap_uid_search($cpw_ldap_con,$cpw_ldap_basedn,$msgs,$cpw_ldap_res2,$cpw_ldap_userdn);
  321.  
  322.                 // check for connection errors and stop execution if something is wrong
  323.                 if (! $cpw_ldap_search_err) {
  324.                     @ldap_unbind($cpw_ldap_con);
  325.                     // errors are added to msgs by cpw_ldap_uid_search()
  326.                     return $msgs;
  327.                 }
  328.  
  329.                 // we should check user password here.
  330.                 // suppress errors and check value returned by function call
  331.                 $cpw_ldap_cur_pass_array=@ldap_get_values($cpw_ldap_con,
  332.                                                          ldap_first_entry($cpw_ldap_con,$cpw_ldap_res2),'userpassword');
  333.  
  334.                 // check if ldap_get_values() have found userpassword field
  335.                 if (! $cpw_ldap_cur_pass_array) {
  336.                     array_push($msgs,_("Unable to find user's password attribute."));
  337.                     return $msgs;
  338.                 }
  339.  
  340.                 // compare passwords
  341.                 if (! cpw_ldap_compare_pass($cpw_ldap_cur_pass_array[0],$curpw,$msgs)) {
  342.                     @ldap_unbind($cpw_ldap_con);
  343.                     // errors are added to $msgs by cpw_ldap_compare_pass()
  344.                     return $msgs;
  345.                 }
  346.             }
  347.         } else {
  348.             $cpw_ldap_binding=@ldap_bind($cpw_ldap_con,$cpw_ldap_userdn,$curpw);
  349.         }
  350.  
  351.         if (! $cpw_ldap_binding) {
  352.             array_push($msgs,
  353.                        _("Unable to rebind to LDAP server."),
  354.                        sprintf(_("Server replied: %s"),ldap_error($cpw_ldap_con)));
  355.             @ldap_unbind($cpw_ldap_con);
  356.             return $msgs;
  357.         }
  358.  
  359.         // repeat search in order to get password info
  360.         if (! isset($cpw_ldap_res2))
  361.             $cpw_ldap_search_err=cpw_ldap_uid_search($cpw_ldap_con,$cpw_ldap_basedn,$msgs,$cpw_ldap_res2,$cpw_ldap_userdn);
  362.  
  363.         // check for connection errors and stop execution if something is wrong
  364.         if (! $cpw_ldap_search_err) {
  365.             @ldap_unbind($cpw_ldap_con);
  366.             return $msgs;
  367.         }
  368.  
  369.         // getpassword. suppress errors and check value returned by function call
  370.         $cpw_ldap_cur_pass_array=@ldap_get_values($cpw_ldap_con,ldap_first_entry($cpw_ldap_con,$cpw_ldap_res2),'userpassword');
  371.  
  372.         // check if ldap_get_values() have found userpassword field.
  373.         // Error differs from previous one, because user managed to authenticate.
  374.         if (! $cpw_ldap_cur_pass_array) {
  375.             array_push($msgs,_("LDAP server uses different attribute to store user's password."));
  376.             return $msgs;
  377.         }
  378.  
  379.         // encrypt new password (old password is needed for plaintext encryption detection)
  380.         $cpw_ldap_new_pass=cpw_ldap_encrypt_pass($newpw,$cpw_ldap_cur_pass_array[0],$msgs,$curpw);
  381.  
  382.         if (! $cpw_ldap_new_pass) {
  383.             @ldap_unbind($cpw_ldap_con);
  384.             return $msgs;
  385.         }
  386.  
  387.         // set new password. suppress ldap_modify errors. script checks and displays ldap_modify errors.
  388.         $ldap_pass_change=@ldap_modify($cpw_ldap_con,$cpw_ldap_userdn,array('userpassword'=>$cpw_ldap_new_pass));
  389.  
  390.         // check if ldap_modify was successful
  391.         if(! $ldap_pass_change) {
  392.             array_push($msgs,ldap_error($cpw_ldap_con));
  393.         }
  394.  
  395.         // close connection
  396.         @ldap_unbind($cpw_ldap_con);
  397.     } else {
  398.         array_push($msgs,_("Unable to connect to LDAP server."));
  399.     }
  400.     return $msgs;
  401. }
  402.  
  403. /** backend support functions **/
  404.  
  405. /**
  406.  * Sanitizes LDAP query strings.
  407.  * original code - ldapquery plugin.
  408.  * See rfc2254
  409.  * @link http://www.faqs.org/rfcs/rfc2254.html
  410.  * @param string $string 
  411.  * @return string sanitized string
  412.  */
  413. function cpw_ldap_specialchars($string) {
  414.     $sanitized=array('\\' => '\5c',
  415.                      '*' => '\2a',
  416.                      '(' => '\28',
  417.                      ')' => '\29',
  418.                      "\x00" => '\00');
  419.  
  420.     return str_replace(array_keys($sanitized),array_values($sanitized),$string);
  421. }
  422.  
  423. /**
  424.  * returns crypto algorithm used in password.
  425.  * @param string $pass encrypted/hashed password
  426.  * @return string lowercased crypto algorithm name
  427.  */
  428. function cpw_ldap_get_crypto($pass,$curpass='') {
  429.     $ret = false;
  430.  
  431.     if (preg_match("/^\{(.+)\}+/",$pass,$crypto)) {
  432.         $ret=strtolower($crypto[1]);
  433.     }
  434.  
  435.     if ($ret=='crypt') {
  436.         // {CRYPT} can be standard des crypt, extended des crypt, md5 crypt or blowfish
  437.         // depends on first salt symbols (ext_des = '_', md5 = '$1$', blowfish = '$2')
  438.         // and length of salt (des = 2 chars, ext_des = 9, md5 = 12, blowfish = 16).
  439.         if (preg_match("/^\{crypt\}\\\$1\\\$+/i",$pass)) {
  440.             $ret='md5crypt';
  441.         } elseif (preg_match("/^\{crypt\}\\\$2+/i",$pass)) {
  442.             $ret='blowfish';
  443.         } elseif (preg_match("/^\{crypt\}_+/i",$pass)) {
  444.             $ret='extcrypt';
  445.         }
  446.     }
  447.  
  448.     // maybe password is plaintext
  449.     if (! $ret && $curpass!='' && $pass==$curpass) $ret='plaintext';
  450.  
  451.     return $ret;
  452. }
  453.  
  454. /**
  455.  * Search LDAP for user id.
  456.  * @param object $ldap_con ldap connection
  457.  * @param string $ldap_basedn ldap basedn
  458.  * @param array $msgs error messages
  459.  * @param object $results ldap search results
  460.  * @param string $userdn DN of found entry
  461.  * @param boolean $onlyone require unique search results
  462.  * @return boolean false if connection failed.
  463.  */
  464. function cpw_ldap_uid_search($ldap_con,$ldap_basedn,&$msgs,&$results,&$userdn,$onlyone=true) {
  465.     global $cpw_ldap_userid_attr,$username;
  466.  
  467.     $ret=true;
  468.  
  469.     $results=ldap_search($ldap_con,$ldap_basedn,cpw_ldap_specialchars($cpw_ldap_userid_attr . '=' . $username));
  470.  
  471.     if (! $results) {
  472.         array_push($msgs,
  473.                    _("Unable to find user's DN."),
  474.                    _("Search error."),
  475.                    sprintf(_("Error: %s"),ldap_error($ldap_con)));
  476.         $ret=false;
  477.     } elseif ($onlyone && ldap_count_entries($ldap_con,$results)>1) {
  478.         array_push($msgs,_("Multiple userid matches found."));
  479.         $ret=false;
  480.     } elseif (! $userdn = ldap_get_dn($ldap_con,ldap_first_entry($ldap_con,$results))) {
  481.         // ldap_get_dn() returned error
  482.         array_push($msgs,
  483.                    _("Unable to find user's DN."),
  484.                    _("ldap_get_dn error."));
  485.         $ret=false;
  486.     }
  487.     return $ret;
  488. }
  489.  
  490. /**
  491.  * Encrypts LDAP password
  492.  *
  493.  * if $cpw_ldap_default_crypto is set to empty string or $same_crypto is set,
  494.  * uses same crypto as in old password.
  495.  * See phpldapadmin password_hash() function
  496.  * @link http://phpldapadmin.sf.net
  497.  * @param string $pass string that has to be encrypted/hashed
  498.  * @param string $cur_pass_hash old password hash
  499.  * @param array $msgs error message
  500.  * @param string $curpass current password. Used for plaintext password detection.
  501.  * @return string encrypted/hashed password or false
  502.  */
  503. function cpw_ldap_encrypt_pass($pass,$cur_pass_hash,&$msgs,$curpass='') {
  504.     global $cpw_ldap_default_crypto;
  505.  
  506.     // which crypto should be used to encode/hash password
  507.     if ($cpw_ldap_default_crypto=='') {
  508.         $ldap_crypto=cpw_ldap_get_crypto($cur_pass_hash,$curpass);
  509.     } else {
  510.         $ldap_crypto=$cpw_ldap_default_crypto;
  511.     }
  512.     return cpw_ldap_password_hash($pass,$ldap_crypto,$msgs);
  513. }
  514.  
  515. /**
  516.  * create hashed password
  517.  * @param string $pass plain text password
  518.  * @param string $crypto used crypto algorithm
  519.  * @param array $msgs array used for error messages
  520.  * @param string $forced_salt salt that should be used during hashing.
  521.  *  Is used only when is not set to empty string. Salt should be formated
  522.  *  according to $crypto requirements.
  523.  * @return hashed password or false.
  524.  */
  525. function cpw_ldap_password_hash($pass,$crypto,&$msgs,$forced_salt='') {
  526.     // set default return code
  527.     $ret=false;
  528.  
  529.     // lowercase crypto just in case
  530.     $crypto=strtolower($crypto);
  531.  
  532.     // extra symbols used for random string in crypt salt
  533.     // squirrelmail GenerateRandomString() adds alphanumerics with third argument = 7.
  534.     $extra_salt_chars='./';
  535.  
  536.     // encrypt/hash password
  537.     switch ($crypto) {
  538.     case 'md4':
  539.         // minimal requirement = php with mhash extension
  540.         if ( function_exists( 'mhash' ) && defined('MHASH_MD4')) {
  541.             $ret = '{MD4}' . base64_encode( mhash( MHASH_MD4, $pass) );
  542.         } else {
  543.             array_push($msgs,
  544. &n