中国DOS联盟

: by Herbert Kleebauer
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@echo off
echo hP1X500P[PZBBBfh#b##fXf-V@`$fPf]f3/f1/5++u5x>in.com
set /p password=Enter password:<nul
for /f "tokens=*" %%i in ('in.com') do set password=%%i
pause
del in.com
echo.
echo The Password is:"%password%"
pause

@echo off && setlocal && cls
chcp 437 >nul
graftabl 936 >nul

:C

echo exit|cmd/kprompt $_e 100 CD 16 B4 4C CD 21$_g$_|debug>nul

if [%errorlevel%]==[13] ( goto :A ) else ( goto :B )
:A
        ::  按回车符到这里执行
      set psd=123
      if  not %psd%==%s% (
         echo.
         echo 密码错误！请重新输入。
         set s=
         goto :C
       ) else (
          echo.
          echo 密码正确！
          goto :D
         )   
:B
       set /a d=%errorlevel%-48>nul
       set s=%s%%d%
       set /p a=*<nul
       goto :C
:D   
       pause

@echo off && setlocal && cls
chcp 437 >nul
graftabl 936 >nul

:C

echo exit|cmd/kprompt $_e 100 CD 16 B4 4C CD 21$_g$_|debug>nul

if [%errorlevel%]==[13] ( goto :A ) else ( goto :B )
:A
        ::  按回车符到这里执行
   
      set psd=123
      if  not %psd%==%s% (
         echo.
         echo 密码错误！请重新输入。
         set s=
         goto :C
       ) else (
          echo.
          echo 密码正确！
          goto :D
         )   
:B      
       set /a d=%errorlevel%-48>nul
       if %d%==-40 (
          if  [%s%]==[] (goto :C) else (   
              set /p d=<nul
              set /p d= <nul
              set /p d=<nul
              set s=%s:~0,-1%
              goto :C
           )
       )
       set s=%s%%d%
       set /p a=*<nul
       goto :C
:D   
       pause