中国DOS联盟

@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