易語言對動態數據進行加密,具體方法如下:
.版本 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)
返回 (字節集數據中間)
.如果真結束