CRYPTER ET DÉCRYPTER DES MESSAGES

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