窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 文件号 | 整数型 | | 文件头 | 字节集 | | packd04 | 文本型 | | 上级目录 | 文本型 | |
上级目录 = 目录_取父路径 (取运行目录 ()) packd04 = 取运行目录 () + “\data\pack.d04”加密文件头 (packd04, “123”, )|
加密文件头 | 逻辑型 | | |
文件路径 | 文本型 | | | | 密码 | 文本型 | | | | 欲加密文件头长度 | 整数型 | | | |
文件号 = 打开文件 (文件路径, #读写, )如果真 (文件号 = 0 )返回 (假)如果真 (欲加密文件头长度 ≤ 0 )欲加密文件头长度 = 1024 文件头 = 读入字节集 (文件号, 欲加密文件头长度)移到文件首 (文件号 )删除数据 (文件号, 欲加密文件头长度 )移到文件首 (文件号 )文件头 = 加密数据 (文件头, 密码, #DES算法 )插入字节集 (文件号, 到字节集 (取字节集长度 (文件头 )) + 文件头 )关闭文件 (文件号 )返回 (真)解密文件头 (packd04, “123”)变量名 | 类 型 | 静态 | 数组 | 备 注 | 文件号 | 整数型 | | | 文件头 | 字节集 | | | 文件头长度 | 整数型 | | |
文件号 = 打开文件 (文件路径, #读写, )如果真 (文件号 = 0 )返回 (假)文件头长度 = 取字节集数据 (读入字节集 (文件号, 4), #整数型, )文件头 = 读入字节集 (文件号, 文件头长度 )文件头 = 解密数据 (文件头, 密码, #DES算法 ) 移到文件首 (文件号 )删除数据 (文件号, 文件头长度 + 4 )移到文件首 (文件号 )插入字节集 (文件号, 文件头 )关闭文件 (文件号 )返回 (真)
如何在解密的时候验证是否加密,如果加密了就解密,如果没有就继续运行,帮忙解决下 感谢!!!
|