netbenton

@echo off&setlocal enabledelayedexpansion
set sati=!time!
set Ban=0
for /f "tokens=* delims=*" %%a in (homebook.txt) do (
        set str=%%a
        if "!str:~-1!" equ "版" (set /a Ban+=1) else (
                for /f "tokens=1,2,*" %%b in ("!ban! !str:-=!") do (set Ban%%b=!Ban%%b!%%d@)
        )
)
::前面读取母本到变量

for /f "tokens=*" %%a in (密文.txt) do (
        set 原文=
        for %%b in (%%a) do (
                for /f "tokens=1-4 delims=-" %%1 in ("%%b") do (
                        set/a hang=%%2-1
                        call :sub 原字 %%1 !hang! %%3 %%4
                        set 原文=!原文!!原字!
                )
        )
        echo;!原文!
)
::解密
echo;!sati!
echo;!time!
set sati=!time!


for /f "tokens=*" %%a in (原文.txt) do (
        set sour=%%a

        set/a z=8180,x=0,y=0
        for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
            for %%b in (!y!) do if "!sour:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
        )

        set 密文=
        echo !sour! [!x!]
        for /l %%b in (0,1,!x!) do (call :sub2 !sour:~%%b,1!)
        echo;!密文!
)
::加密
echo;!sati!
echo;!time!
pause

goto :eof

:sub
for /f "tokens=1-10 delims=@" %%0 in ("!Ban%2!") do (
        for /f "tokens=1-5" %%1 in ("%%%3") do (
                set "str=@%%%4"
                set %1=!str:~%5,1!
        )
)
goto :eof

:sub2
(
for /l %%a in (1,1,!ban!) do (
        if "!Ban%%a:%1=!" neq "!Ban%%a!" set str=!Ban%%a!&set zban=%%a
)
for /f "delims=%1" %%a in ("!str!") do (set str=%%a)

set/a z=8180,x=0,y=0
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
    for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)

set/a zhang=x/26+1,x=x%%26,zlie=x/5+1,zzhi=x%%5+1
set 密文=!密文! !zban!-!zhang!-!zlie!-!zzhi!
goto :eof)
复制代码

[ 本帖最后由 netbenton 于 2009-11-23 23:43 编辑 ]

netbenton

 
@echo off&setlocal enabledelayedexpansion
set sati=!time!
set Ban=0
for /f "tokens=* delims=*" %%a in (homebook.txt) do (
set str=%%a
if "!str:~-1!" equ "版" (set /a Ban+=1) else (
  for /f "tokens=1,2,*" %%b in ("!ban! !str:-=!") do (set Ban%%b=!Ban%%b!%%d@)
)
)
::前面读取母本到变量
for /f "tokens=*" %%a in (密文.txt) do (
set 原文=
for %%b in (%%a) do (
  for /f "tokens=1-4 delims=-" %%1 in ("%%b") do (
   for /f "tokens=1-10 delims=@" %%0 in ("!Ban%%1!") do (
    set v1=%%0&set v2=%%1&set v3=%%2&set v4=%%3&set v5=%%4&set v6=%%5&set v7=%%6&set v8=%%7&set v9=%%8&set v10=%%9
   )
   for /f "tokens=1-5" %%0 in ("!v%%2!") do (
    set v1=%%0&set v2=%%1&set v3=%%2&set v4=%%3&set v5=%%4
   )
   set "str=@!v%%3!"
   set 原文=!原文!!str:~%%4,1!
  )
)
echo;!原文!
)
::解密
echo;!sati!
echo;!time!
set sati=!time!
for /f "tokens=*" %%a in (原文.txt) do (
set sour=%%a
set/a z=8180,x=0,y=0
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
     for %%b in (!y!) do if "!sour:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)
set 密文=
echo !sour! [!x!]
for /l %%b in (0,1,!x!) do (
  for %%c in ("!sour:~%%b,1!") do (
   for /l %%d in (1,1,!ban!) do (
    if "!Ban%%d:%%~c=!" neq "!Ban%%d!" set str=!Ban%%d!&set zban=%%d
   )
   for %%d in ("!str:*%%~c=!") do set "str=!str:%%~d=!"
   
   set/a z=1000,x=0,y=0
   for /l %%a in (1,1,11) do (set/a "y=(z-x)/2+x"
    for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
   )
   set/a zhang=x/26+1,x=x%%26,zlie=x/5+1,zzhi=x%%5
   set 密文=!密文! !zban!-!zhang!-!zlie!-!zzhi!
  )
)
echo;!密文!
)
::加密
echo;!sati!
echo;!time!
pause
goto :eof
复制代码

[ 本帖最后由 netbenton 于 2009-11-23 23:43 编辑 ]

netbenton

28楼的肯定是双核cup

虽然批处理运行很“霸时间”，但是双核的cup不管怎样，一个进程只会用一个cup去执行。

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

netbenton

我的方法再提提速速

@echo off&setlocal enabledelayedexpansion
set sati=!time!
set Ban=0
for /f "tokens=* delims=*" %%a in (homebook.txt) do (
        set str=%%a
        if "!str:~-1!" equ "版" (set /a Ban+=1) else (
                for /f "tokens=1,2,*" %%b in ("!ban! !str:-=!") do (set Ban%%b=!Ban%%b!%%d@)
        )
)
::前面读取母本到变量

for /f "tokens=*" %%a in (密文.txt) do (
        set 原文=
        for %%b in (%%a) do (
                for /f "tokens=1-4 delims=-" %%1 in ("%%b") do (
                        for /f "tokens=1-10 delims=@" %%0 in ("!Ban%%1!") do (
                                set vv=1%%02%%13%%24%%35%%46%%57%%68%%79%%810%%9
                        )
                        for /f "tokens=1-5" %%0 in ("!vv:*%%2=!") do (
                                set vv=1%%02%%13%%24%%35%%4
                        )
                        set "str=@!vv:*%%3=!"
                        set 原文=!原文!!str:~%%4,1!

                )
        )
        echo;!原文!
)
::解密
echo;!sati!
echo;!time!
set sati=!time!

for /f "tokens=*" %%a in (原文.txt) do (
        set sour=%%a

        set/a z=8180,x=0,y=0
        for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
            for %%b in (!y!) do if "!sour:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
        )

        set 密文=
        echo !sour! [!x!]
        for /l %%b in (0,1,!x!) do (
                for %%c in ("!sour:~%%b,1!") do (
                        for /l %%d in (1,1,!ban!) do (
                                if "!Ban%%d:%%~c=!" neq "!Ban%%d!" set str=!Ban%%d!&set zban=%%d
                        )

                        for /f "tokens=1-10 delims=@" %%0 in ("!str!") do (
                                set vv=1%%0@1@2%%1@2@3%%2@3@4%%3@4@5%%4@5@6%%5@6@7%%6@7@8%%7@8@9%%8@9@10%%9@10@
                        )

                        for /f "tokens=1,2 delims=@" %%0 in ("!vv:*%%~c=!") do (
                                set zhang=%%1
                                set vv=!vv:*%%1=!
                        )


                        for /f "tokens=1-5" %%0 in ("!vv!") do (
                                set vv=1%%0 @1@2%%1 @2@3%%2 @3@4%%3 @4@5%%4 @5@
                        )

                        for /f "tokens=1,2 delims=@" %%0 in ("!vv:*%%~c=!") do (
                                set zlie=%%1
                        )
                                set vv=!vv:*%%~c=!
                                set vv=!vv: =1234!
                                set zzhi=!vv:~3,1!
                
                        set 密文=!密文! !zban!-!zhang!-!zlie!-!zzhi!
                )
        )
        echo;!密文!
)

::加密
echo;!sati!
echo;!time!
pause
goto :eof
复制代码