VBA Tips - Criptografando e Decriptografando - Encode and [De]Coding Ascii

Termo de Responsabilidade

Talvez queira tornar um texto, um valor, o conteúdo de uma tabela, inteligível para outras pessoas que olhem para aqueles dados sem a sua autorização.

Isso pode ser feito ao abrir os dados antes de enviá-los a um relatório ou antes de abrir uma planilha ou enviar um e-mail, tanto faz. Certamente não é nenhum código de 128 bits, mas já dá prá você brincar, entender como faz e desenvolver o seu próprio algoritmo. Enjoy!

Public Function nEncript (Data As String, Optional Depth As Integer) As String

    Dim TempChar As String

    Dim TempAsc As Integer

    Dim NewData As String

    Dim vChar As Integer

    For vChar = 1 To Len(Data)

        Let TempChar = Mid$(Data, vChar, 1)

        Let TempAsc = Asc(TempChar)

        If Depth = 0 Then Depth = 40 'DEFAULT DEPTH

        If Depth > 254 Then Depth = 254

        Let TempAsc = TempAsc + Depth

        If TempAsc > 255 Then TempAsc = TempAsc - 255

        Let TempChar = Chr(TempAsc)

        Let NewData = NewData & TempChar

    Next vChar

    Let Encode = NewData

End Function

Public Function nDecript (Data As String, Optional Depth As Integer) As String

    Dim TempChar As String

    Dim TempAsc As Integer

    Dim NewData As String

    Dim vChar As Integer

    For vChar = 1 To Len(Data)

        Let TempChar = Mid$(Data, vChar, 1)

        Let TempAsc = Asc(TempChar)

        

        If Depth = 0 Then Depth = 40 'DEFAULT DEPTH

        If Depth > 254 Then Depth = 254

        

        Let TempAsc = TempAsc - Depth

        

        If TempAsc < 0 Then TempAsc = TempAsc + 255

        

        Let TempChar = Chr(TempAsc)

        Let NewData = NewData & TempChar

    Next vChar

    Decode = NewData

End Function

References:

Tags: VBA, Tips, Criptografando, Decriptografando, encode, 128 bits,