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

博主:xiaoweixiaowei 2022-12-19 条评论

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

.版本 2

.支持库 spec

.支持库 dp1

.程序集 程序集1

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

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

调试输出 (加密文件头 (“123.exe”, “123”, ))

调试输出 (解密文件头 (“123.exe”, “123”))

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

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

.参数 文件路径, 文本型

.参数 密码, 文本型

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

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

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

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

.如果真 (文件号 = 0)

返回 (假)

.如果真结束

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

欲加密文件头长度 = 1024

.如果真结束

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

移到文件首 (文件号)

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

移到文件首 (文件号)

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

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

关闭文件 (文件号)

返回 (真)

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

.参数 文件路径, 文本型

.参数 密码, 文本型

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

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

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

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

.如果真 (文件号 = 0)

返回 (假)

.如果真结束

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

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

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

移到文件首 (文件号)

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

移到文件首 (文件号)

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

关闭文件 (文件号)

返回 (真)

The End

发布于:2022-12-19,除非注明,否则均为 主机评测原创文章,转载请注明出处。