易语言 动态加密解密（源码）

.版本 2 .如果真 (密钥长度 ＞ 0) 位于数值 ＝ 1 位于数值 ＝ 位异或 (取字节集数据 (_待解密字节集, #整数型, 位于数值), 取字节集数据 (_待解密字节集, #整数型, 位于数值)) 位于数值 ＝ 位取反 (位于数值) _待解密字节集 ＝ 取字节集右边 (_待解密字节集, 封包长度 － 4) .计次循环首 (4, i) 密钥时间 [i] ＝ _待解密字节集 [i] 时间密钥 [i] ＝ 位异或 (_待解密字节集 [i], 位于数值) .计次循环尾 () 封包长度 ＝ 封包长度 － 8 _待解密字节集 ＝ 取字节集右边 (_待解密字节集, 封包长度) .计次循环首 (密钥长度, i) 整位 ＝ 整位 ＋ 1 .如果真 (整位 ＞ 4) 整位 ＝ 1 .如果真结束 密钥字节 [i] ＝ 位异或 (密钥字节 [i], 密钥时间 [整位]) .计次循环尾 () .计次循环首 (封包长度, i) 整位 ＝ 整位 ＋ 1 .如果真 (整位 ＞ 4) 整位 ＝ 1 .如果真结束 _待解密字节集 [i] ＝ 位异或 (_待解密字节集 [i], 时间密钥 [整位]) .计次循环首 (密钥长度, n) _待解密字节集 [i] ＝ 位异或 (_待解密字节集 [i], 密钥字节 [n]) .计次循环尾 () .计次循环尾 () 返回 (_待解密字节集)