楼上的全是大佬呀 我就比较慢 
[Asm] 纯文本查看 复制代码 .版本 2
.支持库 spec
.支持库 encryption
.支持库 dp1
.子程序 __启动窗口_创建完毕
.局部变量 http, 文本型
.局部变量 key, 文本型
调试输出 (加密算法 (“woaini”, “123456”))
调试输出 (加密算法 (“http://chikuapi123.xuelun.me/api.php?pw=”, “123456”))
key ＝ 解密算法 (“677F71797E790ADC3949B”, “123456”)
调试输出 (key)
调试输出 (解密算法 (“786464602A3F3F7378797B657160792122233E6865757C657E3E7D753F7160793E6078602F60672D0ADC3949B”, “123456”) ＋ 加密算法 (“woaini”, “123456”))
编辑框1.内容 ＝ key
.子程序 解密算法, 文本型
.参数 text, 文本型
.参数 密钥, 文本型
.局部变量 a, 字节集
.局部变量 b, 整数型
.局部变量 i, 整数型
.局部变量 c, 字节集
a ＝ 十六进制文本转为字节集 (子文本替换 (text, 到大写 (取文本中间 (取数据摘要 (到字节集 (密钥)), 3, 9)), , , , 真))
b ＝ 取字节集长度 (a)
c ＝ 取空白字节集 (b)
.计次循环首 (b, i)
c [i] ＝ 到字节 (位异或 (a [i], 3600))
.计次循环尾 ()
返回 (到文本 (c))
.子程序 加密算法, 文本型
.参数 text, 文本型
.参数 密钥, 文本型
.局部变量 a, 字节集
.局部变量 b, 整数型
.局部变量 i, 整数型
.局部变量 c, 字节集
a ＝ 到字节集 (text)
b ＝ 取字节集长度 (a)
c ＝ 取空白字节集 (b)
.计次循环首 (b, i)
c [i] ＝ 到字节 (位异或 (a [i], 3600))
.计次循环尾 ()
返回 (字节集转为16进制文本 (c) ＋ 到大写 (取文本中间 (取数据摘要 (到字节集 (密钥)), 3, 9)))
| 
发表于 2020-6-23 11:54
|
发表于 2020-6-23 15:36
