Question

vb 加密算法

Answer 1

加密有许多的方法。最基础的一种就是利用对应表。
比如我对应
A 对 B
B 对 D
C 对 E
D 对 C
┇
┇
然后可以把他存在数组里，使用时对应即可。比如
Dim Mi(25) As String
Mi(0)="B"
Mi(1)="D"
：
：
：
如果要加密文字s$，产生新的字符串r$,就可以
s$=UCase(s$)
For i=1 to Len(s$)
r$=r$+Mi(Asc(Mid(s$,i,1)-64)
Next i

也可以使用Xor法。
Xor（异或）有加/解密的功能。
如果
s=p Xor k
则有
p=s Xor k
k为密钥。