Ajudem pf - vb 2008

coixo

coixo

Power Member
Ola!
Eu preciso de ajuda, pois tenho de criar um programa em que escreva um texto numa imputbox e quando clico no OK codifique o texto e apresente numa label.
E outro em que descodifique.
Obrigado!
 
Isso é realmente o mais caseiro possível, lol.

Podes resolver o problema com simples Replaces.

Código: 
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

Criamos um alfabeto de letras pequenas, que serve para perceberes, e invertemos string só para tornar as coisas mais interessantes.

Depois de teres as funções, numa classe ou wtv (cuidado que lhes dei acesso private no exemplo), basta chamares a partir de um button ou o que quiseres, para veres um exemplo:

Código: 
Dim TempStr As String = Encriptar("estou a encriptar caracteres lowercase")
MsgBox("Encriptada: " & TempStr & vbCrLf & "Desencriptada: " & Desencriptar(TempStr))

Resultaria no seguinte:

"estou a encriptar caracteres lowercase" = "5&13%5=@+ &5%5/31%13 %1/!9%3>5 1 \@/&5"
 
Inicie sessão ou registe-se para poder participar.
Back
Topo