检测.rar或.zip文件是否有密码

dennie

1个rar或者zip的压缩包，如何可以在不打开的情况下，检测是否有密码？用易语言可以实现吗？没有找到相关的模块，请各位指教。

憨憨问号

rar_初始化(, )
rar_解压(, , , , , )‘解压压缩包，成功返回空文本，失败返回错误提示。’
解压时不要输入密码，如果返回的是错误提示说明有密码不能解压，如果没返回说明成功解压了没密码，然后再把解压出的文件删除即可

补充内容 (2025-2-18 23:14):
需要精易模块

LWB666

  

子程序名	返回值类型	公开	备 注
是否ZIP加密	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
头信息	字节集
标志位	整数型

文件号 ＝ 打开文件 (文件路径, #读入, )
如果真 (文件号 ＝ 0)
返回 (假)

移到文件首 (文件号)
头信息 ＝ 读入字节集 (文件号, 30)  ' 读取30字节足够获取头信息
关闭文件 (文件号)
如果真 (取字节集长度 (头信息) ＜ 30)
返回 (假)

' 检查ZIP文件签名（PK头）
如果真 (取字节集左边 (头信息, 4) ≠ { 80, 75, 3, 4 })
返回 (假)  ' 不是ZIP文件

' 获取通用位标记（第6-7字节）
标志位 ＝ 取字节集数据 (取字节集中间 (头信息, 7, 2), #短整数型, )
' 检查第0位是否设置（加密标志）
返回 (位与 (标志位, 1) ≠ 0)

.版本 2<br /> <br /> .子程序 是否ZIP加密, 逻辑型<br /> .参数 文件路径, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 头信息, 字节集<br /> .局部变量 标志位, 整数型<br /> <br /> 文件号 ＝ 打开文件 (文件路径, #读入, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> 移到文件首 (文件号)<br /> 头信息 ＝ 读入字节集 (文件号, 30)  ' 读取30字节足够获取头信息<br /> 关闭文件 (文件号)<br /> <br /> .如果真 (取字节集长度 (头信息) ＜ 30)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 检查ZIP文件签名（PK头）<br /> .如果真 (取字节集左边 (头信息, 4) ≠ { 80, 75, 3, 4 })<br />     返回 (假)  ' 不是ZIP文件<br /> .如果真结束<br /> <br /> ' 获取通用位标记（第6-7字节）<br /> 标志位 ＝ 取字节集数据 (取字节集中间 (头信息, 7, 2), #短整数型, )<br /> <br /> ' 检查第0位是否设置（加密标志）<br /> 返回 (位与 (标志位, 1) ≠ 0)

zip文件可以根据文件头来判断是否加密
rar比较复杂, 要判断是否加密可以用第三方命令

b0y

直接调用7z.exe 命令行调用 rar zip 7z 等都支持

伤心猪大肠

  

子程序名	返回值类型	公开	备 注
检测压缩包加密	逻辑型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
文件头	字节集
扩展名	文本型
zip标记	整数型
rar版本	整数型
rar5标志	整数型
rar4标志	整数型

' 步骤1：验证文件有效性
如果真 (文件是否存在 (文件路径) ＝ 假)
返回 (假)

如果真 (取文件尺寸 (文件路径) ＜ 30)
返回 (假)

' 步骤2：读取完整文件头
文件头 ＝ 读入文件头 (文件路径, 30)
如果真 (取字节集长度 (文件头) ≠ 30)
返回 (假)

' 步骤3：验证文件签名
判断 (取字节集左边 (文件头, 4) ＝ { 80, 75, 3, 4 })  ' ZIP签名
扩展名 ＝ “zip”
判断 (取字节集左边 (文件头, 7) ＝ { 82, 97, 114, 33, 26, 7, 0 })  ' RAR4签名
扩展名 ＝ “rar”
判断 (取字节集左边 (文件头, 8) ＝ { 82, 97, 114, 33, 26, 7, 1, 0 })  ' RAR5签名
扩展名 ＝ “rar”
返回 (假)

' 步骤4：执行加密检测
判断 (扩展名 ＝ “zip”)
' ZIP加密检测：偏移6字节处取2字节（小端序）
zip标记 ＝ 取字节集数据 (取字节集中间 (文件头, 7, 2), 2, )  ' 第7-8字节
返回 (位与 (zip标记, 1) ≠ 0)  ' 检查第0位

判断 (扩展名 ＝ “rar”)
rar版本 ＝ 取字节集数据 (文件头, 8, 1)  ' 第9字节
如果真 (rar版本 ＝ 1)  ' RAR5格式
rar5标志 ＝ 取字节集数据 (文件头, 25, 4)  ' 第26-29字节
返回 (位与 (rar5标志, 4) ≠ 0)  ' 检查第3位

' RAR4格式
rar4标志 ＝ 取字节集数据 (文件头, 24, 1)  ' 第25字节
返回 (rar4标志 ≠ 0)

返回 (假)

子程序名	返回值类型	公开	备 注
读入文件头	字节集
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
长度	整数型

变量名	类 型	静态	数组	备 注
文件号	整数型
数据	字节集

文件号 ＝ 打开文件 (文件路径, #读入, )
如果真 (文件号 ＝ 0)
返回 ({  })

数据 ＝ 读入字节集 (文件号, 长度)
关闭文件 (文件号)
返回 (数据)

.版本 2<br /> <br /> .子程序 检测压缩包加密, 逻辑型<br /> .参数 文件路径, 文本型<br /> .局部变量 文件头, 字节集<br /> .局部变量 扩展名, 文本型<br /> .局部变量 zip标记, 整数型<br /> .局部变量 rar版本, 整数型<br /> .局部变量 rar5标志, 整数型<br /> .局部变量 rar4标志, 整数型<br /> <br /> ' 步骤1：验证文件有效性<br /> .如果真 (文件是否存在 (文件路径) ＝ 假)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果真 (取文件尺寸 (文件路径) ＜ 30)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 步骤2：读取完整文件头<br /> 文件头 ＝ 读入文件头 (文件路径, 30)<br /> .如果真 (取字节集长度 (文件头) ≠ 30)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 步骤3：验证文件签名<br /> .判断开始 (取字节集左边 (文件头, 4) ＝ { 80, 75, 3, 4 })  ' ZIP签名<br />     扩展名 ＝ “zip”<br /> .判断 (取字节集左边 (文件头, 7) ＝ { 82, 97, 114, 33, 26, 7, 0 })  ' RAR4签名<br />     扩展名 ＝ “rar”<br /> .判断 (取字节集左边 (文件头, 8) ＝ { 82, 97, 114, 33, 26, 7, 1, 0 })  ' RAR5签名<br />     扩展名 ＝ “rar”<br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> ' 步骤4：执行加密检测<br /> .判断开始 (扩展名 ＝ “zip”)<br />     ' ZIP加密检测：偏移6字节处取2字节（小端序）<br />     zip标记 ＝ 取字节集数据 (取字节集中间 (文件头, 7, 2), 2, )  ' 第7-8字节<br />     返回 (位与 (zip标记, 1) ≠ 0)  ' 检查第0位<br /> <br /> .判断 (扩展名 ＝ “rar”)<br />     rar版本 ＝ 取字节集数据 (文件头, 8, 1)  ' 第9字节<br /> <br />     .如果真 (rar版本 ＝ 1)  ' RAR5格式<br />         rar5标志 ＝ 取字节集数据 (文件头, 25, 4)  ' 第26-29字节<br />         返回 (位与 (rar5标志, 4) ≠ 0)  ' 检查第3位<br />     .如果真结束<br /> <br />     ' RAR4格式<br />     rar4标志 ＝ 取字节集数据 (文件头, 24, 1)  ' 第25字节<br />     返回 (rar4标志 ≠ 0)<br /> <br /> .默认<br />     返回 (假)<br /> .判断结束<br /> <br /> <br /> .子程序 读入文件头, 字节集<br /> .参数 文件路径, 文本型<br /> .参数 长度, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 数据, 字节集<br /> <br /> 文件号 ＝ 打开文件 (文件路径, #读入, )<br /> .如果真 (文件号 ＝ 0)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> 数据 ＝ 读入字节集 (文件号, 长度)<br /> 关闭文件 (文件号)<br /> 返回 (数据)

dennie

伤心猪大肠 发表于 2025-2-19 21:07
[e=0].版本 2

.子程序 检测压缩包加密, 逻辑型

谢谢大佬回答，新手不知道怎么调用，可以做一个带界面的源码吗？