FoxPro/Visual FoxPro - fragmento de programa que encripte y desencripte una frase

Hola Muy buenas. el motivo de esta visita es que necesito ayuda con un programa que encripte y desencripte una frase e intentado por mi solo pero nada. ya busque por todos lados y nada

necesito lo mas sencillo que se pueda yo intente esto :

frase=SPACE(10)
@5,4 get frase
READ
clear
FOR k= 1 TO LEN(frase)
m=SUBSTR(frase,k,1)
a=ASC(m)
IF LEN(ASC(m))
then "0"+m
endif
ENDFOR

@11,11 say a

me tira un error

hola,

No se que es lo que quieres hacer con esta rutina.

Yo lo corri y el error que encuentro es en

IF LEN(ASC(m))
then "0"+m

No pusiste ninguna condicion.

Saludos,

Hola.

Hay varios ejemplos en esta web de encriptacion/desencriptacion. Solo tienes que buscar en la opcion de busqueda del foro la palabra "ENCRIPTAR" o "ALGORITMO" y te apareceran muchos ejemplos. Aqui tienes un link con uno de ellos:

http://www.lawebdelprogramador.com/foros/FoxPro_Visual_FoxPro/912055-PLINIO,_NEO,_ERNESTO_COMO_DESENCRITO_ESTE_CODIGO.html

Otro ejemplo es este:

http://www.lawebdelprogramador.com/foros/FoxPro_Visual_FoxPro/911612-%C2%BFCOMO_DESENCRIPTAR_ESTE_CODIGO__EXPERTOS_DE_AQUI.html

Saludos.-