批处理加密工具

%%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a cls@ECHO offclscolor 0AECHO ECHO ==========================================================echo. 这已经不知道是谁做的了，索性将转载的版权也省去了echo.==========================================================echo.echo.echo.set /p file=请输入需要加密的批处理后按回车键(q=退出):if "%file%"=="q" goto quitecho %file%|findstr /i "/.bat$">nul && goto goecho %file%|findstr /i "/.cmd$">nul && goto goclsecho ==============echo 请正确输入!echo ==============echo.echo.echo 按任意键重新输入......pause>nulgoto start:goif not exist "%file%" goto newlyif exist encrypt.bat copy encrypt.bat encryptbak.batecho %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%a %%%%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 enabledelayedexpansionfor %%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)):evencopy "%tmp%/encrypt.tmp" 加密后的东东.batdel "%tmp%/encrypt.tmp"clsecho ==========================echo 批处理加密成功^^!echo ==========================echo.echo.echo 按任意键退出......pause>nulgoto quit:oddecho. >>"%tmp%/encrypt.tmp"copy "%tmp%/encrypt.tmp" 加密后的东东.batdel "%tmp%/encrypt.tmp"clsecho ==========================echo 批处理加密成功^^!echo ==========================echo.echo.echo 按任意键退出......pause>nulgoto quit:newlyclsecho ================================echo 找不到批处理文件, 请重新输入!echo ================================echo.echo.echo 按任意键开始......pause>nulgoto start:quitexit

 

以上的这个加密后的结果用Quick Batch File Compiler打开后会显示出实际的源码

百度下找到了上面加密的解密算法
echo BAT 解密器@echo offmode con: cols=80 lines=25:indexcolor 27clsecho ╭───────────────╮echo │ │echo ╭─────────┤ BAT 解 密 工 具 ├─────────╮echo │ │ │ │echo │ ╰───────────────╯ │echo │ │echo │ │echo │ 本工具用来对混淆文本编码类型的加密批处理进行解密! │echo │ │echo │ 在下面填入需要解密的批处理按回车键即可. │echo │ │echo │ 建议直接把待解密的批处理文件拖曳至本窗口释放. │echo │ │echo │ 解密成功后会在本程序目录下生成"new_待解密文件名.文件后缀名" │echo │ 格式的文件. │echo │ │echo │ 注意: 如果本目录下存在"new_待解密文件名.文件后缀名"的文件, │echo │ 将会被替换. │echo │ │echo │ │echo ╰───────────────────────────────────╯echo.set route=%cd%set ravel=set /p ravel= 请输入要解密的批处理:set "ravel=%ravel:"=%"if /i "%ravel:~-4%"==".bat" if exist "%ravel%" goto goif /i "%ravel:~-4%"==".cmd" if exist "%ravel%" goto goclsecho ╭──────────╮echo ╭─────────┤ 文 件 错 误 ├────────╮echo │ ╰──────────╯ │echo │ │echo │ 指定文件不存在或文件不是批处理类型! │echo │ │echo │ 按任意键重新输入... │echo │ │echo ╰─────────────────────────────╯echo.echo.echo 按任意键重新输入...pause >nulgoto index:gofor /f "tokens=*" %%c in ("%ravel%") do ( cd /d "%%~dpc" if exist "%route%/new_%%~nxc" attrib -s -h -r -a "%route%/new_%%~nxc" echo author:[e-mail]>"%route%/new_%%~nxc" for /f "tokens=*" %%i in (%%~nxc) do ( echo %%i>>"%route%/new_%%~nxc" ))clsecho ╭──────────╮echo ╭─────────┤ 解 密 成 功 ├────────╮echo │ ╰──────────╯ │echo │ │echo │ 恭喜, 批处理解密成功! │echo │ │echo ╰─────────────────────────────╯echo.echo.echo 按任意键退出...pause >nulexit 

 

下面的这个加密算法应该不存在这个问题
%%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a cls@echo offtitle bat变量加密程序mode con: cols=80 lines=25color 3fset route=%cd%if not %1*==* set ravel=%1&goto jmp:indexclsecho ╭───────────────╮echo │ │echo ╭─────────┤ BAT 变 量 加 密 程 序 ├─────────╮echo │ │ │ │echo │ 测试版: ╰───────────────╯ │echo │ │echo │ 本工具采用变量截取加密算法, 加密后文件大小会增加5-10倍, 批处理 │echo │ 的运行效率不会有任何影响. │echo │ │echo │ 在下面输入需要加密的批处理按回车键即可, 建议直接把待加密的 │echo │ 批处理文件拖曳至本窗口释放. │echo │ │echo │ 加密成功后会在本程序目录下生成"new_待加密文件名.bat"格式的文件. │echo │ │echo │ 注意: 1. 屏幕如无"加密成功"的提示或中间退出, 说明加密失败. │echo │ 2. 此加密算法要处理的数据量很大, 速度比较慢, 请耐心等待. │echo │ 3. 可能还存在其他未知缺陷, 加密后请自行检测错误. │echo │ 4. 修正了加密后大写字母变小写的缺陷. │echo │ │echo │ [e-mail] │echo ╰───────────────────────────────────╯echo.set ravel=set /p ravel= 请输入要加密的批处理(q=exit)::jmpset "ravel=%ravel:"=%"if /i "%ravel%"=="q" exitecho %ravel% | findstr /c:( /c:) >nul 2>nul && goto :nayif /i "%ravel:~-4%"==".bat" if exist "%ravel%" goto goif /i "%ravel:~-4%"==".cmd" if exist "%ravel%" goto go:nayclsecho ╭──────────╮echo ╭─────────┤ 文 件 错 误 ├────────╮echo │ ╰──────────╯ │echo │ │echo │ 1. 指定文件不存在或文件不是批处理类型. │echo │ │echo │ 2. 文件路径中含有括号. │echo │ │echo │ 3. 文件名中存在空格. │echo │ │echo │ │echo ╰─────────────────────────────╯echo.echo.echo 按任意键重新输入...pause >nulgoto index:gofor /f "tokens=*" %%c in ("%ravel%") do ( cd /d "%%~dpc" set root="%route%/new_%%~nxc" set file=%%~nxc)for %%i in (%file%) do if not "%%i"=="%file%" goto nayif exist %root% call :existif exist %root% attrib -s -h -r -a %root%call :caputclsecho.echo 　　 　　　　 ///^|/// echo 　　　　　 　 //　.-.-　// echo 　　　　 　 　(　.@.@　) echo +-------oOOo-----(_)-----oOOo---------+ echo ^|　　　 　　　　　　　　　　　　　　　^|echo ^|　 正在加密中, 请稍等...... 　 　^|echo ^|　　　　　　　　　　　　　　　　 　　^| echo +----------oooO-------Oooo------------+ echo.echo.for /f "delims=" %%i in (%file%) do ( set x=%%i■ call :start)clsecho.echo 　　 　　　　 ///^|/// echo 　　　　　 　 //　.-.-　// echo 　　　　 　 　(　.@.@　) echo +-------oOOo-----(_)-----oOOo---------+ echo ^|　　　 　　　　　　　　　　　　　　　^|echo ^|　 恭喜, 加密成功! 　 　^|echo ^|　　　　　　　　　　　　　　　　 　　^| echo +----------oooO-------Oooo------------+ echo.echo.echo 按任意键退出...pause >nulgoto :eof:startset term=0set vcd=0set "x=%x:"=◎%"set "y=%x%"set num=0:followif not "%y%"=="" ( set "y=%y:~1%" if "%y:~0,1%"=="◎" set /a num+=1 goto :follow)set /a z=%num%%%2if "%x:~0,1%"==":" if not "%x:~0,2%"==":" set term=1set result=:nextif not "%x:~0,1%"=="■" ( if "%term%"=="1" ( if "%x:~0,1%"=="%%" set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set term=0&goto next if "%x:~0,1%"==" " set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set term=0&goto next if "%x:~0,1%"=="=" set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set term=0&goto next if "%x:~0,1%"==")" set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set term=0&goto next set "result=%result%%x:~0,1%"&set "x=%x:~1%"&goto next ) if "%x:~0,1%"=="%%" set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set term=1&goto next if "%x:~0,1%"==" " set "result=%result% "&set "x=%x:~1%"&goto next if "%x:~0,1%"=="a" set "result=%result%%%appdata:~-1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="b" set "result=%result%%%tcopu:~1,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="c" set "result=%result%%%userprofile:~5,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="d" set "result=%result%%%appdata:~15,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="e" set "result=%result%%%comspec:~-1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="f" set "result=%result%%%tcopu:~11,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="g" set "result=%result%%%programfiles:~6,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="h" set "result=%result%%%tcopu:~2,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="i" set "result=%result%%%programfiles:~-4,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="j" set "result=%result%%%tcopu:~4,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="k" set "result=%result%%%tcopu:~5,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="l" set "result=%result%%%appdata:~-13,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="m" set "result=%result%%%appdata:~7,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="n" set "result=%result%%%userprofile:~14,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="o" set "result=%result%%%appdata:~-7,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="p" set "result=%result%%%appdata:~-15,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="q" set "result=%result%%%tcopu:~6,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="r" set "result=%result%%%programfiles:~4,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="s" set "result=%result%%%comspec:~-16,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="t" set "result=%result%%%comspec:~-13,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="u" set "result=%result%%%userprofile:~6,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="v" set "result=%result%%%tcopu:~8,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="w" set "result=%result%%%os:~5,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="x" set "result=%result%%%comspec:~-2,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="y" set "result=%result%%%comspec:~12,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="z" set "result=%result%%%tcopu:~9,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="0" set "result=%result%%%tcopu:~17,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="1" set "result=%result%%%tcopu:~21,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="2" set "result=%result%%%comspec:~-9,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="3" set "result=%result%%%comspec:~-10,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="4" set "result=%result%%%tcopu:~14,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="5" set "result=%result%%%tcopu:~16,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="6" set "result=%result%%%tcopu:~33,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="7" set "result=%result%%%tcopu:~12,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="8" set "result=%result%%%tcopu:~23,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="9" set "result=%result%%%tcopu:~29,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="(" set "result=%result%%%tcopu:~25,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"==")" set "result=%result%%%tcopu:~30,1%%"&set "x=%x:~1%"&goto next if "%x:~0,1%"=="@" set "result=%result%%%tcopu:~32,1%%"&set "x=%x:~1%"&goto next if "%vcd%"=="1" ( if "%x:~0,1%"=="◎" set vcd=0 if "%x:~0,1%"=="^" ( set "result=%result%^^^^^"&set "x=%x:~1%"&goto next ) else ( set "result=%result%%x:~0,1%"&set "x=%x:~1%"&goto next ) ) if "%x:~0,1%"=="◎" set "result=%result%%x:~0,1%"&set "x=%x:~1%"&set vcd=1&goto next set "result=%result%%x:~0,1%"&set "x=%x:~1%"&goto next)set "result=%result:◎="%"if "%z%"=="0" ( set /p "auot=%result%"<nul>>%root% echo.>>%root% goto :eof)>>%root% echo %result%goto :eof:caput(echo @%%comspec:~-1%%%%userprofile:~5,1%%h%%appdata:~-7,1%% %%appdata:~-7,1%%%%programfiles:~-5,1%%%%programfiles:~-5,1%%echo %%comspec:~-16,1%%%%comspec:~-1%%%%comspec:~-13,1%% %%comspec:~-13,1%%%%userprofile:~5,1%%%%appdata:~-7,1%%%%appdata:~-15,1%%%%userprofile:~6,1%%=%%%%bh%%%%jkq%%%%vz%%%%f7%%%%4c50t%%%%u1w8%%%%^(cdf9^)%%%%@6tc%%%%)>%root%goto :eof:existclsecho ╭──────────╮echo ╭─────────┤ 替 换 文 件 ├────────╮echo │ ╰──────────╯ │echo │ │echo │ 注意: 当前目录存在待加密批处理的同一更名文件. │echo │ │echo │ 1: 替换 2: 重新输入 │echo │ │echo │ │echo ╰─────────────────────────────╯echo.echo.set choice=set /p choice= 请选择(1 2)回车:if "%choice%"=="1" goto :eofif "%choice%"=="2" goto indexgoto exist