FoxPro/Visual FoxPro - Encriptacion y desencriptacion en Visual Fox Pro

Hola! a todos. Quisiera que pofavor me ayudaran a saber como encriptar datos en visual Fox Pro y claro desencriptarlos, es para usarla en contraseñas.

Para eso, con cualquier algoritmo de encriptación lo puedes hacer.
por ejemplo:

Xpass=texto.value && xpass es el password
xpass=alltrim(xpass)
Xpassfinal=""
for i=1 to len(xpass) do
cad=substr(xpass,i,1) && tomas una sola letra por vez
cad=chr(cad) && cambias la letra por su valor ascii (número)
cad=cad+87 && le sumas un número cualquiera, para encriptar
cad=str(cad) && vuelves a convertir a letra ( te puede dar ~æ¢, etc)
xpassfinal=xpassfinal+cad && esta variable es la encriptada
next i
revisa la sintaxis, pero es algo así.
este ejemplo es muy sencillo y crea una encriptación básica y fácil de descubrir, pero es una base.

Como uplift... te ha dicho, programar un algoritmo básico de encriptación es muy sencillo. En lugar de sumar siempre el mismo número (en su caso: 87) puedes usar varios números. Y además puedes efectuar operaciones más complicadas: multiplicar, hallar logaritmos, raíces, etc. Para desencriptar debes hacer el proceso inverso.

Entre paréntesis, su ejemplo tiene algunos errores: donde dice CHR(cad) debes colocar ASC(cad) y donde dice STR(cad) debes colocar CHR(cad).

Bye.

Hola!
Te agradezco mucho que me hayas contestado con lo que expuse en el foro.
Estoy segura que me funcionara.
Cuidate y gracias.