- [VB.NET] Hướng dẫn giải captcha sử dụng dịch vụ AZCaptcha API trên winform
- [C#] Hướng dẫn chứng thực đăng nhập ứng dụng bằng vân tay (Finger Print) trên máy tính
- [C#] Color Thief cách xuất màu sắc thiết kế từ hình ảnh
- [C#] Cách tạo bản quyền và cho phép dùng thử ứng dụng Winform
- [C#] Hướng dẫn sử dụng trình duyệt web Chrome convert HTML sang tập tin file PDF
- [C#] Kết nôi điện thoại Android, IOS với App Winform via Bluetooth
- [DATABASE] Cách query cộng trừ dồn dần trong Sqlserver
- [C#] Thiết kế ứng dụng Console đẹp với thư viện Spectre.Console
- [C#] Thiết kế ứng dụng Single Instance và đưa ứng dụng lên trước nếu kiểm tra ứng dụng đang chạy
- [C#] Giới thiệu JSON Web Token và cách đọc chuỗi token
- [C#] Cách tăng giảm font chữ tất cả các control trên winform
- [DEVEXPRESS] Tích hợp chức năng Tìm kiếm Search vào CheckedComboboxEdit
- [C#] Gởi email Metting Calendar Reminder kèm nhắc thời gian lịch họp
- [C#] Tìm kiếm xem danh sách từ khóa có tồn tại trong đoạn văn bản hay không
- [C#] Thiết kế giao diện ứng dụng trên Console sử dụng thư viện Terminal.Gui
- [C#] Hướng dẫn tạo mã VietQR Payment API Winform
- [C#] Sử dụng thư viện BenchmarkDotNet đo hiệu năng của hảm Method
- [DEVEXPRESS] Tìm kiếm không dấu tô màu highlight có dấu trên C# Winform
- [C#] Chia sẻ source code tạo hiệu ứng pixel Image trên winform
- [C#] Hướng dẫn kiểm tra số Container hợp lệ hay không
Encrypt and Decrypt Data với ASCII
Hôm trước mình có giới thiệu đến các bạn cách mã hóa MD5, thật ra có nhiều cách mã hóa khác nhau, hôm nay mình giới thiệu tiếp các bạn thuật toán mã hóa ASCII.
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
- Những bạn nào làm biết code có thể tải demo phía dưới nhé.