vb中字符串的加密与解密
请问vb中字符串的加密与解密怎样写？
请给个实例
谢谢！
[解决办法]
上学的时候，老师教的将字母表倒过来。 我想就是简单的加密了。
[解决办法]
来一个异或运算！
[解决办法]
Public Function StrEncrypt(StrPwd As String) As String
Dim I As Integer
On Error Resume Next
If IsNull(StrPwd) Then
StrEncrypt = Null
Else
StrEncrypt = " "
For I = 1 To Len(StrPwd)
StrEncrypt = StrEncrypt & Chr(128 - Asc(Mid(StrPwd, I, 1)))
Next
End If
End Function
[解决办法]
一个很好的例子，http://www.code365.com/tupian/2005/12/14/200512142119427061.zip
