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