Page 1 of 1

encrypt() ?

Posted: Thu Aug 17, 2006 5:15 pm
by 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

Posted: Thu Aug 17, 2006 7:56 pm
by 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.

Posted: Sun Aug 20, 2006 11:05 am
by Frafive
Gracias Manuramos me funciona perfecto