FoxPro/Visual FoxPro - Quiero ayuda

Quiero que me ayuden realizar una clave encriptada en un sistema de visual fox pro

cad1='abcdefghi....z' && cadena de caracteres
cad2'!"#$%&/()......>' && cadena que reemplaza a los caracteres

* cad1 y cad2 deben tener la misma cantidad de caracteres

clave_encrip = transform(cad_a_transformar,cad1,cad2)

suerte

Yo lo que hago es utilizar BITXOR.....

Creo un metodo dentro de un formulario al cual llamo: XCRYPT
y ahí coloco:

parameters tcText
local lnValue, lnKey
lnKey = 9
for j = 1 to len(tcText)
lnValue = bitxor(asc(substr(tcText,j,1)),lnKey)
next

creo una tabla donde guardare las claves; y leo en un textbox la clave; en el keypress de este textbox ejecuto lo siguiente:

If ! empty(This.value)
If upper(Thisform.XCrypt(upper(alltrim(password)))) == upper(alltrim(This.value))
Release Thisform
* Next Form
Endif
Endif

Adaptalo atus necesidades .....espero que te sirva.