FoxPro/Visual FoxPro - encriptamiento de palabras

palabra= Thisform.txt_palabra.Value  && esta es la palabra

palabra=Alltrim(palabra)

con=""

For i=1 To Len(palabra) Do

cad=Substr(palabra,i,1) && tomas una sola letra por vez

cad=Asc(cad) && cambias la letra por su valor ascii (número)

cad=cad+87 && le sumas un número cualquiera, para encriptar

cad=Chr(cad) && vuelves a convertir a letra ( te puede dar ~æ¢, etc)

con=con+cad && esta variable es la encriptada

Next i

*** Similar al ejemplo indicado por Juan Manuél te muestro el siguiente código.

*** El siguiente código complica un poco más el encriptamiento.

*** toma letra a letra y toma además el tamaño de la cadena pasada por valor.

*** Pasas por valor el texto a convertir y True o False ya séa que quieras encriptar o desencriptar.

Para m.valor2conv, m.traducir

&&	* TRADUCIR: Será .F. (clave ilegible) o .T. (entender clave).

m.valor2conv = Allt(m.valor2conv)

Store Len(valor2conv) To m.cantCar

If Empty(valor2conv)

	Return ''

Endif

Store 0 To m.x

Store '' To m.valorTrans

For x = 1 To Len(m.valor2conv)

	If traducir

		&& 	* Entender el código.

		valorTrans =  valorTrans + Chr(Asc(Subs(valor2conv,x,1)) - (x*cantCar))

	Else

		&&	* Transformar en ilegible.

		valorTrans =  valorTrans + Chr(Asc(Subs(valor2conv,x,1)) + (x*cantCar))

	Endif

	cantCar = cantCar - 1

Next

Retu valorTrans