Mã hóa và giải mã dữ liệu với ASCII trong Visual Basic - Hung Program Viet Nam

Xin chào mọi người, bài viết này mình sẽ chia sẽ đến mọi người một thuật toán cũng khá lâu rồi nhưng có nhiều cách giúp mọi người giải mã dữ liệu ASCII ngày trên máy tính cá nhân mà không còn phải loay hoay tìm kiếm trên Internet nhiều nữa nhé.

Bài viết này mình sẽ hướng dẫn anh em chuyên về lập trình chương trình máy tính Windows và hiểu rỏ hơn về thủ thuật này nhé.

Phía dưới là hình ảnh demo chương trình mình viết nhé.

Bạn thiết kế form đơn giản như trên, sau đó các bạn viết cho mình 2 thủ tục Encrypt(mã hóa) và Decrypt(Giải mã).

Tiếp theo bên dưới là Full Code Mã Hóa

Public Sub Encrypt()
        Dim Enctypt As String = ""
        Dim letter As Char
        Dim i, charInFile As Short
        SaveFileDialog1.Filter = "Text file |*.txt"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            Try
                charInFile = TextBox1.Text.Length
                For i = 0 To charInFile - 1
                    letter = TextBox1.Text.Substring(i, 1)
                    Enctypt = Enctypt & Chr(Asc(letter) + 1)
                Next
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, Enctypt, False)
                TextBox1.Text = Enctypt
                TextBox1.Select(0, 0)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
End Sub

Và Full Code Giải Mã

 Public Sub Decrypt()
        Dim AllText As String
        Dim i, CharInFile As Short
        Dim letter As Char
        Dim Decrypt As String = ""
        OpenFileDialog1.Filter = "Text file |*.txt"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Try
                AllText = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
                CharInFile = AllText.Length
                For i = 0 To CharInFile - 1
                    letter = AllText.Substring(i, 1)
                    Decrypt = Decrypt & Chr(Asc(letter) - 1)

                Next
                TextBox1.Text = Decrypt
                TextBox1.Select(0, 0)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
End Sub

Như vậy đã hoàn thành và cuối cùng là tùy biến của mỗi người về việc viết chương trình trên sao cho phù hợp và giúp ích gì cho người dùng không nhé.

Chúc mọi người thành công.

PASSWORD UNZIP: HUNG.PRO.VN
Chúc mọi người có những niềm vui nhỏ và phát triển cho bản thân một chương trình thật tốt để phục vụ cho mục đích cá nhân và chia sẽ ra cộng đồng.