CRIPTOGRAFIA

USUARIO.EXCLUIDOS 25/11/2004 12:51:20
#51921
Alguem sabe se tem como criar uma DLL no Visual Basic para criptografar e descriptofar um campo de uma tabela do banco de dados, sendo que o banco de dados é em Access.

Exemplo.: Eu tenho um campo CPF em uma determinada tabela só que se alguem conseguir acessar o BD, a mesma não vai conseguir entender o registro do CPF.

Aguardo o retorno
CLINS 25/11/2004 15:43:48
#51970 Resposta escolhida
Segue ...
  
Public Function CriptografarTexto(strText As String, ByVal strPwd As String)
    Dim I As Integer, C As Integer
    Dim strBuff As String

    If Len(strPwd) Then
        For I = 1 To Len(strText)
            C = Asc(Mid$(strText, I, 1))
            C = C + Asc(Mid$(strPwd, (I Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(C And &HFF)
        Next I
    Else
        strBuff = strText
    End If
    CriptografarTexto = strBuff
End Function

Public Function DescriptografarTexto(strText As String, ByVal strPwd As String)
    Dim I As Integer, C As Integer
    Dim strBuff As String

    If Len(strPwd) Then
        For I = 1 To Len(strText)
            C = Asc(Mid$(strText, I, 1))
            C = C - Asc(Mid$(strPwd, (I Mod Len(strPwd)) + 1, 1))
            strBuff = strBuff & Chr$(C And &HFF)
        Next I
    Else
        strBuff = strText
    End If
    DescriptografarTexto = strBuff
End Function


Utilização...

campodaTabela = CriptografarTexto (txtCPF,"QualquerTextoComoChave")

Leitura

TxtCPF = DescriptografarTexto(campodaTabela,"QualquerTextoComoChave")
Tópico encerrado , respostas não são mais permitidas
Voltar