使用易語言對大文件數據進行加密，具體方法如下：
.版本 2
.支持庫 spec
.支持庫 dp1
.程序集 程序集1
.子程序 _啟動子程序, 整數型, , 本子程序在程序啟動后最先執行
.局部變量 文件號, 整數型
調試輸出 (加密文件頭 (“123.exe”, “123”, ))
調試輸出 (解密文件頭 (“123.exe”, “123”))
返回 (0) ' 可以根據您的需要返回任意數值
.子程序 加密文件頭, 邏輯型
.參數 文件路徑, 文本型
.參數 密碼, 文本型
.參數 欲加密文件頭長度, 整數型, 可空
.局部變量 文件號, 整數型
.局部變量 文件頭, 字節集
文件號 ＝ 打開文件 (文件路徑, #讀寫, )
.如果真 (文件號 ＝ 0)
返回 (假)
.如果真結束
.如果真 (欲加密文件頭長度 ≤ 0)
欲加密文件頭長度 ＝ 1024
.如果真結束
文件頭 ＝ 讀入字節集 (文件號, 欲加密文件頭長度)
移到文件首 (文件號)
刪除數據 (文件號, 欲加密文件頭長度)
移到文件首 (文件號)
文件頭 ＝ 加密數據 (文件頭, 密碼, #DES算法)
插入字節集 (文件號, 到字節集 (取字節集長度 (文件頭)) ＋ 文件頭)
關閉文件 (文件號)
返回 (真)
.子程序 解密文件頭, 邏輯型
.參數 文件路徑, 文本型
.參數 密碼, 文本型
.局部變量 文件號, 整數型
.局部變量 文件頭, 字節集
.局部變量 文件頭長度, 整數型
文件號 ＝ 打開文件 (文件路徑, #讀寫, )
.如果真 (文件號 ＝ 0)
返回 (假)
.如果真結束
文件頭長度 ＝ 取字節集數據 (讀入字節集 (文件號, 4), #整數型, )
文件頭 ＝ 讀入字節集 (文件號, 文件頭長度)
文件頭 ＝ 解密數據 (文件頭, 密碼, #DES算法)
移到文件首 (文件號)
刪除數據 (文件號, 文件頭長度 ＋ 4)
移到文件首 (文件號)
插入字節集 (文件號, 文件頭)
關閉文件 (文件號)
返回 (真)
