如何对批处理进行加密＆解密 - 中国DOS联盟论坛

（转）BAT加密和解密文章
-----------------------------------------------------------
这是一段bat加密器代码

author:pengfei@www.cn-dos.net
%%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%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 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 作者:木林森 QQ:573381312 BYE
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

---------------------------------------------------------------------------------------------
下面是bat解密器代码
---------------------------------------------------------------------------------------------
@echo off
mode con: cols=80 lines=25
:index
color 27
cls
echo ╭───────────────╮
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 go
if /i "%ravel:~-4%"==".cmd" if exist "%ravel%" goto go
cls
echo ╭──────────╮
echo ╭─────────┤ 文件错误 ├────────╮
echo │ ╰──────────╯ │
echo │ │
echo │ 指定文件不存在或文件不是批处理类型! │
echo │ │
echo │ 按任意键重新输入... │
echo │ │
echo ╰─────────────────────────────╯
echo.
echo.
echo 按任意键重新输入...
pause >nul
goto index

:go
for /f "tokens=*" %%c in ("%ravel%") do (
cd /d "%%~dpc"
if exist "%route%\new_%%~nxc" attrib -s -h -r -a "%route%\new_%%~nxc"
echo author:pengfei@www.cn-dos.net>"%route%\new_%%~nxc"
for /f "tokens=*" %%i in (%%~nxc) do (
echo %%i>>"%route%\new_%%~nxc"
)
)
cls
echo ╭──────────╮
echo ╭─────────┤ 解密成功 ├────────╮
echo │ ╰──────────╯ │
echo │ │
echo │ 恭喜, 批处理解密成功! │
echo │ │
echo ╰─────────────────────────────╯
echo.
echo.
echo 按任意键退出...
pause >nul
exit

第1楼　jiangnan110	发表于 2007-06-08 12:47
初级用户　发帖 19　积分 42
[求助]如何对批处理进行加密＆解密如题我学了才几天希望大家帮帮忙，，，谢谢．．．！！！

第2楼　baomaboy	发表于 2007-06-08 13:03
银牌会员　发帖 554　积分 1,513
加密码的？还是只是扰乱视线类的？

第3楼　jlygq1968	发表于 2007-06-08 13:18
初级用户　发帖 9　积分 46
Originally posted by jiangnan110 at 2007-6-8 12:47 PM: 如题我学了才几天希望大家帮帮忙，，，谢谢．．．！！！是不是要防止反编译的,就是显示乱码的??????

第4楼　qinbuer	发表于 2007-06-08 13:22
高级用户　发帖 228　积分 512
我想，或许可以做一个批处理，将需要加密的批处理按一定的顺序打乱或用其他字符替换，解密的时候再按一定的顺序还原。但是这样子解密前批处理就不可以运行了，而且只需要一定的耐心就可以被他人解密出来。又或者可以转换为EXE，可是这样的话就查看源代码就麻烦了。。。

第5楼　bjsh	发表于 2007-06-08 16:17
银牌会员　发帖 621　积分 2,000
搜索吧; 有很多的

第6楼　zasxcdfv	发表于 2007-06-08 16:18
初级用户　发帖 75　积分 152
（转）BAT加密和解密文章 ----------------------------------------------------------- 这是一段bat加密器代码 author:pengfei@www.cn-dos.net %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%a %%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 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 作者:木林森 QQ:573381312 BYE 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 --------------------------------------------------------------------------------------------- 下面是bat解密器代码 --------------------------------------------------------------------------------------------- @echo off mode con: cols=80 lines=25 :index color 27 cls echo ╭───────────────╮ 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 go if /i "%ravel:~-4%"==".cmd" if exist "%ravel%" goto go cls echo ╭──────────╮ echo ╭─────────┤ 文件错误 ├────────╮ echo │ ╰──────────╯ │ echo │ │ echo │ 指定文件不存在或文件不是批处理类型! │ echo │ │ echo │ 按任意键重新输入... │ echo │ │ echo ╰─────────────────────────────╯ echo. echo. echo 按任意键重新输入... pause >nul goto index :go for /f "tokens=" %%c in ("%ravel%") do ( cd /d "%%~dpc" if exist "%route%\new_%%~nxc" attrib -s -h -r -a "%route%\new_%%~nxc" echo author:pengfei@www.cn-dos.net>"%route%\new_%%~nxc" for /f "tokens=" %%i in (%%~nxc) do ( echo %%i>>"%route%\new_%%~nxc" ) ) cls echo ╭──────────╮ echo ╭─────────┤ 解密成功 ├────────╮ echo │ ╰──────────╯ │ echo │ │ echo │ 恭喜, 批处理解密成功! │ echo │ │ echo ╰─────────────────────────────╯ echo. echo. echo 按任意键退出... pause >nul exit

第7楼　lianjiang2004	发表于 2007-06-08 17:16
金牌会员　发帖 1,884　积分 3,946
试了本论坛的各种方法都基本没用。要么加密后无法运行，要么加密后用一般编辑软件就能看到源码。暂时没发现有效办法。

第8楼　baomaboy	发表于 2007-06-08 18:42
银牌会员　发帖 554　积分 1,513
写了一个用密码加密的，把bat加密为vbs，输入密码后恢复bat文件， On Error Resume Next:Dim WshSHell,FSO,EnCText:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):EnCText="71575206^l\]\lcaZo]^2\din]h4^beZr6]bpg紊皽剁搭惰范若顿返蕊钝范：皽iYln^":outmm=Inputbox(vbcr&vbcr&"请输入加密密码：(3-8位的数字)","加密/解密文本文件 - By baomaboy","25926183"):If outmm = "" then:WScript.Quit(0):end if:Lcode = len(outmm):outcode = outmm & mid(EnCText,1,8 - Lcode):Dim KeyArr(8):KeyArr(0) = Lcode:for i = 1 to 8:KeyArr(i) = Mid(outcode,i,1):next Execute("EnCText=Mid(EnCText,9,Len(EnCText) - 8):For i = 1 To Len(EnCText)"&vbCrLf&"TempNum = Asc(Mid(EnCText,i,1))"&vbCrLf&"if TempNum = 18 Then"&vbCrLf&" TempNum = 34 "&vbCrLf&" end if "&vbCrLf&"TempNum = TempNum + KeyArr(i Mod 9)"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"End If"&vbCrLf&"If TempNum > 23 and TempNum < 28 Then"&vbCrLf&"TempNum = TempNum - 20"&vbCrLf&"end if"&vbCrLf&"OCText = OCText & chr(TempNum)"&vbCrLf&"Next") Set OutFile = FSO.OpenTextFile("Temp.bat",2,true):OutFile.WriteLine(OCText):OutFile.Close:Set WshSHell = Nothing:Set FSO = Nothing:WScript.Quit(0)

第9楼　lianjiang2004	发表于 2007-06-08 18:46
金牌会员　发帖 1,884　积分 3,946
Originally posted by baomaboy at 2007-6-8 18:42: 写了一个用密码加密的，把bat加密为vbs，输入密码后恢复bat文件， On Error Resume Next:Dim WshSHell,FSO,EnCText:Set WshSHell = WScript.CreateObject("WScript.Shel ... 对操作系统是否有特别要求？ win xp下一闪而过，通不过。

第10楼　baomaboy	发表于 2007-06-08 19:08
银牌会员　发帖 554　积分 1,513
对系统没要求啊，你闪了说明你把上面保存为bat了吧，要把代码保存为vbs才行。

第11楼　baomaboy	发表于 2007-06-08 19:09
银牌会员　发帖 554　积分 1,513
密码是：7895

第12楼　vkill	发表于 2007-06-08 19:53
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by qinbuer at 2007-6-8 13:22: 我想，或许可以做一个批处理，将需要加密的批处理按一定的顺序打乱或用其他字符替换，解密的时候再按一定的顺序还原。但是这样子解密前批处理 ... 未必都解的出吧！ http://www.cn-dos.net/forum/viewthread.php?tid=28829&fpage=1&highlight=%E5%8A%A0%E5%AF%86 这个你要解的出我f了你

第13楼　ken123888	发表于 2007-06-08 20:45
新手上路　发帖 8　积分 17
使用bat转exe幽灵程序吧

第14楼　baomaboy	发表于 2007-06-08 20:48
银牌会员　发帖 554　积分 1,513
vkill兄发现没，你的新版 http://www.cn-dos.net/forum/viewthread.php?tid=28829&fpage=1&highlight=%E5%8A%A0%E5%AF%86 开始被卡巴报木马病毒了。 [ Last edited by baomaboy on 2007-6-8 at 08:50 PM ]

第15楼　baomaboy	发表于 2007-06-08 21:17
银牌会员　发帖 554　积分 1,513
Originally posted by qinbuer at 2007-6-8 13:22: 我想，或许可以做一个批处理，将需要加密的批处理按一定的顺序打乱或用其他字符替换，解密的时候再按一定的顺序还原。但是这样子解密前批处理 ... 觉得说到本质就分两种，一种是看像乱码却可以直接执行的所谓障眼法，好像本论坛的那个专门讨论贴里的工具都可以对付，而另一种就是需要密码的，目前好像只有用穷举法，理论是可破解的，但现实却是很难很难。幽灵那个不再讨论了，什么时候解决了temp文件再说吧。