1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajudem pf - vb 2008

Discussão em 'Programação' iniciada por coixo, 24 de Novembro de 2008. (Respostas: 5; Visualizações: 627)

  1. 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!
     
  2. Ruben_Barbosa

    Ruben_Barbosa Power Member

  3. ribeiro55

    ribeiro55 Power Member

    "Codifique o texto" ?
    Um pouco vago não?
    Estás te a referir a um género de encriptação caseira ?
     
  4. coixo

    coixo Power Member

    Qero que (por exemplo):

    a = .
    b = ?
    c = !
     
  5. ribeiro55

    ribeiro55 Power Member

    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"
     
  6. coixo

    coixo Power Member

Partilhar esta Página