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