中国DOS联盟

@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%) 
)