.版本 2 .支持库 dp1 .程序集 窗口程序集1 .程序集变量 l, 字节集 .子程序 _按钮1_被单击 .局部变量 jm, 整数型 .局部变量 循环变量, 整数型 .局部变量 l2, 文本型 .判断开始 (组合框1.现行选中项 ＝ 0) jm ＝ 1 .默认 jm ＝ 2 .判断结束 l ＝ 到字节集 (删全部空 (编辑框1.内容)) l ＝ 加密数据 (l, 编辑框5.内容, jm) 编辑框3.内容 ＝ 到文本 (l) l2 ＝ “{” .计次循环首 (取字节集长度 (l), 循环变量) .判断开始 (循环变量 ＝ 取字节集长度 (l)) l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “}” .默认 l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “,” .判断结束 处理事件 () .计次循环尾 () 编辑框2.内容 ＝ “到文本 (解密数据 (” ＋ l2 ＋ “,” ＋ 编辑框5.内容 ＋ “,” ＋ 到文本 (jm) ＋ “ ))” 编辑框4.内容 ＝ l2 .子程序 _按钮2_被单击 .局部变量 jm, 整数型 .局部变量 循环变量, 整数型 .局部变量 l2, 文本型 .判断开始 (组合框1.现行选中项 ＝ 0) jm ＝ 1 .默认 jm ＝ 2 .判断结束 ' l ＝ 到字节集 (编辑框1.内容) l ＝ 解密数据 (l, 编辑框5.内容, jm) 编辑框3.内容 ＝ 到文本 (l) l2 ＝ “{” .计次循环首 (取字节集长度 (l), 循环变量) .判断开始 (循环变量 ＝ 取字节集长度 (l)) l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “}” .默认 l2 ＝ l2 ＋ 到文本 (位与 (255, 取代码 (到文本 (l), 循环变量))) ＋ “,” .判断结束 处理事件 () .计次循环尾 () 编辑框2.内容 ＝ “到文本 (加密数据 (” ＋ l2 ＋ “,” ＋ 编辑框5.内容 ＋ “,” ＋ 到文本 (jm) ＋ “ ))” 编辑框4.内容 ＝ l2