第三次替代加密.txt

来自「s11ss写的批处理。他把很多C语言中经典的例子都用批处理实现了」· 文本 代码 · 共 31 行

@echo off        %Replace Encrypt     {s11ss 2007-12-5}%
if not exist "%~f1" (echo File doesn't exist!&goto :eof)
set "s=zyxwvutsrqponmlkjihgfedcba"
<"%~f0" more +25>"%~dpn1"_encrypt.bat
for /f "delims=" %%a in ('findstr /n .* "%~f1"') do (
        set "var=%%a"
        setlocal enabledelayedexpansion
        set var=!var:*:=!
        if not "!var!" equ "" (
                set t=0
                echo.!var!|findstr /r /c:"^[         ]*:[^:][^:]*$">nul&&set t=1
                set var=!var:%%=!
                echo.!var!|findstr "">nul&&set t=1
                set var=!var:=%%!
                if !t! equ 0 (
                        for /l %%b in (0,1,25) do (
                                call set "n=%%s:~%%b,1%%"
                                for %%c in (!n!) do set "var=!var:%%c=%%-%%b%%!"
                        )
                )
        )
        (echo.!var!)>>"%~dpn1"_encrypt.bat
        endlocal
)
goto :eof
@echo off
set "s=zyxwvutsrqponmlkjihgfedcba"
for /l %%a in (0,1,25) do call set -%%a=%%s:~%%a,1%%
set "s="
echo on