Dedicado a mis proyectos en Gambas ,un lenguaje de programación parecido al Visual Basic + Java pero ampliamente mejorado y...¡¡para gnu/linux!!.La potencia del gnu/linux sumada a la facilidad del Basic



Consultas, Desarrollo de programas y petición de presupuestos:



lunes, 8 de agosto de 2011

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