文本到数组 (内容 + “ ”, 密文组)
重定义数组 (原文组, 假, 取数组成员数 (密文组))
重定义数组 (位置组, 假, 取数组成员数 (原文组))
种子 = 取文本ASCII数 (密匙)
.计次循环首 (取数组成员数 (密文组), 循环记录)
取数组满位序号 (密文组, 位置组)
置随机数种子 (种子)
序号 = 位置组 [取随机数 (1, 取数组成员数 (位置组))]
原文组 [循环记录] = 密文组 [序号]
密文组 [序号] = “”
.计次循环尾 ()
.计次循环首 (取数组成员数 (原文组), 循环记录)
解密文本 = 解密文本 + 原文组 [循环记录]
.计次循环尾 ()
返回 (十六进制转换B (替换字符 (解密文本)))
下一篇 键盘记录函数,分别对应导出