全自动字典生成器

@echo off &title 字典生成器
set/p chr=请输入字典包含的字符,不多于26个:
cls&echo 正在生成字典，字符越多所需时间越长 , 请等待...
:loop
set/a flag+=1
set chr%flag%=%chr:~0,1%&set chr=%chr:~1%
if defined chr goto :loop
for %%i in (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) do (
set/a num+=1&call set var%%num%%=%%i
call echo %%num%%|call findstr/x "%%flag%%">nul&&goto :out
)
:out
for /l %%i in (1,1,%flag%) do (
call set/p=for %%%%%%%%%%var%%i%% in ^(<nul>>new.bat
for /l %%j in (1,1,%flag%) do (call set/p=%%chr%%j%% <nul>>new.bat)
echo ^) do ^(>>new.bat
)
set/p=echo <nul>>new.bat
for /l %%i in (1,1,%flag%) do (
call set/p=%%%%%%%%%%var%%i%%<nul>>new.bat
)
echo ^>^>dictionary.txt>>new.bat
for /l %%i in (1,1,%flag%) do (
echo ^)>>new.bat
)
new.bat