vb中字符串的加密与解密

Question

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

Answer 1

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

Answer 2

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