GB.CRYPT
En gambas tenemos un componente, el gb.crypt, que nos puede facilitar tanto la encriptación como la comprobación de claves, para permitir el acceso o no de usuario a distintas informaciones.
He hecho esta pequeña aplicación donde vemos como se usa este componente:
Este es el código:
' Gambas class file
PUBLIC SUB ButtonEncriptar_Click()
labelEncriptar.Caption = Crypt.MD5(textboxEncriptar.text)
END
PUBLIC SUB ButtonDesencrip_Click()
IF Crypt.Check(TextBoxDesincriptar.text, labelEncriptar.caption) = FALSE THEN
LabelDesencriptado.caption = "ok contraseña comprobada"
ELSE
LabelDesencriptado.caption = "Error en contraseña"
ENDIF
END
Como veis, al pulsar en el Boton Encriptar, creamos la clave con el valor contenido en el textoboxEncriptar.txt, (con la funcion Crypt.MD5), y lo almacenamos en el labelEcriptar.caption
Luego para desencriptar:
introducimos nuestra "contraseña a comprobar" en el textboxDesincriptar.text
y pulsamos el boton ButtonDesencrip, haciendo la comprobación, con el método Crypt.Check (valor_introducido, valor guardado anteriormente), que devuelve FALSE cuando es correcta la contraseña, y TRUE cuando no lo es.
Aquí tenéis el código fuente.
Nota:
- Documentación: http://gambasdoc.org/help/comp/gb.crypt/crypt?es
-Para poder usar este componente, hay que seleccionarlo en la pantalla:
Proyecto/Propiedades/Componentes