Encriptar Base de Datos que es eso?
Encriptar una base de datos, en realidad es encriptar la data contenida en ella. En este proceso los datos antes de ser almacenados son transformados con un algoritmo (encriptador), para que cualquier usuario al intentar visualizar y/o modificar los mismos no pueda entenderlos. Claro una vez encriptados debe existir un algoritmo inverso (desencriptador) el cual transforma los datos almacenados a su valor original. Por ejemplo:
Public encripta1 As String
Public desencri1 As String
Function ENCRIPTAR(valor As String)
Dim R As Integer
encripta1 = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(encripta1, I, 1) = Chr(Asc(Mid(valor, I, 1)) - 1)
Next I
End Function
Function DESENCRIPTAR(valor As String)
Dim R As Integer
desencri1 = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(desencri1, I, 1) = Chr(Asc(Mid(valor, I, 1)) + 1)
Next I
End Function
'Para encriptar
Call ENCRIPTAR(Text6.Text)
TABLA10.Fields!REMITENTE = encripta1
'Para desencriptar
Call DESENCRIPTAR(TABLA10.Fields!CARGO)
Text7.Text = desencri1
EJEMPLO TOMADO DE WWW.AMBSOFTWARE.COM..!