@echo off
set code=abcdefghijklmnopqrstuvwxyz0123456789-_
for /f "tokens=2" %%i in (%~nx0) do set passwords=%%i
:begin
cls&set /p password=  请输入密码：
if "%password%"=="%passwords%" goto set
cls&echo   密码错误&ping /n 2 127.1>nul&goto begin
:set
set select=2
cls&set /p select=  是否更改密码（默认回车为不更改）：(1. 更改 2.不更改)
if %select% equ 1 goto change
if %select% equ 2 goto ok
if %select% neq 1 if %select% neq 2 goto wrong
:change
set /a n=%random%%%38,m+=1
call,set pwd=%pwd%%%code:~%n%,1%%
if %m% lss 16 goto change
echo :: %pwd%>>%~nx0
cls&echo   请保管好你的新密码：%pwd%&pause&goto :eof
:ok
cls&echo   密码正确！&pause&goto :eof
:wrong
cls&echo   输入无效，请正确选择输入！&ping /n 2 127.1>nul&goto set
:: abcdefghijklmnop