.版本 2
.支持库 dp1
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 动态_加密, 文本型, 公开
.参数 原文本, 文本型
.参数 加密秘钥, 文本型
.参数 扰乱文本, 文本型
.局部变量 局_字节集, 字节集
.局部变量 a, 文本型
局_字节集 ＝ 到字节集 (原文本)
局_字节集 ＝ 加密数据 (局_字节集, 加密秘钥, #DES算法)
局_字节集 ＝ 局_字节集 ＋ 编码_BASE64解码 (扰乱文本)
原文本 ＝ 编码_BASE64编码 (局_字节集)
返回 (原文本)
.子程序 动态_解密, 文本型
.参数 原文本, 文本型
.参数 解密秘钥, 文本型
.参数 扰乱文本字节集长度, 整数型
.局部变量 局_字节集, 字节集
局_字节集 ＝ 编码_BASE64解码 (原文本)
局_字节集 ＝ 子字节集替换 (局_字节集, 取字节集右边 (局_字节集, 扰乱文本字节集长度), , , )
局_字节集 ＝ 解密数据 (局_字节集, 解密秘钥, #DES算法)
原文本 ＝ 到文本 (局_字节集)
返回 (原文本)
.子程序 _按钮1_被单击
.局部变量 扰乱文本, 文本型
置随机数种子 ()
扰乱文本 ＝ 到文本 (取随机数 (11111, 99999)) ＋ “,” ＋ 到文本 (取随机数 (11111, 99999)) ＋ “,” ＋ 到文本 (取随机数 (11111, 99999)) ＋ “,” ＋ 到文本 (取随机数 (11111, 99999))
调试输出 (取字节集长度 (编码_BASE64解码 (扰乱文本)))
编辑框2.内容 ＝ 编辑框2.内容 ＋ 动态_加密 (编辑框1.内容, “加密文本”, 扰乱文本) ＋ #换行符
.子程序 _按钮2_被单击
.局部变量 扰乱文本长度, 整数型
编辑框2.内容 ＝ 动态_解密 (编辑框1.内容, “加密文本”, 18)
@人善帝王心
文件下载
解压密码：
Tags：动态加解密
来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)
原文链接：https://blog.csdn.net/weixin_39583655/article/details/117238326?ops_request_misc=%257B%2522request%255Fid%2522%253A%2522167042854316800180664292%2522%252C%2522scm%2522%253A%252220140713.130102334.pc%255Fblog.%2522%257D&request_id=167042854316800180664292&biz_id=0&utm_medium=distribute.pc_search_result.none-task-blog-2~blog~first_rank_ecpm_v1~times_rank-16-117238326-null-null.nonecase&utm_term=%E6%98%93%E8%AF%AD%E8%A8%80%E6%BA%90%E7%A0%81
