使用易语言对大文件数据进行加密,具体方法如下:.版本 2.支持库 spec.支持库 dp1.程序集 程序集1.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行.局部变量 文件号, 整数型调试输出 (加密文件头 (“123.
使用易语言对大文件数据进行加密,具体方法如下:
.版本 2
.支持库 spec
.支持库 dp1
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 文件号, 整数型
调试输出 (加密文件头 (“123.exe”, “123”, ))
调试输出 (解密文件头 (“123.exe”, “123”))
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 加密文件头, 逻辑型
.参数 文件路径, 文本型
.参数 密码, 文本型
.参数 欲加密文件头长度, 整数型, 可空
.局部变量 文件号, 整数型
.局部变量 文件头, 字节集
文件号 = 打开文件 (文件路径, #读写, )
.如果真 (文件号 = 0)
返回 (假)
.如果真结束
.如果真 (欲加密文件头长度 ≤ 0)
欲加密文件头长度 = 1024
.如果真结束
文件头 = 读入字节集 (文件号, 欲加密文件头长度)
移到文件首 (文件号)
删除数据 (文件号, 欲加密文件头长度)
移到文件首 (文件号)
文件头 = 加密数据 (文件头, 密码, #DES算法)
插入字节集 (文件号, 到字节集 (取字节集长度 (文件头)) + 文件头)
关闭文件 (文件号)
返回 (真)
.子程序 解密文件头, 逻辑型
.参数 文件路径, 文本型
.参数 密码, 文本型
.局部变量 文件号, 整数型
.局部变量 文件头, 字节集
.局部变量 文件头长度, 整数型
文件号 = 打开文件 (文件路径, #读写, )
.如果真 (文件号 = 0)
返回 (假)
.如果真结束
文件头长度 = 取字节集数据 (读入字节集 (文件号, 4), #整数型, )
文件头 = 读入字节集 (文件号, 文件头长度)
文件头 = 解密数据 (文件头, 密码, #DES算法)
移到文件首 (文件号)
删除数据 (文件号, 文件头长度 + 4)
移到文件首 (文件号)
插入字节集 (文件号, 文件头)
关闭文件 (文件号)
返回 (真)
--结束END--
本文标题: 易语言怎么加密大文件数据
本文链接: https://www.lsjlt.com/news/114699.html(转载时请注明来源链接)
有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341
下载Word文档到电脑,方便收藏和打印~
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
2024-05-05
回答
回答
回答
回答
回答
回答
回答
回答
回答
回答
0