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