文本的加密与解密 文本的加密与解密 　　在VB中，由于随机数生成器是伪随机数，所以根据其原理可以用于文本的加密和解密，根据异或逻辑运算，加密和解密可以是同一个过程。　　加密与解密函数代码如下。'加密与解密函数说明:'　　CharSting　　加密或解密的数据'　　Key　　　　　加密或解密的密钥'函数返回值:'　　1. CharString为空时返回"1"'　　2. 加密或解密失败返回"0"'　　3. 成功则返回加密或解密后的字符串Public Function EDcode$(CharString As String, Key As Integer)　　Dim X As Single, i As Long　　Dim CharNum As Integer, RandomInteger As Integer　　Dim CharSingle As String * 1　　On Local Error GoTo EDcodeError　　EDcode$ = ""　　If Len(CharString) = 0 Then　　　　EDcode$ = "1"　　　　Exit Function　　End If　　X = Rnd(-Key)　　For i = 1 To Len(CharString)　　　　CharSingle = Mid$(CharString, i, 1)　　　　CharNum = Asc(CharSingle)　　　　RandomInteger = Int(256 * Rnd) And &H7F　　　　CharNum = CharNum Xor RandomInteger　　　　CharSingle = Chr$(CharNum)　　　　EDcode$ = EDcode$ + CharSingle　　Next i　　Exit FunctionEDcodeError:　　EDcode$ = "0"End Function 　 ]

评论