文本的加密与解密

• 关 键 词：

加密和解密，根据异或逻辑运算，加密和解密可以是同一个过程。

　　加密与解密函数代码如下。

'加密与解密函数说明:

'　　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 FunctionURl收藏 http://www.qqread.com/vb/y238212.html 更多内容请看加密与解密技术、常用软件加密宝典、数据加密技术专题，或进入讨论组讨论。

【深 度 阅 读】 相 关 文 章

C#加密与解密

软件狗[Dongles]的加密技术(1)

软件狗[Dongles]的加密技术(2)

软件狗[Dongles]的加密技术(6)