[求助]如何对一个字符串进行加密解密
如何对一个字符串进行加密解密对英文、数字加密都可以，就是对中文加密总是搞不定，谁能提供一个简单的函数解决，谢谢
我在本论坛看到如下加密函数，但对中文加密后，不能加密，请帮忙修改一下，简单点，不需要太复杂
Private Const GENKEY = &H87
Private Function EnCode(ByVal strstr As String) As String Dim aBytes() As Byte
Dim i As Integer
aBytes = strstr
For i = 0 To UBound(aBytes)
aBytes(i) = aBytes(i) Xor GENKEY
Next
EnCode = aBytes
End Function