批处理脚本生成密码

懒的想密码，搞一个随机生成的试试
::输入密码位数
::调用随机函数生成序号
::根据序号抽取密码字符
::输出组装后的密码字符
@echo off
setlocal enabledelayedexpansion
chcp 65001
:START
echo “请输入密码长度”：
set /p a=
echo “请输入密码种类(9:纯数字，35:数字+小写字符，61:数字+小写+大写，68:数字+小写+大写+符号)”:
set /p l=
set /a n=0
set pass=

:GE
set /a b=%random%
::echo %b%
set /a c=b%%%l%+1
echo %c%
if %c% GTR 31 (goto :two)
if %c% GTR 62 (goto :three)

:one
for /f "tokens=%c% delims= " %%i in (“1 2 3 4 5 6 7 8 9 0 a b c d e f g h i j k l m n o p q r s t u”) do (
set pas=%%i
echo !pas!
goto :PA
)

:two
set /a d=c-31
for /f "tokens=%d% delims= " %%i in (“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 pas=%%i
echo !pas!
goto :PA
)

:three
set /a e=c-62
for /f “tokens=%e% delims= " %%i in (”. / - # $ *") do (
set pas=%%i
echo !pas!
goto :PA
)

:PA
set pass=%pas%%pass%
set /a n=n+1
if %n% LSS %a% (goto :GE)
echo %pass%
goto :START