Sección de códigos , trucos y ejemplos para visual basic


293 - Encriptar y desencriptar datos de una base de datos Access

<Volver> - Anterior - Siguiente



 

Ejemplo que usa un simple algorítmo para encriptar un dato al añadir un nuevo registro, y luego lo desencripta al leerlo

 

El ejemplo es como muestra el siguiente form:

vista del formulario de ejemplo para guardar datos encriptados en una base access

 

es decir, es un fromulario que muestra dos campos ( campo " Nombre " y campo " Apellido ").

El campo Apellido es el que se encripta en la bd

Al leer desde el recordset el campo que está encriptado, se llama a una función llamada Codificar

En el primer parámetro de la función Codificar, se debe indicar el dato. El segundo parámetro indica la acción ( Encriptar o desencriptar )

Por ejemplo para encripar el dato y guardarlo en la base de datos

Recordset.Fields("ElCampo") = Codificar(ElValor, ENCRIPTAR)

... para desencriptar el dato y mostrarlo en un textBox:

Text1.Text = Codificar(Rst.Fields(" El Campo encriptado "), DESENCRIPTAR)

 

Ejemplo

Crear una base de datos Access vacía ( sin ningún registro ) con dos campos, uno llamado nombre y otro Apellido. El campo Apellido es el que se encripta.

La base de datos dejarla con el nombre bd1.mdb . A la tabla llamarla Usuarios

Al formulario agregarle dos textox, uno llamado txtNombre y al otro txtApellido

Añadir tres commandbutton: CmdAnterior, cmdSiguiente y cmdNuevo

Añadir un módulo bas para colocar la función que codifica

Por último agregar la referencia a Microsoft Activex data Objects para poder usar Ado

 

Código fuente en el formulario

 


Código en un módulo bas

 


Nota: en este enlace hay un algorítmo para encriptar y desencriptar cadenas realizado por Harvey Triana

Función para encriptar y desencriptar cadenas de caracteres

 



Buscar en Recursos vb