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