encrypt() ?

[Frafive]

Hola amigos

Estoy intentado guardar en un archivo ini, una cadena encriptada el problema esta en que no me guarda la cadena
clave:=encrypt("12345")

Msginfo(clave) // Aqui me lo muestra perfectamente

Pero si lo guardo en un ini me muestra un valor distinto al que me muestra en el msginfo

alguna idea ?

un saludo y gracias desde ya

[manuramos]

Guardalo en un fichero con MEMOWRIT(".\Fichero.dat",clave).
Recuperalo con clave := MEMOREAD(".\Fichero")

Otra solución sería convertir cada caracter en un string de su valor ASCII. Por ejemplo:

cDat := ""
FOR nCont = 1 TO LEN(clave)
cDat += STRZERO(ASC(SUBSTR(CLAVE,nCont,1)),3)
NEXT

Cada caracter de 'clave' se a convertido en un alfanumérico de tres dígitos tipo "069" ó "128"

Ahora guarda cDat en el INI.

Para recuperarlo, Carga cDat desde el INI y:

clave := ""
FOR nCont = 1 TO LEN(cDat) STEP 3
clave += CHR(VAL(SUBSTR(cDat,nCont,3)))
NEXT

No lo he probado, lo mismo hay algún BUG pero esa es la idea, o algo así.

Un saludo.

[Frafive]

Gracias Manuramos me funciona perfecto