中国DOS联盟

@echo off
mode con cols=78 lines=34&color f0
setlocal enabledelayedexpansion
md c:\pw >nul 2>nul
set myPath=c:\pw\
set regRoot=HKEY_CLASSES_ROOT\.ax\rt&set regAB=rP&set pX=5
type "%myPath%hide.pw">nul 2>nul&& goto sub3

:lpSelect
CLS&ECHO      A.其他的内容[未定义]        B.设置本软件密码
echo.
set /p Sex=     请选择:
if /i "%Sex%"=="B" type "%myPath%hide.pw">nul 2>nul&& goto sub1||goto sub2
set Sex=&goto lpSelect

:sub1
        type "%myPath%%hide%.dte">nul 2>nul&& set pwNext=0 ||set pwNext=3
        if %pwNext%==0 set pX=0
        cls&Echo.
        Echo                           ╭────────────╮
        Echo           ╭───────┤    删 除 口 令 保 护   ├───────╮
        Echo           │              ╰────────────╯              │
        Echo           │                                                        │
        Echo           │    * 请输入原口令,本软件已存在保护权限                 │
        Echo           │                                                        │
        Echo           │    * 您还有 [%pX%]次机会                                  │
        Echo           │                                                        │
        Echo           ╰────────────────────────────╯
        if "%pX%"=="0" (
                <nul set/p=-1>"%myPath%%hide%.dte"
                Echo.&Echo             ≠软 件 自 我 保 护 中 , 请明 天 再 试 ≠
                Echo\&Echo             [正在写入操作日志...]
                Pause>nul&Exit
        )
        Echo.&set pInput=
        set /p pInput=             ≡Input≡
        if not defined pInput goto lpStart
        for /f "skip=4 tokens=3" %%i in ('reg query %regRoot% /v %regAB%') do set rP=%%i
        if "%rp%"=="%pInput%" (
                set pX=3
                Echo.&Echo             口令正确.
                del "%myPath%*.*" /q
                set regVal=none
                call :RegSub %regRoot% %regAB% %regVal%
                pause>nul&goto lpSelect
        )
        set /a pX-=1
        Echo.&Echo             口令错误.&Pause>nul
        goto sub1
:sub2
        cls&Echo.
        Echo                           ╭────────────╮
        Echo           ╭───────┤    设 置 软 件 口 令   ├───────╮
        Echo           │              ╰────────────╯              │
        Echo           │                                                        │
        Echo           │    * 此口令控制本软件的使用权限                        │
        Echo           │                                                        │
        Echo           │    * 一旦设置口令,请务必劳记                           │
        Echo           │                                                        │
        Echo           │    * 请输入新口令   规则:[a~z] 或 [0~9]                │
        Echo           │                                                        │
        Echo           ╰────────────────────────────╯
        Echo.&set pInput=
        echo              [一 定 要 劳 记 您 的 密 码]&echo.
        set /p pInput=             ≡Input≡
        if not defined pInput goto lpStart
        pushd "%myPath%"
        set regVal=%pInput%
        call :RegSub %regRoot% %regAB% %regVal%
        <nul set/p="%pInput%">"%myPath%hide.pw"
        cls&Echo.&Echo             设置权限成功,您的口令是:%pInput%
        pause>nul&goto lpSelect
:sub3       
        type "%myPath%%hide%.dte">nul 2>nul&& set pwNext=0 ||set pwNext=5
        if %pwNext%==0 set pX=0
        cls&Echo.
        Echo                           ╭────────────╮
        Echo           ╭───────┤    软 件 通 行 验 证   ├───────╮
        Echo           │              ╰────────────╯              │
        Echo           │                                                        │
        Echo           │    * 本软件已存在保护权限,请与管理员联系.              │
        Echo           │                                                        │
        Echo           │    * 口令安全验证有效次数:%pX%                            │
        Echo           │                                                        │
        Echo           ╰────────────────────────────╯
        if "%pX%"=="0" (
                <nul set/p=-1>"%myPath%%hide%.dte"
                Echo.&Echo             ≠软 件 自 我 保 护 中 , 请明 天 再 试 ≠
                Pause>nul&Exit
        )
        Echo.&set pInput=
        set /p pInput=             ≡Input≡
        if not defined pInput goto sub3
        for /f "skip=4 tokens=3" %%i in ('reg query %regRoot% /v %regAB%') do set rP=%%i
        if "%rp%"=="%pInput%" (
                set pX=5
                Echo.&Echo             口令正确.
                pause>nul&goto lpSelect
        )
        set /a pX-=1
        Echo.&Echo             口令错误.&Pause>nul
        goto sub3
:RegSub
        Echo Windows Registry Editor Version 5.00> "%myPath%clearTmp.reg"
        Echo [%1]>> "%myPath%clearTmp.reg"
        Echo "%2"="%3">> "%myPath%clearTmp.reg"
        Regedit /s "%myPath%clearTmp.reg"
        Del "%myPath%clearTmp.reg" 2>nul
        goto :eof