Encriptación en Gambas: El componente gb.crypt

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