FoxPro/Visual FoxPro - Ayudita

Me puedan pasar el codigo fuente para encriptar password, o alguna otra forma de hacerlo
Gracias

Este codigo te servira para encriptar los pasword

If Empty(This.Value)
messagebox('Este campo es requerido',64,'Advertencia')
Else
T=0
L= len(allt(clavew))
for i =1 to L
T = T + asc (substr(clavew,i,1))
endfor
select usuarios
go top
locate for clave = T
if found ()
messagebox('la clave ya existe',16,'Advertencia')
clavew=''
thisform.refresh
else
thisform.text3.visible=.t.
thisform.label3.visible=.t.
endif
endif