Programación General > Visual Basic 6.0 e inferiores

 Guardar Y Leer Password Encripatdo En Access

(1/1)

willysistemas:
Hola todos

alguien me podria ayudar con un codigo que me permita guardar una calave de usuario encriptada y poder acceder a traves de un formulario

F_Tanori:

--- Cita de: "willysistemas" --- Hola todos

alguien me podria ayudar con un codigo que me permita guardar una calave de usuario encriptada y poder acceder a traves de un formulario
--- Fin de la cita ---
quieres poder volver a visualizar la palabra ?

9tnix:
Hola willysistemas

Si te refieres a guardarlo en un campo dentro de una tabla en access pues es sencillo. Primero encriptalo y luego usas un objeto conexion y un recordset abres  la tabla (Open) luego agregas un registro (AddNew) luego en un campo dentro del registro guardas e pass encriptado (Update). Para que lo leas pues vas al registro lo abres y lo muestras en un form y claro tienes que tener el codigo para encriptar y desencriptar y asi lo podras visualizar.

Saludos
zeekel [TKLP]

willysistemas:
Hola gracias ya lo he soluconado buscando en la web me encontre este codigo espero le sirva a muchos

en un modulo escribes el siguiente codigo

Public encripta As String
Public desencripta As String

Function EncriptarCampo (valor As String)
Dim R As Integer
encripta = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(encripta, I, 1) = Chr(Asc(Mid(valor, I, 1)) - 1)
Next I
End Function

Function DesencriptarCampo(valor As String)
Dim R As Integer
desencriptar = valor
R = Len(Trim(valor))
For I = 1 To R
Mid(desencriptar, I, 1) = Chr(Asc(Mid(valor, I, 1)) + 1)
Next I
End Function

 
   
en el formulario lo usas asi:

'Para encriptar

Call EncriptarCapo (Text1.Text)
rs.Fields!campo = encripta

'Para desencriptar

Call DesencriptarCampo(rs.Fields!campo)
Text2.Text = desencripta

Navegación

[0] Índice de Mensajes