@Echo off

Set I=%%%%%%%%%R

Set /a n=0

Set /a m=0

Set Tit=----By: ^Ray

Title 批处理命令行加密%Tit%&&color 2F

:Menu

Set file=%1

If "%file%"=="" Goto Ec

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

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

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

echo   请输入正确的文件 

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

echo. 

echo. 

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

pause>nul 

goto Exit 

:loop

If %n%==100 Goto Sec1

Set I=%I% %%%%%%%%%R

Set /a n=%n%+1

goto loop

:Sec1

echo %I%>"%file%.bat"

echo cls>>"%file%.bat"

type "%file%">>"%file%.bat"

Set /a m=%m%+1

Goto YN

:Sec2

echo %I%>"%file%.bat"

echo ^@echo off ^& cls>>"%file%.bat"

type "%file%">>"%file%.bat"

Set /a m=%m%+1

Goto YN

:Sec3

echo %I%>"%file%.bat"

echo ^@echo off>>"%file%.bat"

echo cls>>"%file%.bat"

type "%file%">>"%file%.bat"

Set /a m=%m%+1

Goto YN

:Sec4

echo %I%>"%file%.bat"

type "%file%">>"%file%.bat"

Set /a m=%m%+1

Goto YN

:Sec5

Cls 

Del "%file%.bat" /Q >NUL

Title 遗憾失败了%Tit%

Cls

echo.

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

echo 尝试个人已知的命令行加密方式，也无法为本文件加密:(

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

echo 对此表示遗憾！

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

echo 如果您能为本文件加密，还忘不吝赐教

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

echo 邮箱：5378851@QQ.COM

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

echo.

echo 按任意键退出本程序...... 

echo.

pause>nul 

goto Exit

:Ext

Title 加密成功%Tit%

Echo.

Echo 使用第%m%种方式加密成功，加密文件位于原文件目录

Echo.&&Echo "%file%.bat"

Echo.&Echo 接任意键后以文本方式打开加密后的文件……

Pause>NUL

If exist "%file%.bat" start Notepad "%file%.bat"

Exit 

:EC

Title 程序说明%Tit%

Echo.&Echo 您不需要打开本程序,直接把需要加密的批处理拖放到本程序上即可.

Echo.&Echo 按任意键退出……&pause>NUL&Goto Exit

:YN

cls

setlocal enabledelayedexpansion 

for %%i in ("%file%.bat") do ( 

    echo %%~zi >nul 2>nul 

    set  /a size=%%~zi 

    set /a mod=!size!%%2

    if !mod!==0 (goto Ext) else (goto Sec%m%) 

)