vb 加密算法
发布网友
发布时间：2022-05-14 05:02
共1个回答
热心网友
时间：2024-02-24 07:17
比如我对应
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为密钥。
