Encriptar
Hola, me gustaría si es que me puedes ayudar, necesito encriptar una tabla de la base de dato en la cual tengo los usuario y contraseñas, para cuando abre la base da datos en visual, ojalas me puedas ayudar.
De Antemano muchas gracias
De Antemano muchas gracias
1 Respuesta
Respuesta de skie
1
Creo que lo que me pides esta en la siguiente dirección:
http://it.internations.net/codigovb/BD/Encriptar.htm
Sino lo es me lo dices y me explicas más detalladamente lo que quieres hacer.
http://it.internations.net/codigovb/BD/Encriptar.htm
Sino lo es me lo dices y me explicas más detalladamente lo que quieres hacer.
La página que me diste comoreferencia no existe, me puedes ayudar de otra forma por favor
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
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
