如何对一个字符串进行加密解密
对英文、数字加密都可以，就是对中文加密总是搞不定，谁能提供一个简单的函数解决，谢谢

你要用何种加密算法？？

两个字“加密”包含了好多好多内容，这已经占了密码学的2/5了

我在本论坛看到如下加密函数，但对中文加密后，不能加密，请帮忙修改一下，简单点，不需要太复杂
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

对中文加密后不能加密？什么意思？

不好意思，写错了，应该是
我在本论坛看到如下加密函数，但对中文加密后，不能解密，请帮忙修改一下，简单点，不需要太复杂

我想应该是ascii和unicode编码不一样造成的


具体原因还不知道~~~~~

Public Function EnDeCode(ByVal Source As String, ByVal Key As Integer) As String
Dim X As Single
Dim intCharNumber As Integer
Dim shtRADInt
Dim strChar As String
Dim strTmp As String
If Key < 0 Then
Key = Key * (-1)
End If
X = Rnd(-Key)
Dim i As Integer
For i = 1 To Len(Source) Step 1
strChar = Mid(Source, i, 1)
intCharNumber = Asc(strChar)
WhileEncode:
shtRADInt = Int(127 * Rnd())
If shtRADInt < 30 Or shtRADInt > 100 Then GoTo WhileEncode
intCharNumber = intCharNumber Xor shtRADInt
strTmp = strTmp & Chr(intCharNumber)
Next i
EnDeCode = strTmp
Exit Function
End Function


那就用这个看看， 加密解密 都这个函数!

好东西，不过这个相对于上面那个好像比较不那么安全，因为有重复密钥，比如20和-20结果是一样的！

不过对非高级应用来说足矣~~~~~

不知道有没有人见过密钥会变的加密机制？

谢谢

恐怕是在数字城堡里的旋转明码电文。。。