vb中字符串的加密与解密

[paradise885]

请问vb中字符串的加密与解密怎样写？
请给个实例

谢谢！

[cangwu_lee]

上学的时候，老师教的将字母表倒过来。 我想就是简单的加密了。

[guyehanxinlei]

来一个异或运算！

[deallylau]

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

[paradise885]

楼上的解密怎么写呢？

谢谢！

[caterp]

一个很好的例子，http://www.code365.com/tupian/2005/12/14/200512142119427061.zip

[caterp]

加解密的都有了，一看就会