Private Function Encriptar(ByVal Texto As String)
Texto = Replace(Texto, "a", "1")
Texto = Replace(Texto, "b", "2")
Texto = Replace(Texto, "c", "3")
Texto = Replace(Texto, "d", "4")
Texto = Replace(Texto, "e", "5")
Texto = Replace(Texto, "f", "6")
Texto = Replace(Texto, "g", "7")
Texto = Replace(Texto, "h", "8")
Texto = Replace(Texto, "i", "9")
Texto = Replace(Texto, "j", "0")
Texto = Replace(Texto, "k", "?")
Texto = Replace(Texto, "l", "+")
Texto = Replace(Texto, "m", "<")
Texto = Replace(Texto, "n", ">")
Texto = Replace(Texto, "o", "@")
Texto = Replace(Texto, "p", "!")
Texto = Replace(Texto, "q", "$")
Texto = Replace(Texto, "r", "%")
Texto = Replace(Texto, "s", "&")
Texto = Replace(Texto, "t", "/")
Texto = Replace(Texto, "u", "\")
Texto = Replace(Texto, "v", "#")
Texto = Replace(Texto, "w", "=")
Texto = Replace(Texto, "x", "®")
Texto = Replace(Texto, "y", "¯")
Texto = Replace(Texto, "z", ";")
Return Strings.StrReverse(Texto)
End Function
Private Function Desencriptar(ByVal Texto As String)
Texto = Strings.StrReverse(Texto)
Texto = Replace(Texto, "1", "a")
Texto = Replace(Texto, "2", "b")
Texto = Replace(Texto, "3", "c")
Texto = Replace(Texto, "4", "d")
Texto = Replace(Texto, "5", "e")
Texto = Replace(Texto, "6", "f")
Texto = Replace(Texto, "7", "g")
Texto = Replace(Texto, "8", "h")
Texto = Replace(Texto, "9", "i")
Texto = Replace(Texto, "0", "j")
Texto = Replace(Texto, "?", "k")
Texto = Replace(Texto, "+", "l")
Texto = Replace(Texto, "<", "m")
Texto = Replace(Texto, ">", "n")
Texto = Replace(Texto, "@", "o")
Texto = Replace(Texto, "!", "p")
Texto = Replace(Texto, "$", "q")
Texto = Replace(Texto, "%", "r")
Texto = Replace(Texto, "&", "s")
Texto = Replace(Texto, "/", "t")
Texto = Replace(Texto, "\", "u")
Texto = Replace(Texto, "#", "v")
Texto = Replace(Texto, "=", "w")
Texto = Replace(Texto, "®", "x")
Texto = Replace(Texto, "¯", "y")
Texto = Replace(Texto, ";", "z")
Return Texto
End Function