随风

@echo off&setlocal enabledelayedexpansion
set "x=ABCDEFGHIJKLMNOPQRSTUVWXYZ"&set code=!x!&set "miwen="
for /l %%a in (1 1 26) do (
   set /a .!x:~0,1!=%%a
   set code2=!code2! !x:~0,1!
   set "x=!x:~1!"
)
set /p my=请输入密匙 
set /p mw=请输入明文 
for %%a in (!code2!) do set mw=!mw:%%a= %%a !
for %%a in (!mw!) do (
   if not defined my_ set "my_=!my!"
   set /a yum=.!my_:~0,1!,w=.%%a-1
   for %%i in (!yum!) do set "codex=!my_:~0,1!!code:~%%i!!code:~0,%%i!"
   for %%i in (!w!) do set "miwen=!miwen!!codex:~%%i,1!"
   set "my_=!my_:~1!"
)
echo 密文:  !miwen!
pause
复制代码