523066680

以后可以用摩尔密码讲粗话不……


那个第一版的跟其他排的不一样，不统一哈
*******************************************************************
第1版
第1行: 蔡-町-铩-姬 摩-倡-词-洹 迪-龟-逵-骢 芄-粒-溧-唠 剸-炎-宜-淙


第2版
*******************************************************************
第1行: 砒-唳-珀-侉 珩-嗝-甥-锬 壅-初-邺-蹉 揍-琉-听-柲 憃-釉-链-椑

[ 本帖最后由 523066680 于 2009-11-23 08:52 编辑 ]

523066680

这次想找人合作……
从来没有过合作写批处理的感觉，唉~

[ 本帖最后由 523066680 于 2009-11-23 14:21 编辑 ]

523066680

是这样子的，我认为排列如果固定，解密的时候可以直接计算
来得到该字所在的行，会省很多事

[ 本帖最后由 523066680 于 2009-11-23 16:39 编辑 ]

523066680

字典的文件名在开头定义，句子数量在开头定义


解密

@echo off
echo %time%
setlocal enabledelayedexpansion
set dict=dictionary.txt
set codex=2
set "code_1=17-5-5-1 8-2-2-4 17-10-4-4 9-8-3-1 3-2-5-3 21-7-1-2 15-9-1-3"
set "code_2=24-5-3-1 10-5-3-4 28-5-1-2 3-2-5-3 21-7-1-2 7-10-4-4 25-5-4-4 32-1-5-3 31-3-5-3 25-7-1-2 12-2-4-1 3-2-5-1"
for /l %%a in (1,1,%codex%) do (set all=!all! !code_%%a!)

::for遍历记录将要用到的行,避免每次都读取文本。
for /f "tokens=1,*" %%a in (%dict%) do (
   set now=%%a
   if "!now:~0,1!!now:~-1!"=="第版" (set "na=!now:第=!" &set "na=!na:版=!")
   if "!now:~0,1!!now:~-2!"=="第行:" (
      set "nb=!now:第=!" &set "nb=!nb:行:=!"
      for %%A in (!na!-!nb!) do (
        if not "!all: %%A=!"=="!all!" (
          set Line%%A=%%b
        )
      )
   )
)
::针对那两句
for /l %%a in (1,1,%codex%) do (
  for %%b in (!code_%%a!) do (
     set "now=%%b" &set "now=!now:-= !"
     set /a n=0
     for %%c in (!now!) do (set /a n+=1 &set num_!n!=%%c)
     set /a col=num_3*8-8+num_4*2-2
     for %%d in (!num_1!-!num_2!) do (set now=!Line%%d!)
     for %%d in (!col!) do (set /p=!now:~%%d,1!<nul)
  )
  echo,
)
echo %time%
pause
复制代码

加密

@echo off
echo %time%
setlocal enabledelayedexpansion
set dict=dictionary.txt
set /a sayx=2
set "say_1=我想他肯定知道这个地方有段好难走的路"
set "say_2=当敌人冲过来后你就拉响前面的警报"
for /l %%a in (1,1,50) do (set one=111111!one!)
for /l %%a in (1,1,%sayx%) do (
set count=!say_%%a!#%one%
set count=!count:~0,300!
set count=!count:*#=!
set /a count%%a=300!count:1=-1!-1-1
for /l %%n in (0,1,!count%%a!) do (set "str_%%a=!str_%%a!!say_%%a:~%%n,1! ")
set strx_%%a=!str_%%a!
)
set /a na=0
::for遍历记录将要用到的行,避免每次都读取文本。
for /f "tokens=1,*" %%a in (%dict%) do (
   set now=%%a
   if "!now:~0,1!!now:~-1!"=="第版" (set /a na+=1,nb=0)
   if "!now:~0,1!!now:~-2!"=="第行:" (
      set /a nb+=1
      set now=%%b
      for /l %%A in (1,1,%sayx%) do (
         for %%B in (!str_%%A!) do (
         if not "!now:%%B=!"=="!now!" (
             set count=!now:*%%B=!#%one%
             set count=!count:~0,300!
             set count=!count:*#=!
             set /a count=300!count:1=-1!-1,count=40-count,nc=count/8+1,nd=count%%8+1,nd=nd/2
             for %%C in (!na!-!nb!-!nc!-!nd!) do (
               set strx_%%A=!strx_%%A:%%B=%%C!
             )
             set str_%%A=!str_%%A:%%B=!
         )
         )
      )
   )
)
for /l %%a in (1,1,%sayx%) do (echo !strx_%%a! &echo,)
echo %time%
pause
 
复制代码

[ 本帖最后由 523066680 于 2009-11-24 09:40 编辑 ]

523066680

netbenton非call 那个比我的快多了~

技术狂飙28了，遥望~

[ 本帖最后由 523066680 于 2009-11-24 09:02 编辑 ]

523066680

在思路已经是最简洁的时候，再怎么改，都是空间和时间的互换。
如果还能更节约时间空间，那么一定是思路，或者操作方式上做手脚

本人此时的观点

[ 本帖最后由 523066680 于 2009-11-24 11:06 编辑 ]

523066680

第二次写加密，换个方式，我就用findstr ，不过用一次。
在我的机子上平均 0.35秒

@echo off
echo %time%
setlocal enabledelayedexpansion
set dict=dictionary.txt
set /a sayx=2,act=1,b=1
set "say_1=我想他肯定知道这个地方有段好难走的路"
set "say_2=当敌人冲过来后你就拉响前面的警报"
for /l %%a in (1,1,50) do (set one=111111!one!)
for /l %%a in (1,1,%sayx%) do (
set count=!say_%%a!#%one%
set count=!count:~0,300!
set count=!count:*#=!
set /a count=300!count:1=-1!-1-1
for /l %%n in (0,1,!count!) do (set "str_%%a=!str_%%a!!say_%%a:~%%n,1! ")
set str=!str! !str_%%a!
)

for /f "tokens=1,2,* delims=: " %%a in ('findstr /n /r "%str%" %dict%') do (
set now=%%c
set now=!now:~1!
set /a na=%%a/14+1
set nb=%%b
set nb=!nb:第=!
set nb=!nb:行=!
      for /l %%A in (1,1,%sayx%) do (
         for %%B in (!str_%%A!) do (
         if not "!now:%%B=!"=="!now!" (
             for /l %%n in (0,1,39) do (if "!now:~%%n,1!"=="%%B" set /a count=%%n+1)
             set /a nc=count/8+1,nd=count%%8+1,nd=nd/2
             for %%C in (!na!-!nb!-!nc!-!nd!) do (
               set say_%%A=!say_%%A:%%B= %%C!
             )
             set str_%%A=!str_%%A:%%B=!
         )
         )
      )
)
for /l %%a in (1,1,%sayx%) do (echo !say_%%a! &echo,)
echo %time%
pause
复制代码

[ 本帖最后由 523066680 于 2009-11-24 12:08 编辑 ]

523066680

呐，那个文字库收藏了，先来一句~

30-6-2-2 31-4-2-2 14-3-2-4 22-9-5-3 30-8-3-1 16-1-3-2 25-9-4-1 28-5-1-2 33-8-4-1 15-10-2-1, 19-9-4-2 11-6-3-3 21-10-1-1 36-8-5-4 10-1-3-4 26-2-3-1.

[ 本帖最后由 523066680 于 2009-11-24 14:16 编辑 ]

523066680

15楼的代码这边测试还蛮正常的。
是对单个字转码的。

523066680

1。我的第二次加密测试过，遇到"版 第 行"不会错的。
   因为我for 的时候提取的参考字符是 "第x版" "第x行" 后面的那些信息，如果刚好是第x版 则提取为空
   接着我后面还有个判断 -- [字符] 是否存在于 [提取的参考字符]   于是只有遇到密文对应的行才会转换。
（另外本人大胆在前面使用字符串 1 化 +1 的方式来计算 字符串长度…… 虽然体积大，
    虽然耗时0.01 秒到0.02秒，不过为了前面设置的时候可以统一，我觉得值了。）

2。netbenton的经过测试遇到这三个字转换也正常的。

3。关于字典嘛，确实做适当的调整会比较方便批处理

4。batman代码测试新homebook.txt  本机0.30 秒 左右

[ 本帖最后由 523066680 于 2009-11-25 10:02 编辑 ]

523066680

1.恩，我觉得如果是我知识范围内的东西，应该是cpu . cup是杯子
2.是不是说时间呀，
  我拿到256M的机子试过的。
  batman那个代码对应新的homebook的 速度是0.30秒左右 ，
  用旧homebook 会上秒。

523066680

解密平均0.10 s
加密平均0.20 s 多数为0.19s
鉴定为:
       都玩刷屏呢……  不加PB了。

[ 本帖最后由 523066680 于 2009-11-25 14:12 编辑 ]

523066680

自动化与手工操作的参与量，是为自己拿捏。