ranencode.txt

来自「随即加密算法」· 文本 代码 · 共 48 行

'该函数只对中西文起到加密作用
'黄冠
'06-4-1

Sub EnCode(strSource, MA)
'参数为：源文件，密码
Dim X
Dim CHARNUM, RANDOMINTEGER
Dim SINGLECHAR
If MA < 0 Then
MA = MA * (-1)
End If
X = Rnd(-MA)
For i = 1 To Len(strSource) Step 1 '取单字节内容
SINGLECHAR = Mid(strSource, i, 1)
CHARNUM = Asc(SINGLECHAR)
do
RANDOMINTEGER = Int(127 * Rnd)
loop while RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Or RANDOMINTEGER = CHARNUM
CHARNUM = CHARNUM Xor RANDOMINTEGER
response.Write(Chr(CHARNUM))
Next
'response.Write(Err.Number & "\" & Err.Description) 
End Sub

'这个比较安全,不同之处是
'loop while RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Or RANDOMINTEGER = CHARNUM

Sub EnCode(strSource, MA)
'参数为：源文件，密码
Dim X
Dim CHARNUM, RANDOMINTEGER
Dim SINGLECHAR
If MA < 0 Then
MA = MA * (-1)
End If
X = Rnd(-MA)
For i = 1 To Len(strSource) Step 1 '取单字节内容
SINGLECHAR = Mid(strSource, i, 1)
CHARNUM = Asc(SINGLECHAR)
do
RANDOMINTEGER = Int(127 * Rnd)
loop while RANDOMINTEGER < 30 Or RANDOMINTEGER > 100
CHARNUM = CHARNUM Xor RANDOMINTEGER
response.Write(Chr(CHARNUM))
Next
'response.Write(Err.Number & "\" & Err.Description) 
End Sub