无忧启动论坛

标题: 一段bat加密器代码 [打印本页]

作者: chinalinux 时间: 2007-9-2 23:13
标题: 一段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

作者: chinazswa 时间: 2007-9-3 00:31
哦。矛和盾都有了。

作者: spadek 时间: 2007-9-3 07:55
标题: 回复 #2 chinazswa 的帖子
这样加密的太简单哦。。。^_^

作者: chinalinux 时间: 2007-9-3 08:28
INFO有什么更好的可不可告诉我呢？谢谢！

作者: spadek 时间: 2007-9-3 08:36
标题: 回复 #4 chinalinux 的帖子
最好不加密啦，有好的批处理大家分享吗，何必搞的这么神秘。。。^_^

作者: chinalinux 时间: 2007-9-3 08:41
嗯！原来所谓的高级一点的加密就是不加密呀！呵呵！学习了

作者: fjxplsy 时间: 2007-9-3 10:31

原帖由 chinalinux 于 2007-9-3 08:41 AM 发表
嗯！原来所谓的高级一点的加密就是不加密呀！呵呵！学习了

刚才试了,很好啊!

作者: chinalinux 时间: 2007-9-3 11:34
呵呵！学习之用！:P

作者: ealton 时间: 2007-10-7 22:11
学习了.....:(

作者: zjghjs 时间: 2007-10-13 16:46
其实用此法加过密的文件不用解密，只要用RAR也可以看到原码的

作者: 瑶哥 时间: 2007-11-18 12:08
好东西，收下先。卍~~~

作者: mp3bbs 时间: 2007-11-20 00:41
学习中呵呵

欢迎光临无忧启动论坛 (http://wuyou.net./)