易语言 PHP RC4算法同步应用源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 URL, 文本型

.子程序 __启动窗口_创建完毕

URL ＝ “http://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”)
返回 (数据)

@byHandsome