CRIPTOGRAFAR SENHA ACCESS

USUARIO.EXCLUIDOS 06/04/2005 15:19:30
#77027

Tem um topico aqui sobre o assunto
CRIPTOGRAFIA
Agora procure no site, tem vários exemplos de criptografia...
Até mais

TROVAM 06/04/2005 18:00:40
#77057 Resposta escolhida

vc pdoe usar o seguinte:

'Função para Criptografar Password
Public Function Cripto(Pwd As String)
Dim I As Integer, CodAsc As Integer
Dim Aux As String, Crip As String

For I = 1 To Len(Pwd)
Aux = Mid(Pwd, I, 1)
CodAsc = Asc(Aux)
CodAsc = CodAsc + 16
Crip = Crip & Chr(CodAsc)
Next I

Cripto = Crip
End Function

'Função para Decriptografar Password
Public Function Descripto(Pwd As String)
Dim I As Integer, CodAsc As Integer
Dim Aux As String, Crip As String

For I = 1 To Len(Pwd)
Aux = Mid(Pwd, I, 1)
CodAsc = Asc(Aux)
CodAsc = CodAsc - 16
Crip = Crip & Chr(CodAsc)
Next I

Descripto = Crip
End Function

Até mais...