CRIPTOGRAFAR SENHA ACCESS

 Tópico anterior Próximo tópico Novo tópico

CRIPTOGRAFAR SENHA ACCESS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#77025 - 06/04/2005 15:11:12

UNIAO
TANABI
Cadast. em:Abril/2004


Última edição em Editado em 06/04/2005 19:13:22 por GABRIEL_LOGAN por

Amigos, como fao para que no banco de Dados Access fique gravado uma senha de forma que mesmo que abra o  banco no consiga descubri-la

Pratic Sistemas Informtica
samuel@praticsistemas.com.br


#77027 - 06/04/2005 15:19:30

USUARIO.EXCLUIDOS

Cadast. em:


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



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

TROVAM
SUZANO
Cadast. em:Novembro/2004


vc pdoe usar o seguinte:

'Funo 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

'Funo 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...

Trovam...
renato_sptva@hotmail.com


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45