文本文件加解密批处理代码

文本文件加解密批处理代码文本文件加解密程序 原理：使用DEBUG 脚本动态生成可执行程序对输入文件逐字节异或编码 特性：加解密互逆，多文件操作，单数字密钥 复制代码

代码如下:

@echo off & setlocal & chcp 437>nul & graftabl 936>nul if "%~1"=="" ( echo. echo.＝文本文件加解密程序 :: qzwqzw :: 2007-06-05 :: Release 7 echo. echo.＝原理：使用DEBUG 脚本动态生成可执行程序对输入文件逐字节异或编码 echo. echo.＝特性：加解密互逆，多文件操作，单数字密钥 echo. set /p file=－请输入文件名（支持通配符，默认为 .*.txt）： set /p pass=－请输入密钥（一位0~F的十六进制数，默认为0）： echo. ) else ( set "file=%~1" set "pass=%~2" ) if "%file%"=="" set file=*.txt if "%pass%"=="" set pass=0 if not exist "%file%" echo ！找不到文件: "%file%" && goto end :: 生成并执行 DEBUG 脚本，生成转换程序 echo e 100 B4 06 B2 FF CD 21 74 08 34 E%pass% 88 C2 CD 21 EB F0 C3>_codec.scr for %%s in (rcx 11 n_codec.com w q) do echo %%s>>_codec.scr debug <_codec.scr | find "Error">nul && echo ！密钥错误: "%pass%" && goto :end :: 搜索指定路径所有匹配文件进行转换 for %%f in ("%file%") do set "fPath=%%~dpf" for /f "delims=" %%f in ('dir /a/b/od "%file%" 2^>nul') do ( (set "fIn=%fPath%%%f") && (set "fOut=%fPath%#%%f") call :Codec ) echo. if exist _codec.* del _codec.* if "%~0"=="%~f0" pause goto :eof :Codec if exist "%fOut%" echo ！已存在文件: "%fOut%" && pause && goto :eof echo ＋正在转换 "%fIn%" ... if exist _codec.com _codec.com < "%fIn%" > "%fOut%" if not exist "%fOut%" echo ！转换失败，未生成 "%fOut%" && pause

警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！