[代码合集] 好东西——自动加密的批处理 （顺便解释下这段代码）

aaqqi1111

@echo off
REM ======================================================================
REM
REM Batch File -- Created with SAPIEN Technologies PrimalScript 4.0
REM
REM NAME: 批量加密打包单个文件，并生成对应密码表
REM
REM AUTHOR: hitme , 
REM DATE  : 2006-12-16
REM
REM COMMENT: 密码由随机数字组成，长度与文件名长度相同
REM
REM ======================================================================
@echo off
:repare
del pass.txt tmp.txt 2>nul
md package 2>nul

setlocal ENABLEDELAYEDEXPANSION
:input
echo.
set /p input=加密打包文件还是文件夹^(F=文件，D=文件夹，A=全部^)
echo.
if /i "%input%"=="f" (set key=/aa) else (
     if /i "%input%"=="d" (set key=/ad) else (
               if /i "%input%"=="a" (set key=) else goto :input))
:code
for /f "delims=" %%i in ('dir %key%/b^|findstr /v "%~nx0 package"') do (
      echo.%%i>tmp.txt
      echo. >>tmp.txt
      for /f "delims=:" %%a in ('findstr /o "." tmp.txt') do (
       set /a len=%%a - 2
      )
      set m=
      for /l %%l in (1,1,!len!) do (
       echo %random% >nul
       set  m=!m!!random:~-1!
      )
      echo %%i:!m!>>pass.txt
      del tmp.txt>nul
      
)
endlocal
:package
setlocal
set path=%path%;c:\program files\winrar
if exist pass.txt (
    for /f "tokens=1* delims=:" %%i in (pass.txt) do rar a -p%%j "package\%%~ni.RAR" "%%i"
   
    move pass.txt package
start package
) else echo...未能打包 
pause
复制代码

pusofalse

挺实用的小工具，万一丢了密码表就OVER。
代码还可以简化

wangwei4106

也来看看！
就是不知道安不安全！

愚无尽

多谢分享。。。。。。