encrypt() ?

encrypt() ?

Postby Frafive » Thu Aug 17, 2006 5:15 pm

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
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Postby manuramos » Thu Aug 17, 2006 7:56 pm

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.
Nos Gusta Programar
manuramos
 
Posts: 219
Joined: Mon Dec 26, 2005 7:25 pm
Location: Jerez de la Frontera (Spain)

Postby Frafive » Sun Aug 20, 2006 11:05 am

Gracias Manuramos me funciona perfecto
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests