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

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

原创天空 admin 19069次浏览 已收录 4个评论

 

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

翻了一下,硬盘角落

主要代码:

 

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协议进行授权 , 转载请注明【原创文章】雷驰加解密工具源代码
喜欢 (448)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到
(4)个小伙伴在吐槽
  1. e签到成功!签到时间:2024-03-14 16:36:29,每日打卡,生活更精彩哦~
    匿名2024-03-14 16:37 (5天前)回复
  2. 老哥 看你弄了这么多软件好厉害啊。 我有个软件 我买过几个小会员 没用几天 然后商家跑路了,软件服务器关闭了,连不上去 用不了。 你能做成一个打补丁版本可以本地用的么? 方便看下么?https://haodezhe.lanzouw.com/iD0f30h9joza 谢谢老哥!
    匿名2022-11-29 22:44 回复
  3. 啊以前可以登录这个博客的,现在怎么没有登录选项了?
    匿名2021-09-17 15:16 回复
  4. 先下载备用。
    匿名2021-09-17 15:15 回复