易语言字节集动态加密

点击阅读原文

---

原理很简单：

字节集1（n位随机字节集）   字节集2（m位随机字节集）

被加密字节集=字节集1+被加密字节集+字节集2

被加密字后的字节集=加密（被加密字节集，密码）

解密后的字节集=解密（被解密字节集，密码）

解密后的字节集=字节集1+被加密字节集+字节集2

解密后的字节集=取字节集中间（解密后的字节集，n+1，取字节集长度 (解密后的字节集) -m-n）

.版本 2
.支持库 dp1

.子程序 加密_加密or解密, 字节集
.参数 字节集数据, 字节集
.参数 加密or解密, 整数型, , 1加密,2解密
.局部变量 密码文本, 文本型
.局部变量 加密算法, 整数型
.局部变量 word, 文本型
.局部变量 mima1, 文本型
.局部变量 mima2, 文本型
.局部变量 字节集数据中间, 字节集


.如果真 (加密or解密 ≠ 1 或 加密or解密 ≠ 2)
    返回 (字节集数据)
.如果真结束

word ＝ “0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz!#$%'()*+,-./:;<=>?@[\]^_`{|}~&”
.计次循环首 (5, )
    mima1 ＝ mima1 ＋ 取文本中间 (word, 取随机数 (1, 93), 1)
    mima2 ＝ mima2 ＋ 取文本中间 (word, 取随机数 (1, 93), 1)
.计次循环尾 ()
密码文本 ＝ “www”
加密算法 ＝ 1
.如果真 (加密or解密 ＝ 1)
    字节集数据中间 ＝ 到字节集 (mima1) ＋ 字节集数据 ＋ 到字节集 (mima2)
    返回 (加密数据 (字节集数据中间, 密码文本, 加密算法))
.如果真结束
.如果真 (加密or解密 ＝ 2)
    字节集数据中间 ＝ 解密数据 (字节集数据, 密码文本, 加密算法)
    字节集数据中间 ＝ 取字节集中间 (字节集数据中间, 6, 取字节集长度 (字节集数据中间) － 10)
    返回 (字节集数据中间)
.如果真结束