SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: willysistemas en Sábado 15 de Marzo de 2008, 19:57

Título: Guardar Y Leer Password Encripatdo En Access
Publicado por: willysistemas en Sábado 15 de Marzo de 2008, 19:57
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
Título: Re: Guardar Y Leer Password Encripatdo En Access
Publicado por: F_Tanori en Sábado 15 de Marzo de 2008, 20:37
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
quieres poder volver a visualizar la palabra ?
Título: Re: Guardar Y Leer Password Encripatdo En Access
Publicado por: 9tnix en Domingo 16 de Marzo de 2008, 01:20
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]
Título: Re: Guardar Y Leer Password Encripatdo En Access
Publicado por: willysistemas en Domingo 16 de Marzo de 2008, 16:20
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