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
encrypt() ?
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.
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.
Nos Gusta Programar