批处理用维热纳尔方阵给文本加密

lhjoanna

方法:把26位字母与1-26相应的数字对应起来，密文即为明文字母对应的数字与密钥字母对应的数字相加-1所对应的字母。

1. @echo off&setlocal enabledelayedexpansion
   
2. set "code=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
   
3. for %%i in (%code%) do (
   
4.     set /a num+=1
   
5.     set t!num!=%%i
   
6.     set p%%i=!num!
   
7. )
   
8. :begin
   
9. set /p text=请输入明文:&set /p key=请输入密钥:&set /p=密文:<nul
   
10. :loop
    
11. set "_text=%text:~,1%"&set "_key=%key:~,1%"
    
12. set "text=%text:~1%"&set "key=%key:~1%%_key%"
    
13. set /a n=!p%_text%!+!p%_key%!
    
14. set /a n=!n!%%26-1
    
15. set /p=!t%n%! <nul
    
16. if defined text goto loop
    
17. echo.&echo.&goto begin

复制代码

set "key=%key:~1%%_key%"一句借鉴了batman的，感觉好多种方法这种最简洁。

1. 哦，好像和上楼的思想一样啊，不好意思啊，发表以后才仔细看。把标头去了！

复制代码

[ 本帖最后由 lhjoanna 于 2008-11-19 01:24 编辑 ]

hkmhd

翻了一个不得了的帖子出来, 有很多东西可以学

随风

1. @echo off&setlocal enabledelayedexpansion
   
2. set "x=ABCDEFGHIJKLMNOPQRSTUVWXYZ"&set code=!x!&set "miwen="
   
3. for /l %%a in (1 1 26) do (
   
4.    set /a .!x:~0,1!=%%a
   
5.    set code2=!code2! !x:~0,1!
   
6.    set "x=!x:~1!"
   
7. )
   
8. set /p my=请输入密匙
   
9. set /p mw=请输入明文
   
10. for %%a in (!code2!) do set mw=!mw:%%a= %%a !
    
11. for %%a in (!mw!) do (
    
12.    if not defined my_ set "my_=!my!"
    
13.    set /a yum=.!my_:~0,1!,w=.%%a-1
    
14.    for %%i in (!yum!) do set "codex=!my_:~0,1!!code:~%%i!!code:~0,%%i!"
    
15.    for %%i in (!w!) do set "miwen=!miwen!!codex:~%%i,1!"
    
16.    set "my_=!my_:~1!"
    
17. )
    
18. echo 密文:  !miwen!
    
19. pause

复制代码

netbenton

1. 
   
2. @echo off&setlocal enabledelayedexpansion
   
3. set x=ABCDEFGHIJKLMNOPQRSTUVWXYZ
   
4. set miwen=&set yum=miwen
   
5. for /l %%a in (0 1 25) do (
   
6.    set /a n=%%a+1,#!x:~%%a,1!=n
   
7.    set #!n!=!x:~%%a,1!
   
8. )
   
9. set /p my=请输入密匙
   
10. set /p mw=请输入明文
    
11. set m=0
    
12. :lp
    
13. set/a mm=m+99
    
14. for /l %%a in (!m!,1,!mm!) do (
    
15. for %%b in (!yum!) do (
    
16.   set miwen=!miwen!!#%%b!
    
17.   if "!mw:~%%a!" equ "" goto :ok
    
18.   set /a "yum=(#!my:~0,1!+#!mw:~%%a,1!+24)%%26+1",m=%%a+1
    
19.   set my=!my:~1!!my:~0,1!
    
20. )
    
21. )
    
22. goto :lp
    
23. :ok
    
24. echo 密文:  !miwen!
    
25. pause
    

复制代码

[ 本帖最后由 netbenton 于 2009-5-14 12:54 编辑 ]

woshixuso1

我来学习下

woshixuso1

为什么不能加解密带数字的字符串啊

狱渊

我彻底晕了   明文密钥是做什么的？

CrLf

回复 22# 狱渊



解密算法是动态的，有“无限种”可能
密钥能确定其中的一种，并以此推算出明文

906053584

话说怎么把加密好的密文输出到比如c：\123.txt

salad

回复 1# pusofalse
看看我这行吗