[其他] 求助批处理动态密码问题

ANSL

各位大神好！
如各位大神有能力请帮忙做个批处理：一次生成三个密码（5位数），三个密码生成时保存时间到配置文件中，结束时间是1小时（下次打开的时候时间相差大于等于一小时重换密码，三个密码用哪个都行，一个密码只能用1次，，不能用的加入黑名单配置文件中）

不是我不想做，不练，不写，是真的因为本人代码风格笨拙,也没有能力！


以下贴出本人代码（不要运行，也不要改）

@echo off
Setlocal EnableDelayedExpansion
setlocal enableextensions
:lodd

if not exist conf.ini goto hua
if not exist pwd goto hua
set tme=%date:~0,4%%date:~5,2%%date:~8,2%
call :line conf.ini Date tmp
call :line conf.ini MaxER tmp1
call :read2 tmp 
call :read3 err 
call :read1 tmp1 
echo %max% %ec% %wct%
pause
if "%ec%" GEQ "%tme%" set/a %wct%+1=wct
if "%wct%" GTR "%max%" exit
goto main


:main
echo %wct%>err
echo.
echo.
echo 动态密码2022/11/16 失效
echo.
echo.
pause
cls
echo.
set/p ab=密码:
call :pwd %ab% pwd
goto main




:line
(for /f "delims=" %%a in (%1) do (
    set str=%%a
    if "!str:~,1!"=="[" (
        if "%%a"=="[%2]" (
            set n=true
        ) else (
            set n=
        )
    ) else if defined n (
        echo,%%a
    )
))>%3
goto :eof

:hua
if exist pwd del pwd /s /q /f >nul
echo %random%-%random%-%random%>pwd
ECHO 完成.
goto lodd
:pwd
cd /d "%~dp0"
set "return=NotFound"
set "input=Nothing"
set "input=%1"
for /f "delims=:" %%i in ('type "%2" ^| findstr /n /l /x /c:"%input%"') do (
    set "return=%%i"
)
if "%rerurn%"=="NotFound" goto main
if "%input%"=="Nothing" goto main&set /a wct=%wct%+1
call :del %return%
goto install
:del
for /f "delims=" %%i in ('%1') do (
        (set n=0
        for /f "delims=" %%j in ('type "%%i"') do (
                set /a n+=1
                if not "!n!"=="1" echo %%j
        ))>$
        move $ "%%i">nul
)
:read1
for /f "delims=" %%i in (%1) do (
    set max=%%i 
) 
goto :eof

:read2
for /f "delims=" %%m in (%1) do (
    set ec=%%i 
) 
goto :eof

:read3
for /f "delims=" %%b in (%1) do (
    set wct=%%i 
) 
goto :eof

:err
echo.
echo 不能找到文件！
pause>nul
exit
:install
pause
exit
复制代码