| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| DecryptStr | 文本型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| data | 文本型 | key | 整数型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| RStr | 字节集 | |||||
| RStrB | 字节集 | |||||
| i | 整数型 | |||||
| tmpStr | 文本型 | |||||
| tmpKey | 整数型 | |||||
| k | 整数型 | |||||
| CKEY1 | 整数型 | |||||
| CKEY2 | 整数型 | |||||
| Result | 文本型 | |||||
RStrB ＝ RStr
tmpStr ＝ 到大写 (data)
RStrB ＝ 字节集_十六进制到字节集 (tmpStr)
k ＝ key
CKEY1 ＝ 1239 ' 可自定义
CKEY2 ＝ 5648 ' 可自定义
计次循环首 (取字节集长度 (RStr), i)
tmpKey ＝ RStrB [i]RStrB [i] ＝ 位异或 (RStrB [i], 右移 (k, 8))k ＝ (tmpKey ＋ k) × CKEY1 ＋ CKEY2
计次循环尾 ()Result ＝ UTF8到文本 (RStrB)
返回 (Result)
