求助易语言authcode算法文本无法加密

ww7996

把源码内解密文本 用加密成一样的 貌似是不支持的 可能是改过的吧

文本 ＝ “MDA1ZndhWmpncER0RllUYnh1c3ltemxMb0NYcitYYWM2ckpEcWdFdW9lenRPd2xTN3M2dzByUQ==”  ' 0|1720705415 解密后内容
调试输出 (authcode (文本, “3”, “DECODE”, ))

  

子程序名	返回值类型	公开	备 注
authcode	文本型
参数名	类 型	参考	可空	数组	备 注
文本_1	文本型
key1	文本型
key2	文本型
_参数4	整数型

变量名	类 型	静态	数组	备 注
_局部1	整数型
_局部2	文本型
_局部3	文本型
_局部4	文本型
_局部5	文本型
_局部6	整数型
_局部7	文本型
_局部8	文本型
_局部9	整数型
_局部10	文本型
_局部11	文本型		0
_局部12	整数型
_局部13	整数型
_局部14	文本型		0
_局部15	文本型
_局部16	整数型
_局部17	整数型
_局部18	字节集
_局部19	文本型
_局部20	字节集
_局部21	字节集

文本_1 ＝ 到文本 (编码_BASE64解码 (文本_1))
_局部1 ＝ 4
key1 ＝ 取数据摘要 (到字节集 (key1))
_局部2 ＝ 取数据摘要 (到字节集 (取文本中间 (key1, 1, 16)))
_局部3 ＝ 取数据摘要 (到字节集 (取文本中间 (key1, 17, 16)))
_局部7 ＝ 时间_取现行时间戳 (真)
_局部8 ＝ 取数据摘要 (到字节集 (_局部7))
_局部4 ＝ 选择 (_局部1 ＞ 0, 选择 (key2 ＝ “DECODE”, 取文本中间 (文本_1, 1, _局部1), 取文本中间 (_局部8, 取整 (取文本长度 (_局部8) － _局部1 ＋ 1), 取文本长度 (_局部8))), “”)
_局部5 ＝ _局部2 ＋ 取数据摘要 (到字节集 (_局部2 ＋ _局部4))
_局部6 ＝ 取文本长度 (_局部5)
_局部18 ＝ 编码_BASE64解码 (编码_gb2312到utf8 (取文本中间 (文本_1, _局部1 ＋ 1, 取文本长度 (文本_1))), 真)
_局部9 ＝ 取字节集长度 (_局部18)
计次循环首 (256, _局部12)
加入成员 (_局部11, 到文本 (_局部12 － 1))
计次循环尾 ()
变量循环首 (0, 255, 1, _局部12)
加入成员 (_局部14, 到文本 (取代码 (_局部5, _局部12 ％ _局部6 ＋ 1)))
变量循环尾 ()
_局部13 ＝ 0
变量循环首 (1, 256, 1, _局部12)
_局部13 ＝ (_局部13 ＋ 到整数 (_局部11 [_局部12]) ＋ 到整数 (_局部14 [_局部12])) ％ 256
_局部15 ＝ 到文本 (取整 (到整数 (_局部11 [_局部12])))
_局部11 [_局部12] ＝ 到文本 (到整数 (_局部11 [_局部13 ＋ 1]))
_局部11 [_局部13 ＋ 1] ＝ _局部15
变量循环尾 ()
_局部13 ＝ 0
_局部21 ＝ 到字节集 (文本_1)
变量循环首 (1, _局部9, 1, _局部12)
_局部16 ＝ (_局部16 ＋ 1) ％ 256
_局部13 ＝ (_局部13 ＋ 到整数 (_局部11 [_局部16 ＋ 1])) ％ 256
_局部15 ＝ _局部11 [_局部16 ＋ 1]
_局部11 [_局部16 ＋ 1] ＝ _局部11 [_局部13 ＋ 1]
_局部11 [_局部13 ＋ 1] ＝ _局部15
_局部17 ＝ 取整 (到整数 (_局部11 [_局部16 ＋ 1]) ＋ 到整数 (_局部11 [_局部13 ＋ 1])) ％ 256
_局部10 ＝ _局部10 ＋ 字符 (位异或 (_局部18 [_局部12], 到整数 (_局部11 [_局部17 ＋ 1])))
变量循环尾 ()
判断 ( (到整数 (取文本中间 (_局部10, 1, 10)) ＝ 0 或 取整 (到整数 (取文本中间 (_局部10, 1, 10)) － 到整数 (_局部7)) ＞ 0) 且 取文本中间 (_局部10, 11, 16) ＝ 取文本中间 (取数据摘要 (到字节集 (取文本中间 (_局部10, 27, 取文本长度 (_局部10)) ＋ _局部3)), 1, 16))
返回 (编码_utf8到gb2312 (取文本中间 (_局部10, 27, 取文本长度 (_局部10))))

返回 (“”)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 authcode, 文本型<br /> .参数 文本_1, 文本型<br /> .参数 key1, 文本型<br /> .参数 key2, 文本型, 可空<br /> .参数 _参数4, 整数型, 可空<br /> .局部变量 _局部1, 整数型<br /> .局部变量 _局部2, 文本型<br /> .局部变量 _局部3, 文本型<br /> .局部变量 _局部4, 文本型<br /> .局部变量 _局部5, 文本型<br /> .局部变量 _局部6, 整数型<br /> .局部变量 _局部7, 文本型<br /> .局部变量 _局部8, 文本型<br /> .局部变量 _局部9, 整数型<br /> .局部变量 _局部10, 文本型<br /> .局部变量 _局部11, 文本型, , "0"<br /> .局部变量 _局部12, 整数型<br /> .局部变量 _局部13, 整数型<br /> .局部变量 _局部14, 文本型, , "0"<br /> .局部变量 _局部15, 文本型<br /> .局部变量 _局部16, 整数型<br /> .局部变量 _局部17, 整数型<br /> .局部变量 _局部18, 字节集<br /> .局部变量 _局部19, 文本型<br /> .局部变量 _局部20, 字节集<br /> .局部变量 _局部21, 字节集<br /> <br /> 文本_1 ＝ 到文本 (编码_BASE64解码 (文本_1))<br /> _局部1 ＝ 4<br /> key1 ＝ 取数据摘要 (到字节集 (key1))<br /> _局部2 ＝ 取数据摘要 (到字节集 (取文本中间 (key1, 1, 16)))<br /> <br /> _局部3 ＝ 取数据摘要 (到字节集 (取文本中间 (key1, 17, 16)))<br /> <br /> _局部7 ＝ 时间_取现行时间戳 (真)<br /> <br /> _局部8 ＝ 取数据摘要 (到字节集 (_局部7))<br /> _局部4 ＝ 选择 (_局部1 ＞ 0, 选择 (key2 ＝ “DECODE”, 取文本中间 (文本_1, 1, _局部1), 取文本中间 (_局部8, 取整 (取文本长度 (_局部8) － _局部1 ＋ 1), 取文本长度 (_局部8))), “”)<br /> <br /> _局部5 ＝ _局部2 ＋ 取数据摘要 (到字节集 (_局部2 ＋ _局部4))<br /> _局部6 ＝ 取文本长度 (_局部5)<br /> <br /> <br /> _局部18 ＝ 编码_BASE64解码 (编码_gb2312到utf8 (取文本中间 (文本_1, _局部1 ＋ 1, 取文本长度 (文本_1))), 真)<br /> _局部9 ＝ 取字节集长度 (_局部18)<br /> <br /> <br /> .计次循环首 (256, _局部12)<br />     加入成员 (_局部11, 到文本 (_局部12 － 1))<br /> .计次循环尾 ()<br /> <br /> .变量循环首 (0, 255, 1, _局部12)<br />     加入成员 (_局部14, 到文本 (取代码 (_局部5, _局部12 ％ _局部6 ＋ 1)))<br /> .变量循环尾 ()<br /> _局部13 ＝ 0<br /> .变量循环首 (1, 256, 1, _局部12)<br />     _局部13 ＝ (_局部13 ＋ 到整数 (_局部11 [_局部12]) ＋ 到整数 (_局部14 [_局部12])) ％ 256<br />     _局部15 ＝ 到文本 (取整 (到整数 (_局部11 [_局部12])))<br />     _局部11 [_局部12] ＝ 到文本 (到整数 (_局部11 [_局部13 ＋ 1]))<br />     _局部11 [_局部13 ＋ 1] ＝ _局部15<br /> .变量循环尾 ()<br /> _局部13 ＝ 0<br /> _局部21 ＝ 到字节集 (文本_1)<br /> .变量循环首 (1, _局部9, 1, _局部12)<br />     _局部16 ＝ (_局部16 ＋ 1) ％ 256<br />     _局部13 ＝ (_局部13 ＋ 到整数 (_局部11 [_局部16 ＋ 1])) ％ 256<br />     _局部15 ＝ _局部11 [_局部16 ＋ 1]<br />     _局部11 [_局部16 ＋ 1] ＝ _局部11 [_局部13 ＋ 1]<br />     _局部11 [_局部13 ＋ 1] ＝ _局部15<br />     _局部17 ＝ 取整 (到整数 (_局部11 [_局部16 ＋ 1]) ＋ 到整数 (_局部11 [_局部13 ＋ 1])) ％ 256<br /> <br />     _局部10 ＝ _局部10 ＋ 字符 (位异或 (_局部18 [_局部12], 到整数 (_局部11 [_局部17 ＋ 1])))<br /> <br /> <br /> .变量循环尾 ()<br /> <br /> .判断开始 ((到整数 (取文本中间 (_局部10, 1, 10)) ＝ 0 或 取整 (到整数 (取文本中间 (_局部10, 1, 10)) － 到整数 (_局部7)) ＞ 0) 且 取文本中间 (_局部10, 11, 16) ＝ 取文本中间 (取数据摘要 (到字节集 (取文本中间 (_局部10, 27, 取文本长度 (_局部10)) ＋ _局部3)), 1, 16))<br />     返回 (编码_utf8到gb2312 (取文本中间 (_局部10, 27, 取文本长度 (_局部10))))<br /> <br /> .默认<br />     返回 (“”)<br /> .判断结束