Crypter et décrypter des messages

Commenter

Contenu du snippet

c'est pour crypter et décrypter des messages!!!

on remplace les lettre par des symbole ou des chiffres.

ne pas mettre de caractère comme : ! ? etc..

Source / Exemple : 


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        s = TextBox1.Text
        s = s.Replace("a", "1")
        s = s.Replace("b", "2")
        s = s.Replace("c", "3")
        s = s.Replace("d", "4")
        s = s.Replace("e", "5")
        s = s.Replace("f", "6")
        s = s.Replace("g", "7")
        s = s.Replace("h", "8")
        s = s.Replace("i", "9")
        s = s.Replace("j", "+")
        s = s.Replace("k", "-")
        s = s.Replace("l", "*")
        s = s.Replace("m", "/")
        s = s.Replace("n", ".")
        s = s.Replace("o", "0")
        s = s.Replace("p", "!")
        s = s.Replace("q", ":")
        s = s.Replace("r", ";")
        s = s.Replace("s", ",")
        s = s.Replace("t", "?")
        s = s.Replace("u", "£")
        s = s.Replace("v", "§")
        s = s.Replace("w", "%")
        s = s.Replace("x", "*")
        s = s.Replace("y", "µ")
        s = s.Replace("z", "$")
        s = s.Replace("é", "°")
        TextBox2.Text = s
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim s As String
        s = TextBox1.Text
        s = s.Replace("1", "a")
        s = s.Replace("2", "b")
        s = s.Replace("3", "c")
        s = s.Replace("4", "d")
        s = s.Replace("5", "e")
        s = s.Replace("6", "f")
        s = s.Replace("7", "g")
        s = s.Replace("8", "h")
        s = s.Replace("9", "i")
        s = s.Replace("+", "j")
        s = s.Replace("-", "k")
        s = s.Replace("*", "l")
        s = s.Replace("/", "m")
        s = s.Replace(".", "n")
        s = s.Replace("0", "o")
        s = s.Replace("!", "p")
        s = s.Replace(":", "q")
        s = s.Replace(";", "r")
        s = s.Replace(",", "s")
        s = s.Replace("?", "t")
        s = s.Replace("£", "u")
        s = s.Replace("§", "v")
        s = s.Replace("%", "w")
        s = s.Replace("*", "x")
        s = s.Replace("µ", "y")
        s = s.Replace("$", "z")

        TextBox2.Text = s
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Paste()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox2.Copy()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
End Class

Conclusion :


c'est très pratique!!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.