.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 URL, 文本型 .子程序 __启动窗口_创建完毕 URL ＝ “//127.0.0.1/rc4/” .子程序 _按钮1_被单击 .如果真 (加密.选中 ＝ 真) .如果 (转码.选中 ＝ 真) 本地加密.内容 ＝ BASE64_编码 (RC4加密 (本地明文框.内容, 秘钥编辑框.内容)) .否则 本地加密.内容 ＝ RC4加密 (本地明文框.内容, 秘钥编辑框.内容) .如果结束 PHP加密.内容 ＝ PHP加密 (本地明文框.内容, 转码.选中) .如果真结束 .如果真 (解密.选中 ＝ 真) .如果 (转码.选中 ＝ 真) 本地明文框.内容 ＝ RC4解密 (BASE64_解码 (本地加密.内容), 秘钥编辑框.内容) .否则 本地明文框.内容 ＝ RC4解密 (本地加密.内容, 秘钥编辑框.内容) .如果结束 PHP明文框.内容 ＝ PHP解密 (PHP加密.内容, 转码.选中) .如果真结束 .子程序 PHP加密, 文本型 .参数 明文, 文本型 .参数 是否转码, 逻辑型 .局部变量 数据, 文本型 .局部变量 Json, 类_json .局部变量 b64, 文本型 .判断开始 (是否转码 ＝ 真) b64 ＝ “yes” .默认 b64 ＝ “no” .判断结束 数据 ＝ 网页_取网页源码 (URL ＋ “rc4.php?act=encode&b64=” ＋ b64 ＋ “&data=” ＋ 明文) Json.解析 (数据) 数据 ＝ Json.取通用属性 (“msg”) 返回 (数据) .子程序 PHP解密, 文本型 .参数 密文, 文本型 .参数 是否转码, 逻辑型 .局部变量 数据, 文本型 .局部变量 Json, 类_json .局部变量 b64, 文本型 .判断开始 (是否转码 ＝ 真) b64 ＝ “yes” .默认 b64 ＝ “no” .判断结束 数据 ＝ 网页_取网页源码 (URL ＋ “rc4.php?act=decode&b64=” ＋ b64 ＋ “&data=” ＋ 密文) Json.解析 (数据) 数据 ＝ Json.取通用属性 (“msg”) 返回 (数据)