中国DOS联盟

@echo off
if not exist bb.txt
for /f "delims=" %%i in (bb.txt) do set passwords=%%i
:begin
cls&set /p password=  请输入密码：
if "%password%"=="%passwords%" goto ok
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

:wrong
cls&echo   输入无效，请正确选择输入！&ping /n 2 127.1>nul&goto set
:ok
cls&echo   密码正确！&pause&goto :eof

@echo off

if exist %windir%\bb.txt goto check_pass
set /p password=请设置密码:&echo %password%>%windir%\bb.txt&goto opration_ver
:check_pass
for /f "delims=" %%i in (%windir%\bb.txt) do set passwords=%%i
cls&set /p password=请输入密码：
if "%password%"=="%passwords%" goto opration_ver
cls&echo   密码错误&ping /n 2 127.1>nul&goto check_pass

:set_pass
cls&set /p New_pass=请输入新密码:
cls&set /p New_pass1=请再输入新密码:
if %New_pass% equ %New_pass1% echo %New_pass%>bb.txt&echo.设置成功&pause&goto ok
echo.两次输入的密码不一致,请重新设置&pause&goto set_pass
:ok
cls&echo   密码正确！&pause&goto :eof

@echo off
if exist M.RQM goto bn
rem llts in 0070303schj by qq251485609
@echo 12345678>M.RQM
:bn
@cls
@echo off
@echo.
@echo.
@echo.
@echo                 为了用户的设置安全，本程序要管理员才能进入操作！
@echo.
@echo.
@echo                                输入 T 退出
@echo.
@echo          -------         *         --------         *         --------
@echo.
@echo     初始密码: 12345678
@echo.
SET /P SY=     请输入管理员密码:
FOR /F %%I IN (M.RQM) DO SET syq=%%I
IF "%SY%" == "%syq%" GOTO kyjr
IF "%SY%" == "CK" GOTO ckmm
IF "%SY%" == "T" GOTO :eof
@cls
@echo.
@echo.
@echo.
@echo               对不起，(密码可能已更改)你不是管理员不能进入操作使用！
pause>nul
@goto  bn
:kyjr
@cls
@echo.
SET /P SYg=   密码正确。按任意键进入程序(如果需要修改密码，请输入XGMM):
IF "%SYg%" == "XGMM" GOTO xg
IF not "%SYg%" == "XGMM" goto  k
:xg  
@cls
SET /P xmm=      请输入新密码:
@cls
SET /P cxmm=    请重新再输入一次:

IF "%cxmm%" == "%xmm%" GOTO gng
@echo 密码不一致！
pause
goto xg
:gng
@echo %xmm%>M.RQM
@echo   密码更改成功！ 请你牢记此密码%xmm%
pause>nul
goto bn
:ckmm
@cls
FOR /F %%I IN (M.RQM) DO SET syq=%%I
@echo %syq%
pause>nul
goto bn
:k
@cls
@echo  进入使用程序
pause>nul