RE:Poner contraseña a una base de datos vfox
Yo encripto mi la informacion en mi tabla,
lo hago de estas forma;
**ENCRIPTAR
PUBLIC Esconde_clave
Largo=LEN(ALLTRIM(thisform.txtClave.Value))
y=1
d=SPACE(20)
DO WHILE y<= largo
x=y
DO while .t.
a=SUBSTR(thisform.txtClave.Value, x,1) && Extrae la letra
b=ASC(a) && Lo convierte en ANSI
c=CHR(ASC(a)+5) && Le suma y le convierte a Caracter
EXIT
ENDDO
d= d+c && Junta todas las Letras y forma la palabra
y= y+1
ENDDO
STORE d TO Esconde_clave && Almacenamos los valores de "d" en la Variable "Esc"
***DESENCRIPTAR
PUBLIC Revela_clave
Largo=LEN(ALLTRIM(Usuarios.Clave))
y=1
d=SPACE(20)
DO while y<=largo
x=y
DO while .t.
a=SUBSTR(Usuarios.Clave, x,1) && Extrae la letra
b=ASC(a) && Lo convierte en ANSI
c=CHR(ASC(a)-5) && Le resta y le convierte a Caracter
EXIT
ENDDO
d= d+c && Junta todas las Letras y forma la palabra
y= y+1
ENDDO
STORE d TO Revela_clave && Almacenamos los valores de "d" en la Variable "Rev"
ESPEO TE AYUDE
HELDER MARTINEZ
HONDURAS C.A.
YORO YORO