[VISUAL BASIC] Encrypt and Decrypt Data với ASCII - Tôi Hùng Blog ✅

Chào mọi người, mình là quản trị viên blog mới, và mình thấy có bài viết này hay nên mình chia sẽ lại cho mọi người để mọi người tiện cho việc mã hóa dữ liệu một cách nhanh nhất mà không cần phải tìm kiếm trên mạng. Và hiện tại đây chương trình này chỉ mã hóa ASCII chứ còn những kiểu mã hóa khác mình chưa có thời gian để tích hợp vào luôn trong chương trình, nhưng sau này mình sẽ viết ra một chương trình tiện giúp ích cho người sữ dụng mã hóa code.

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 và Decrypt.

- Mã hóa dữ liệu.

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

- Giải mã dữ liệu

 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

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

Hiện tại chương trình mình đang hoàn thiện và sẽ sớm ra mắt chương trình đầy đủ cho mọi người nhé. Và mọi người thường xuyên ghé blog để cập nhật nhiều bài viết hữu ích nữa nhé.