易语言超级算法转php,易语言 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

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)