Posted on 2009-05-29 21:59
S.l.e!ep.￠% 閱讀(1406)
評論(0) 編輯 收藏 引用 所屬分類:
DOS
@echo off
color 27
:start
cls
echo *******************************************************************************
echo *???????????????????????????????????????????????????????????????????????????? *
echo *??????????????????? BAT??? 加??? 密??? 最??? 終??? 版??????????????????????? *
echo *???????????????????????????????????????????????????????????????????????????? *
echo *******************************************************************************
echo.
echo.
echo BAT加密最終版為"BAT加密工具"的更新版本, 較上一版加密工具而言有諸多優勢:
echo.
echo ★? 可以一次性成功加密任何批處理文件, 更省事.
echo.
echo ★? 可以由您輸入任意需要加密的批處理, 加密靈活性更大.
echo.
echo ★? 能夠自動判斷錯誤輸入, 更加人性化.
echo.
echo 說明: 在下面輸入需要加密的批處理文件, 直接輸入批處理文件名為加密當前目錄下的BAT,也可以帶路徑指定任意BAT. 當前目錄下生成的encrypt.bat文件即為加密的批處理.
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" encrypt.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" encrypt.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