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