Views

Histats

Vitrine

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, 






✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias