110.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 36 行

文本的加密与解密   
　　在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 Function
EDcodeError:
　　EDcode$ = "0"
End Function