让它加密一次

Question

我制作一个加密程序及其工作，但它仍然加密文本很长一段时间我想让它加密一次 并谢谢 抱歉我的英语不好

    Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = False
        If RichTextBox1.Text.Contains("M") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("M", "hgmx6fdf`")
        End If
        If RichTextBox1.Text.Contains("D") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("D", "ghrexu6s`")
        End If
        If RichTextBox1.Text.Contains("L") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("L", "kd8dli1j`")
        End If
        If RichTextBox1.Text.Contains("U") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("U", "kjuetde3`")
        End If
        If RichTextBox1.Text.Contains("E") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("E", "xjuylm98`")
        End If
        If RichTextBox1.Text.Contains("X") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("X", "jhlurtyu`")
        End If
        If RichTextBox1.Text.Contains("m") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("m", "aytr5ejkm`")
        End If
        If RichTextBox1.Text.Contains("d") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("d", "qtyr63gbv`")
        End If
        If RichTextBox1.Text.Contains("l") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("l", "fhyebxzla`")
        End If
        If RichTextBox1.Text.Contains("u") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("u", "56rhgkvd1`")
        End If
        If RichTextBox1.Text.Contains("e") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("e", "hgyekllav`")
        End If
        If RichTextBox1.Text.Contains("x") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("x", "opopertrw`")
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If RichTextBox1.Text.Contains("hgmx6fdf`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("hgmx6fdf`", "M")
        End If
        If RichTextBox1.Text.Contains("ghrexu6s`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("ghrexu6s`", "D")
        End If
        If RichTextBox1.Text.Contains("kd8dli1j`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("kd8dli1j`", "L")
        End If
        If RichTextBox1.Text.Contains("kjuetde3`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("kjuetde3`", "U")
        End If
        If RichTextBox1.Text.Contains("xjuylm98`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("xjuylm98`", "E")
        End If
        If RichTextBox1.Text.Contains("jhlurtyu`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("jhlurtyu`", "X")
        End If
        If RichTextBox1.Text.Contains("aytr5ejkm`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("aytr5ejkm`", "m")
        End If
        If RichTextBox1.Text.Contains("qtyr63gbv`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("qtyr63gbv`", "d")
        End If
        If RichTextBox1.Text.Contains("fhyebxzla`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("fhyebxzla`", "l")
        End If
        If RichTextBox1.Text.Contains("56rhgkvd1`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("56rhgkvd1`", "u")
        End If
        If RichTextBox1.Text.Contains("hgyekllav`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("hgyekllav`", "e")
        End If
        If RichTextBox1.Text.Contains("opopertrw`") Then
            RichTextBox1.Text = RichTextBox1.Text.Replace("opopertrw`", "x")
        End If
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        System.Diagnostics.Process.Start("https://www.facebook.com/Ms.Mdluex")
    End Sub
End Class

加密和解密＆＃34; MDLUEX＆＃34;现在