SoloCodigo

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 ?

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