中国DOS联盟

@echo off & setlocal        %CheckPWD {s11ss@bbs.cn-dos.net 2008-12-12}%

echo Password:
call :CheckPWD p1 123456 *
echo.
if errorlevel 1 (echo %p1% - No) else (echo %p1% - Yes)

echo.

echo Password:
call :CheckPWD p2 123456
if errorlevel 1 (echo %p2% - No) else (echo %p2% - Yes)

pause & goto :eof






:CheckPWD
setlocal & if "%~2"=="" exit /b 1

for /f "tokens=1 delims=:" %%a in ('findstr /nrc:"^e100 B7 2A 80" "%~f0"') do set /a n=%%a-1
more /e +%n%<"%~f0" | debug>nul

if "%~3"=="" x>nul
if "%~3" neq "" set c=%~3 & call set "c=%%c:~0,1%%"
if "%~3" neq "" x %c%

for /f %%a in ('x -o') do set "p=%%a"

endlocal & set "%~1=%p%" & del x.com & if "%~2"=="%p%" (exit /b 0) else (exit /b 1)

e100 B7 2A 80 3E 80 00 00 74 22 80 3E 80 00 02 75 06
e110 8A 3E 82 00 EB 15 83 E0 00 8E D8 80 3E 00 02 00
e120 74 6A BA 01 02 B4 09 CD 21 EB 61 83 E6 00 8E C6
e130 80 E4 00 CD 16 8A D8 80 FB 1B 75 08 26 80 26 00
e140 02 00 EB 48 80 FB 0D 74 37 80 FB 08 75 1A 83 FE
e150 00 74 DD B2 08 B4 02 CD 21 B2 20 B4 02 CD 21 B2
e160 08 B4 02 CD 21 4E EB C8 80 FB 21 72 C3 80 FB 7E
e170 77 BE 8A D7 B4 02 CD 21 26 88 9C 01 02 46 EB B0
e180 26 C6 84 01 02 24 26 C6 06 00 02 24 B8 00 4C CD
e190 21
nx.com
rcx
91
w
q