批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[文件操作] 50元跪求批量删除压缩包的密码

本帖最后由 manjaro 于 2019-6-8 16:23 编辑

请问诸位大神,如何批量删除压缩包的密码,有成千上万个压缩包,主要是zip格式,也有少量是RAR格式。
有的压缩包有密码,有的没有密码。
有密码的压缩包密码都不同,但密码只有以下几个:12345678,qwer1234,雪山飞狐,神雕侠侣。
非常感谢,50元茶水费:lol

本帖最后由 zaqmlp 于 2019-6-9 10:07 编辑

密码一行一个输入到password.txt,将bat、txt和压缩包放一起运行,注意备份源文件
  1. @echo off
  2. mode con lines=3000
  3. set info=互助互利,支付宝扫码头像,感谢赞助
  4. rem 有问题,可加QQ956535081及时沟通
  5. title %info%
  6. cd /d "%~dp0"
  7. set "pw=password.txt"
  8. set "rarpath=C:\Program Files\WinRAR\WinRAR.exe"
  9. if not exist "%rarpath%" (echo;指定WinRAR的安装路径不正确或没有安装&pause&exit)
  10. if not exist "%pw%" (echo;密码文件不存在&pause&exit)
  11. for /f "delims=" %%a in ('dir /a-d/b *.rar *.zip') do (
  12.     call :check "%%a"
  13.     rd /s /q "%%~dpna\" 2>nul
  14. )
  15. echo;%info%
  16. pause&exit
  17. :check
  18. if not exist "%~dpn1\" md "%~dpn1\"
  19. set "f="
  20. "%rarpath%" x -p"" -ibck -y "%~1" "%~dpn1\"
  21. for /f "delims=" %%c in ('dir /a-d/b/s "%~dpn1\" 2^>nul') do set f=true
  22. if defined f (
  23.     echo;["无密码"]"%~1"
  24.     exit /b
  25. )
  26. for /f "delims=" %%b in ('type "%pw%"') do (
  27.     "%rarpath%" x -p"%%b" -ibck -y "%~1" "%~dpn1\"
  28.     for /f "delims=" %%c in ('dir /a-d/b/s "%~dpn1\" 2^>nul') do set f=true
  29.     if defined f (
  30.         echo;["%%b"]"%~1"
  31.         del /a /f /q "%~1"
  32.         "%rarpath%" a -r -ep1 -ibck "%~1" "%~dpn1\"
  33.         exit /b
  34.     )
  35. )
  36. echo;["找不到密码"]"%~1"
  37. exit /b
复制代码
提供代写,省时省力省事,支付宝扫码头像支付,QQ956535081

TOP

非常感谢,zip文件可以,但是rar文件不行啊

TOP

返回列表