易语言怎么加密大文件数据

　　使用易语言对大文件数据进行加密，具体方法如下：

　　.程序集 程序集1

　　.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

　　.局部变量 文件号, 整数型

　　返回 (0) 可以根据您的需要返回任意数值

　　.子程序 加密文件头, 逻辑型

　　.参数 文件路径, 文本型

　　.参数 密码, 文本型

　　.参数 欲加密文件头长度, 整数型, 可空

　　.局部变量 文件号, 整数型

　　.局部变量 文件头, 字节集

　　文件号 ＝ 打开文件 (文件路径, #读写, )

　　.如果真结束

　　.如果真 (欲加密文件头长度 ≤ 0)

　　欲加密文件头长度 ＝ 1024

　　.如果真结束

　　文件头 ＝ 读入字节集 (文件号, 欲加密文件头长度)

　　移到文件首 (文件号)

　　删除数据 (文件号, 欲加密文件头长度)

　　移到文件首 (文件号)

　　文件头 ＝ 加密数据 (文件头, 密码, #DES算法)

　　插入字节集 (文件号, 到字节集 (取字节集长度 (文件头)) ＋ 文件头)

　　关闭文件 (文件号)

　　.子程序 解密文件头, 逻辑型

　　.参数 文件路径, 文本型

　　.参数 密码, 文本型

　　.局部变量 文件号, 整数型

　　.局部变量 文件头, 字节集

　　.局部变量 文件头长度, 整数型

　　文件号 ＝ 打开文件 (文件路径, #读写, )

　　.如果真结束

　　文件头长度 ＝ 取字节集数据 (读入字节集 (文件号, 4), #整数型, )

　　文件头 ＝ 读入字节集 (文件号, 文件头长度)

　　文件头 ＝ 解密数据 (文件头, 密码, #DES算法)

　　移到文件首 (文件号)

　　删除数据 (文件号, 文件头长度 ＋ 4)

　　移到文件首 (文件号)

　　插入字节集 (文件号, 文件头)

　　关闭文件 (文件号)易语言怎么加密大文件数据