【原创文章】雷驰加解密工具源代码

多少年没有玩了，今天有个朋友问起雷池加解密的事情

翻了一下，硬盘角落

主要代码：

Function decrypt(dcode)
Dim texts
Dim i
For i = 1 To Len(dcode)
texts = texts & Chr(Asc(Mid(dcode, i, 2)) - i)
Next
decrypt = texts
End Function
Function encrypt(ecode)
Dim texts
Dim i
For i = 1 To Len(ecode)
texts = texts & Chr(Asc(Mid(ecode, i, 2)) + i)
Next
encrypt = texts
End Function

雷驰加解密工具源代码工程文件：
2021050914300288