如何给.BAT文件加密

cls

@echo off

@Title Tools code

:Key

set all= 请输入秘钥（若没有，请输入help）

set /p all=请按任意键继续（若没有，请输入help）(获取临时秘钥请发送：user)：

if /i "%all%"=="help" goto Eorry

if /i "%all%"=="user" goto user

if /i "%all%"=="Tools" goto Tools

:Tools

echo 请输入密码打开Tools

set/p "pass=(more than)" goto menu

if NOT %pass%== JAIXUDLW goto FAIL

echo 密码正确

goto menu

:FAIL

echo 密码无效

ping 127.0.0.1 -n 5 >nur

goto Key

:menu

echo 欢迎使用本tool code

echo 秘钥正确！

ping 127.0.0.1 -n 5 >nur

@color 4A

@mode con cols=80 lines=32

@title Me晴朗批处理制作

@echo off

echo 下面内容你自己写

给批处理加密的文件代码如下：

@ECHO off

cls

color f0

echo.

echo.

ECHO批处理文件(.bat .cmd)加密工具

echo.

echo.

echo 说明: 在下面输入需要加密的批处理文件名

echo.

echo 若在此文件的同目录下直接输入“文件名.bat”即可

echo.

echo 也可以带路径指定任意BAT

echo.

echo 加密完成后会在同目录下生成“加密成品.bat”文件

echo.

echo.

echo.

echo.

set /p file=请输入需要加密的批处理后(名+后缀)按回车键(Q=退出):

if "%file%"=="q" goto quit

echo %file%|findstr /i "\.bat$">nul &&goto go

echo %file%|findstr /i "\.cmd$">nul &&goto go

cls

echo ==============

echo 请正确输入!

echo ==============

echo.

echo.

echo 按任意键重新输入......

pause>nul

goto start

:go

if not exist "%file%" goto newly

if exist encrypt.bat copy encrypt.bat encryptbak.bat

echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a >"%tmp%\encrypt.tmp"

echo cls>>"%tmp%\encrypt.tmp"

type "%file%">>"%tmp%\encrypt.tmp"

setlocal enabledelayedexpansion

for %%i in ("%tmp%\encrypt.tmp") do (

echo %%~zi >nul 2>nul

set size=%%~zi

set num=!size:~-1!

set /a mod=!num!%%2

if !mod! equ 0 (goto even) else (goto odd)

)

:even

copy "%tmp%\encrypt.tmp" 加密成品.bat

del "%tmp%\encrypt.tmp"

cls

echo ===============================

echo 恭喜, 批处理加密成功!

echo ===============================

echo.

echo.

echo 按任意键退出......

pause>nul

goto quit

:odd

echo. >>"%tmp%\encrypt.tmp"

copy "%tmp%\encrypt.tmp" 加密成品.bat

del "%tmp%\encrypt.tmp"

cls

echo ===============================

echo 恭喜, 批处理加密成功!

echo ===============================

echo.

echo.

echo 按任意键退出......

pause>nul

goto quit

:newly

cls

echo ================================

echo 找不到批处理文件, 请重新输入!

echo ================================

echo.

echo.

echo 按任意键开始......

pause>nul

goto start

:quit

exit

并没有可靠的bat加密工具，何必要加密呢？

@echo off

cd /d %~dp0

if /i not "%~nx0"=="批处理文件加密工具_依梦琴瑶.bat" move /y "%~0" "批处理文件加密工具_依梦琴瑶.bat">nul&start "" "批处理文件加密工具_依梦琴瑶.bat" %1

color 17

title 批处理文件加密工具 By: 依梦琴瑶 QQ: 344830556

if not "%~1"=="" goto Check

:start

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo.

echo.

echo 说明:

echo 在下面输入需要加密的批处理文件名+后缀名，当前目录下的批处理文件无需输入路

echo 径，其它目录的文件，需要输入绝对或相对路径。也可直接拖动批处理文件到此窗口中。

echo 本工具支持直接拖动批处理文件到本脚本上直接运行。加密后的文件存放在本工具目录。

echo 加密文件名为“源文件名_Encrypt.源后缀”

echo.

echo By: 依梦琴瑶 QQ: 344830556

echo.

echo 请输入需要加密的批处理后按回车键（Q=退出）:

set file=

set /p file=

if not defined file goto noinput

if not "%file:~,1%%file:~-1%"=="""" set file="%file%"

if /i "%file:~1,-1%"=="q" goto quit

call:Check %file%

:Check

if /i not "%~x1"==".bat" (

if /i not "%~x1"==".cmd" (

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo.

echo.

echo======================================

echo您提供的文件不是批处理文件，请重新输入

echo======================================

echo.

echo By: 依梦琴瑶 QQ: 344830556

ping 0 -n "3">nul

goto start

)

)

if not exist "%~1" goto noexist

if exist "%~n1_Encrypt%~x1" move "%~n1_Encrypt%~x1" "Bak%random%_%~n1_Encrypt%~x1"

:ChoiceScheme

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo * 1、第一方案（推荐）2、第二方案（备用）*

echo *******************************************************************************

echo 说明:

echo 本加密工具提供两种加密方式，优先推荐第一方案，如果第一种方案加密的批处理文

echo 件运行有问题，那么请选择第二种方案进行加密。加密后的批处理存放在本工具目录下。

echo 加密文件名为“源文件名_Encrypt.源后缀”

echo.

echo By: 依梦琴瑶 QQ: 344830556

echo.

echo.

set /p Scheme=请输入加密方案编号后按回车键（Q=退出）:

set Scheme=%Scheme:~,1%

if /i "%Scheme%"=="q" goto quit

if /i "%Scheme%"=="1" goto SchemeA

if /i "%Scheme%"=="2" goto SchemeB

set Scheme=

goto ChoiceScheme

:SchemeA

echo.

echo 正在使用第一方案加密 %~nx1 ，请等待。。。。

ping 0 -n "2">nul

(echo  1^>nul 2^>nul

echo cls

type "%~1")>"%tmp%\BAT.Encrypt"

goto OK

:SchemeB

echo.

echo 正在使用第二方案加密 %~nx1 ，请等待。。。。

ping 0 -n "2">nul

(echo %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a 1^>nul 2^>nul

echo cls

type "%~1")>"%tmp%\BAT.Encrypt"

setlocal enabledelayedexpansion

for %%i in ("%tmp%\BAT.Encrypt") do (

echo %%~zi >nul 2>nul

set size=%%~zi

set num=!size:~-1!

set /a mod=!num!%%2

if !mod! equ 0 (goto OK) else (goto OKII)

)

:OK

move "%tmp%\BAT.Encrypt" "%~n1_Encrypt%~x1"

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo.

echo.

echo ===============================================================================

echo 恭喜，批处理加密成功，文件名为“%~n1_Encrypt%~x1”o(∩_∩)o

echo ===============================================================================

echo.

echo By: 依梦琴瑶 QQ: 344830556

ping 0 -n "3">nul

goto quit

:OKII

pause

echo. >>"%tmp%\BAT.Encrypt"

goto OK

:noexist

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo.

echo.

echo======================================

echo 您提供的批处理文件不存在，请重新输入

echo======================================

echo.

echo By: 依梦琴瑶 QQ: 344830556

ping 0 -n "3">nul

goto start

:noinput

cls

echo *******************************************************************************

echo * *

echo *批 处 理 文 件 加 密 工 具 *

echo * *

echo *******************************************************************************

echo.

echo.

echo======================================

echo您未输入任何批处理文件路径，请重新输入

echo======================================

echo.

echo By: 依梦琴瑶 QQ: 344830556

ping 0 -n "3">nul

goto start

:quit

exit

---