批處理如何批量生成隨機長度的隨機字母數字符號組成的密碼

[已解決]批處理如何批量生成隨機長度的隨機字母數字符號組成的密碼最后由 pcl_test 于 -8-17 23:08需要批量輸出隨機長度隨機字母數字密碼，網上找到份，可以設置數字，數字字母，數字字母符號，生成個數，但是長度寫死了，只能生成10位的，不止從何修改，使他能夠隨機7-13位長度，附上找到的代碼

@echo off& setlocal enabledelayedexpansion
mode con cols=60 lines=10& color 0a& title .
del smile.txt 2>nul& echo.1.純數字2.數字英文3.數字英文符號
set /p wind=選擇序號:& echo. & set /p snow=輸入生成組合個數:
for %%1 in (0 1 2 3 4 5 6 7 8 9 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 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 x+=1&& set x!x!=%%1)
if %wind%==1 (for /l %%1 in (1 1 %snow%)do (for /l %%2 in (1 1 10)do (set /a n%%2=!random! %% 10
set m%%1=!m%%1!!n%%2!)
cls& echo %%1/%snow%& echo !m%%1!>>smile.txt))
if %wind%==2 (for /l %%1 in (1 1 %snow%)do (for /l %%2 in (1 1 10)do (set /a n%%2=!random! %% 62 +1 
call set m%%1=!m%%1!%%x!n%%2!%%)
cls& echo %%1/%snow%& echo !m%%1!>>smile.txt))
if %wind%==3 (more +14 %~F0>smile.vbs& smile.vbs %snow%&& del smile.vbs)
if exist smile.txt (start  smile.txt)else mshta vbscript:msgbox(輸入錯誤)(close)
exit
x=array(0,1,2,3,4,5,6,7,8,9,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,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,~,!,@,#,$,%,^,&,*,(,),_,+,|,[,],{,},;,',:,,,.,/,<,>,?)
for i = 1 to wscript.arguments(0)
for j = 1 to 10
Randomize
y=int(1000000*rnd mod 89)
n=n & x(y): next 
n=n & vbcrlf: next
createobject(scripting.filesystemobject).opentextfile(smile.txt,2,true).writeline n
nclick="copycode($('code0'));">復制代碼