中国DOS联盟

@echo off&setlocal enabledelayedexpansion
set in=寒夜孤星
set /p in=输入字符串
set m=0
set svr=abcdefghijklmnopqrstuvwxyz
:rep
if "!in:~%m%,1!" neq "" (set s0=!s0! !in:~%m%,1! &set/a m+=1&goto :rep)
set n=0
for %%a in (!s0!) do (
        for %%b in (!n!) do (
                set /a n+=1
                set "coe1=!coe1!for %%!svr:~%%b,1! in (^!s%%b^!) do (set s!n!=^!s%%b:%%!svr:~%%b,1!=^!^&"
                set "coe2=!coe2!%%!svr:~%%b,1!"
                set "coe3=!coe3!)"
                set doe1%%b=!coe1:~,-16!
                set doe2%%b=!coe2!
                set doe3%%b=!coe3!
        )
)
set n=0
:loop
set coe1=!doe1%n%!
set coe2=!doe2%n%!
set coe3=!doe3%n%!

::动态代码
%coe1%
echo %coe2%
%coe3%
::动态代码

set/a n+=1
pause
if !n! neq !m! goto loop