Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

6 de março de 2012

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, 


 

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine