Mã hóa dữ liệu cơ bản trong VBA Excel

Để bảo mật dữ liệu trong VBA, bạn có thể Mã hóa dữ liệu cơ bản trong VBA Excel trước khi lưu trữ hoặc truyền tải, và giải mã khi cần thiết. Dưới đây là ví dụ về cách mã hóa và giải mã dữ liệu sử dụng thuật toán XOR trong VBA.

' Function to encrypt/decrypt data using XOR
Function XORCipher(str As String, key As String) As String
Dim i As Integer
Dim j As Integer
Dim output As String
output = ""
j = 1

For i = 1 To Len(str)
output = output & Chr(Asc(Mid(str, i, 1)) Xor Asc(Mid(key, j, 1)))
j = j + 1
If j > Len(key) Then j = 1
Next i

XORCipher = output
End Function

' Sub to demonstrate encryption and decryption
Sub DemoEncryption()
Dim originalText As String
Dim encryptedText As String
Dim decryptedText As String
Dim key As String

' Original text to be encrypted
originalText = "This is a secret message."

' Encryption key
key = "mypassword"

' Encrypt the original text
encryptedText = XORCipher(originalText, key)
MsgBox "Encrypted Text: " & encryptedText

' Decrypt the encrypted text
decryptedText = XORCipher(encryptedText, key)
MsgBox "Decrypted Text: " & decryptedText
End Sub

Trong đoạn mã trên:

1. Hàm XORCipher thực hiện mã hóa và giải mã dữ liệu bằng cách sử dụng phép XOR với một khóa cung cấp (key). Bất kỳ ký tự nào của chuỗi dữ liệu (str) sẽ được XOR với các ký tự của khóa.
2. Thủ tục DemoEncryption minh họa việc sử dụng hàm XORCipher để mã hóa và giải mã dữ liệu. Bạn có thể thay đổi giá trị của biến originalText và key để thử nghiệm với các chuỗi và khóa khác nhau.
3. Khi chạy thủ tục DemoEncryption, bạn sẽ thấy hai thông báo hiển thị: một thông báo cho văn bản đã mã hóa và một thông báo khác cho văn bản đã được giải mã. Văn bản đã được giải mã phải khớp với văn bản gốc.

Đây là một cách cơ bản để bảo mật dữ liệu trong VBA. Tuy nhiên, nếu bạn cần bảo mật cao hơn, bạn có thể tìm hiểu và sử dụng các thư viện mã hóa mạnh hơn như AES (Advanced Encryption Standard).