易语言动态加解密例子源码

.版本 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)

@人善帝王心