[文件操作] [已解决]批处理如何将32位MD5码作为RAR密码并批量压缩为RAR文件？

@CD /D "%~dp0"
@echo off
setlocal EnableDelayedExpansion
::指定WinRAR安装路径和程序
set "rarpath=C:\Program Files\WinRAR\Rar.exe"
set a=1
for /d %%a in (*) do (
if not "%%~ni"=="%~n0" ( 
    if exist 说明.txt (
    @"%rarpath%" a "压缩文件!a!.rar" 说明.txt|@"%rarpath%" c "压缩文件!a!.rar"<说明.txt
    echo 说明.txt内容添加为RAR注释) else (echo 说明.txt不存在
        )

::判断C:\Windows\System32 目录是否存在MD5.exe
if exist C:\Windows\System32\md5.exe (

::生成32位MD5码作为RAR密码
    for /f %%i in ('set /p"=%%a" ^< nul ^| md5') do (
    @"%rarpath%" a -k -p"%%i" -r -x*.bak -xThumbs.db -s -m1 "压缩文件!a!.rar" "%%a"
    for /f "tokens=1 delims=* " %%j in ('md5 "压缩文件!a!.rar"') do (set "md5=%%j")
    echo !md5! 密码：%%i>>密码.TXT
    )
        ) else (
    @"%rarpath%" a -k -p"%%~na" -r -x*.bak -xThumbs.db -s -m1 "压缩文件!a!.rar" "%%a"
    echo 压缩文件!a!.rar 密码：%%~na>>密码.TXT
    ))
set/a a+=1
)
pause
复制代码

@CD /D "%~dp0"
@echo off
setlocal EnableDelayedExpansion
::密码.TXT结构
::XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 密码：XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

@for /f "delims=" %%a in ('dir /b *.rar') do (
    @for /f "tokens=1 delims= " %%b in ('md5 "%%a"') do (
    @for /f "tokens=2 delims==：" %%i in ('find "%%b" "密码.txt"') do (
    "C:\Program Files\WinRAR\Rar.exe"  x -p"%%i" -y "%%a"
    ))
)
pause
复制代码

/*&cls
@echo off
setlocal EnableDelayedExpansion
::密码.TXT结构
::xxx.rar 密码：xxx
for /f "delims=" %%a in ('type 密码.txt^|cscript -nologo -e:jscript "%~f0"') do (

"C:\Program Files\WinRAR\Rar.exe" %%a
)
pause&exit
*/

var t='', map={}, files = WScript.StdIn.ReadAll().split('\r\n');
for (var i=0; i<files.length; i++){
    var str = files[i].replace(/(.+(rar|zip)) 密码：(.+)$/,' x -p"$3" -y "$1"')
    if(!map[str]){map[str] = true;t+=str+'\r\n';}
}
WSH.echo(t);
复制代码