中国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 bb.txt goto next
set /p password=第一次使用请设置密码:
echo.%password%>bb.txt

:next
for /f "delims=" %%i in (bb.txt) do set passwords=%%i
:begin
cls&set /p password= 请输入密码：
...

@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