• 欢迎访问金刀客博客!
  • 2019,春节快乐!

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

原创天空 admin 1833次浏览 已收录 2个评论

 

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

翻了一下,硬盘角落

主要代码:

 

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


金刀客博客 , 版权所有丨如未注明 , 均为原创丨本网站采用BY-NC-SA协议进行授权 , 转载请注明【原创文章】雷驰加解密工具源代码
喜欢 (84)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到
(2)个小伙伴在吐槽
  1. 啊以前可以登录这个博客的,现在怎么没有登录选项了?
    匿名2021-09-17 15:16 (14小时前)回复
  2. 先下载备用。
    匿名2021-09-17 15:15 (14小时前)回复