FoxPro/Visual FoxPro - AYUDA EN CODIGO PARA ENCRIPTAR UNA CLAVE

Tengo un formulario donde tomo los datos de Usuario y uso éstas líneas en el evento VALID de la textbox "txtpasword".

*Toma los valores para el Password del usuario.
pw=SUBS(THISFORM.txtpasword.VALUE,1,10)
pword=clav01(pw,10)
THISFORM.txtpasword.VALUE=pword

Y funcionan MUY BIEN porque al emitir BROWSE a la tabla base el password no aparece legible sino como en forma de carateres asci.

El problema es en el otro formulario de inicio de sesión donde después de identificar al usuario y pedir el password tengo un botón de "Ingresar"
con éstas líneas :

SET MULTILOCK ON
CURSORSETPROP("BUFFERING",5,alias())
SELECT viusuar
THISFORM.enedicion=.t.
*SET ORDER TO pasword
pw=THISFORM.txtpasword.VALUE
pword=clav01(pw,10)
IF LTRIM(RTRIM(pword))==LTRIM(RTRIM(usuarios.pasword))
=MESSAGEBOX('Adelante Tiene acceso al Sistema !!',0+64,'Felicitaciones')
ELSE
intentos=0+1
MESSAGEBOX('Password Incorrecto, Verifique su Password !!',0+64,'ADVERTENCIA')
IF intentos=3
WAIT WINDOWS 'Excedido el número de intentos de ingreso al Sistema !!' NOWAIT
THISFORM.RELEASE()
RETURN.T.
ENDIF
ENDIF

Pero VFP lanza el siguiente mensaje :
" El Valor, tipo o número de argumentos no es válido para la Función ".

ESTE ES EL CODIGO DEL PROGRAMA CLAV01 DE PASSWORD

PROCEDURE clav01
*Incripta Pasword de Usuarios
****************
PARAMETERS word_01,cl_01
ii=1
ult=0
do while ii<len(word_01)+1
ult=ult+asc(right(left%2