174
@verb #340:"_encode_password" this none this rxdo #7214
@program #340:"_encode_password" this none this
$perm_utils:controls(caller_perms(), this) || raise(E_PERM)
{pass} = args
p = "A"
for x in (decode_binary(pass, 1))
  p = encode_binary(p, this.password_encoding_vector[x])
endfor
return p
"Last modified by manta (#7165) on Sun May  7 13:54:07 2000 MDT."
.

0