中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-12 23:29

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何用批处理生成这样的纯数字字典

可打印版本　1,081 / 8

第1楼　w1314ich	发表于 2010-01-05 13:34
中级用户　发帖 119　积分 234
如何用批处理生成这样的纯数字字典字典要求：数字0~9 可生成AABB型 ABAB型 ABBA型总共三种类型4位纯数字密码字典

第2楼　w1314ich	发表于 2010-01-05 15:12
中级用户　发帖 119　积分 234
有人帮帮我吗

第3楼　w1314ich	发表于 2010-01-05 16:57
中级用户　发帖 119　积分 234
用批处理实现不了吗？

第4楼　qinchun36	发表于 2010-01-05 17:43
高级用户　发帖 400　积分 609
可以拆成三个文件。 @echo off setlocal enabledelayedexpansion for /l %%i in (1000,1,9999) do ( set a=%%i ::AABB if "!a:~0,1!"=="!a:~1,1!" ( if not "!a:~0,1!"=="!a:~2,1!" ( if "!a:~2,1!"=="!a:~3,1!" ( echo !a! if "!a:~2,1!"=="0" echo !a:~2,2!!a:~0,2! ) ) ) ::ABAB if "!a:~0,1!"=="!a:~2,1!" ( if not "!a:~0,1!"=="!a:~1,1!" ( if "!a:~1,1!"=="!a:~3,1!" ( echo !a! if "!a:~1,1!"=="0" echo !a:~3,1!!a:~2,1!!a:~1,1!!a:~0,1! ) ) ) ::ABBA if "!a:~0,1!"=="!a:~3,1!" ( if not "!a:~0,1!"=="!a:~1,1!" ( if "!a:~1,1!"=="!a:~2,1!" ( echo !a! if "!a:~1,1!"=="0" echo !a:~1,1!!a:~0,1!!a:~3,1!!a:~2,1! ) ) ) ) echo OK. pause>nul

第5楼　w1314ich	发表于 2010-01-06 15:59
中级用户　发帖 119　积分 234
如果不是纯数字的话，而是字母和数字按照AABB,ABAB,ABBA的规律任何混合的话应该如何写

第6楼　bat-zw	发表于 2010-01-08 11:18
金牌会员　发帖 1,276　积分 3,105
献丑了。。。 @echo off&setlocal enabledelayedexpansion set "code=abcdefghijklmnopqrstuvwxyz0123456789" (for /l %%a in (35,-1,1) do ( set "str=!code:~,1!"&set "code=!code:~1!"&set "codes=!code!" for /l %%b in (%%a,-1,1) do ( set "var=!codes:~,1!"&set "codes=!codes:~1!" echo !str!!str!!var!!var! echo !str!!var!!str!!var! echo !str!!var!!var!!str! echo !var!!var!!str!!str! echo !var!!str!!var!!str! echo !var!!str!!str!!var! ) ))>list.txt start list.txt [ Last edited by bat-zw on 2010-1-8 at 14:25 ]

第7楼　ligui0001	发表于 2010-01-08 13:27
初级用户　发帖 41　积分 58
呵呵，给个解释，FOR难学会

第8楼　523066680	发表于 2010-01-08 20:32
银牌会员　发帖 1,133　积分 2,362
尝试用那个东东做一次 @echo off setlocal enabledelayedexpansion call :func "" "12AB" pause exit :func setlocal set str=%~2 if "%str:~2%"=="" ( call :echo %~1 goto :eof ) set /a n=-1 :next set /a n+=1,nb=n+1 call :func "%~1 !str:~%n%,1!" "!str:~0,%n%!!str:~%nb%!" if not "!str:~%n%,-1!"=="" (goto :next) endlocal goto :eof :echo echo %1%1%2%2 echo %1%2%1%2 echo %1%2%2%1 goto :eof

第9楼　523066680	发表于 2010-01-08 21:17
银牌会员　发帖 1,133　积分 2,362
1-9 call多了速度很慢的说，不说速度，却算是锻炼了。 @echo off setlocal enabledelayedexpansion set long=9876543210 call :func "" "123456789" pause exit :func setlocal set str=%~2 if "%str:~6%"=="" ( call :echo %~1 goto :eof ) set /a n=-1 :next set /a n+=1,nb=n+1 call :func "%~1 !str:~%n%,1!" "!str:~0,%n%!!str:~%nb%!" if not "!str:~%n%,-1!"=="" (goto :next) endlocal goto :eof :echo echo %1%1%2%2 echo %1%2%1%2 echo %1%2%2%1 goto :eof

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023