批处理之家 - Powered by Discuz! Board

@Echo Off
If "%~3" == "" (
@Call :Usage
@Exit /B 1
)
@Goto :Main
:Main
If Not Exist "%~1" (
Echo.错误：无法访问明文文件
@Exit /B 2
)
SetLocal EnableExtensions DisableDelayedExpansion
For /F "Delims= Skip=1" %%_ in ('Certutil -hashFile "%~1" SHA256') Do (
If Not Defined strHashInFile Set strHashInFile=%%_
)
For /F "Delims=" %%_ in ('Dir /B %~1') Do (
Set lngFileSize=%%~z_
)
Certutil -EnCodeHex -F "%~1" %strHashInFile%.tmp
SetLocal EnableExtensions EnableDelayedExpansion
For /F "Tokens=1,2 Delims= " %%_ in ('Type "%strHashInFile%.tmp"') Do (
Set /A lngTemp=0x%%_
Set Line[!lngTemp!]=%%`
)
Set /A "lngTemp=lngFileSize"
For /L %%_ in (0,16,%lngTemp%) Do (
Set Line[%%_]=!Line[%%_]:~0,48!
)
Set lngIndex=0
For /L %%_ in (0,16,%lngTemp%) Do (
For %%# in (!Line[%%_]!) Do (
If "%%#" Neq "" (
Set /A bytData[!lngIndex!]=0x%%#
Set /A lngIndex+=1
)
)
)
Set /A "lngTemp=%~3"
For /L %%_ in (0,1,3) Do (
Set /A "bytPassword[%%_]=lngTemp%%256"
Set /A "lngTemp=(lngTemp-lngTemp%%256)/256"
)
For %%_ in (0 1 2 3 4 5 6 7 8 9 A B C D E F) Do (
For %%` in (0 1 2 3 4 5 6 7 8 9 A B C D E F) Do (
Set /A lngTemp=0x%%_%%`
Set bytHexTab[!lngTemp!]=%%_%%`
)
)
Set /A "lngTemp=lngIndex-1"
For /L %%_ in (0,1,%lngTemp%) Do (
Set /A "bytTemp=(%%_)%%4"
Set /A "bytData[%%_]=bytData[%%_]^^bytPassword[!bytTemp!]"
)
Cd. > %strHashInFile%.tm$
For /L %%_ in (0,1,%lngTemp%) Do (
For %%` in (!bytData[%%_]!) Do (
Set /P strTemp=!bytHexTab[%%`]! < Nul >> %strHashInFile%.tm$
)
)
Certutil -DeCodeHex -F %strHashInFile%.tm$ "%~2"
If Exist %strHashInFile%.tmp Del %strHashInFile%.tmp
If Exist %strHashInFile%.tm$ Del %strHashInFile%.tm$
EndLocal
EndLocal
@Exit /B 0
:Usage
Echo.Encode InFile OutFile PasFile
Echo.
Echo. InFile 明文文件
Echo. OutFile 密文文件
Echo. Pasword 密码（范围：-2,147,483,648 到 2,147,483,647）（若为 0 则等同于不加密）
@Goto :Eof

复制代码

@Echo Off
If "%~3" == "" (
@Call :Usage
@Exit /B 1
)
@Goto :Main
:Main
If Not Exist "%~1" (
Echo.错误：无法访问明文文件
@Exit /B 2
)
SetLocal EnableExtensions DisableDelayedExpansion
For /F "Delims= Skip=1" %%_ in ('Certutil -hashFile "%~1" SHA256') Do (
If Not Defined strHashInFile Set strHashInFile=%%_
)
For /F "Delims=" %%_ in ('Dir /B %~1') Do (
Set lngFileSize=%%~z_
)
Certutil -EnCodeHex -F "%~1" %strHashInFile%.tmp
SetLocal EnableExtensions EnableDelayedExpansion
For /F "Tokens=1,2 Delims= " %%_ in ('Type "%strHashInFile%.tmp"') Do (
Set /A lngTemp=0x%%_
Set Line[!lngTemp!]=%%`
)
Set /A "lngTemp=lngFileSize"
For /L %%_ in (0,16,%lngTemp%) Do (
Set Line[%%_]=!Line[%%_]:~0,48!
)
Set lngIndex=0
For /L %%_ in (0,16,%lngTemp%) Do (
For %%# in (!Line[%%_]!) Do (
If "%%#" Neq "" (
Set /A bytData[!lngIndex!]=0x%%#
Set /A lngIndex+=1
)
)
)
Set /A "lngTemp=%~3"
For /L %%_ in (0,1,3) Do (
Set /A "bytPassword[%%_]=lngTemp&0x000000FF"
Set /A "lngTemp=(lngTemp>>8)&0x00FFFFFF"
)
For %%_ in (0 1 2 3 4 5 6 7 8 9 A B C D E F) Do (
For %%` in (0 1 2 3 4 5 6 7 8 9 A B C D E F) Do (
Set /A lngTemp=0x%%_%%`
Set bytHexTab[!lngTemp!]=%%_%%`
)
)
Set /A "lngTemp=lngIndex-1"
For /L %%_ in (0,1,%lngTemp%) Do (
Set /A "bytTemp=(%%_)%%4"
Set /A "bytData[%%_]=bytData[%%_]^^bytPassword[!bytTemp!]"
)
Cd. > %strHashInFile%.tm$
For /L %%_ in (0,1,%lngTemp%) Do (
For %%` in (!bytData[%%_]!) Do (
Set /P strTemp=!bytHexTab[%%`]! < Nul >> %strHashInFile%.tm$
)
)
Certutil -DeCodeHex -F %strHashInFile%.tm$ "%~2"
If Exist %strHashInFile%.tmp Del %strHashInFile%.tmp
If Exist %strHashInFile%.tm$ Del %strHashInFile%.tm$
EndLocal
EndLocal
@Exit /B 0
:Usage
Echo.Encode InFile OutFile PasFile
Echo.
Echo. InFile 明文文件
Echo. OutFile 密文文件
Echo. Pasword 密码（范围：-2,147,483,648 到 2,147,483,647）（若为 0 则等同于不加密）
@Goto :Eof

复制代码

@Echo Off & Title 加密测试 & @Goto :Main
:Main
@Call :SetFileName
@Call :SetTarget
@Call :SetPassword
Call EnCode.Bat "%strFileName%" "%strTargetFile%" %lngPassword%
Echo.加密成功！请按任意键退出
Pause > Nul
@Exit /B 0
:SetPassword
Set /A lngPassword=%Random%
Set /A "lngPassword=(lngPassword<<16)^%Random%"
Set /P lngPassword=请输入您的密码（若回车则为%lngPassword%）：
Set /A lngPassword=lngPassword
@Goto :Eof
:SetTarget
Set strTargetFile=//
Set /P strTargetFile=请输入目标文件文件名：
Set strTargetFile=%strTargetFile:"=%
If "%strTargetFile%"=="//" (
Echo.不合法的文件名！请重新输入
@Call :SetTarget
) Else (
If Exist "%strTargetFile%" (
Echo.不能设置已存在的文件作为目标文件！请重新输入！
@Call :SetTarget
) Else (
@Goto :Eof
)
)
@Goto :Eof
:SetFileName
Set strFileName=//
Set /P strFileName=请拖入需要加密的文件获输入您想加密的文件文件名（如果此文件不存在，您将手动输入其内容）：
Set strFileName=%strFileName:"=%
If "%strFileName%"=="//" (
Echo.不合法的文件名！请重新输入！
@Call :SetFileName
) Else (
If Not Exist "%strFileName%" (
Echo.编辑模式
Echo.此模式可以逐行编辑，退出方法即新建一行再按 Ctrl + Z
Echo.-- 编辑文件 --
Copy Con "%strFileName%"
)
)
@Goto :Eof

复制代码