set /p pass=请输入密码:
if "%pass%"=="12345" echo 密码正确！&pause&goto :test
复制代码

@echo off
:start
set /p pass=请输入密码:
if "%pass%"=="12345" (
     goto test
) else (
     echo 密码错误
     pause>nul
     goto start
)
:test
echo 密码正确！
pause
复制代码

请输入密码:1"=="1" echo
"=="12345" (
密码正确！
请按任意键继续. . .
复制代码

if "%pass%"=="12345" (
     goto test
) else (
     echo 密码错误
     pause>nul
     goto start
)
复制代码

if \\"%pass%"\\==\\"12345"\\ (
     goto test
) else (
     echo 密码错误
     pause>nul
     goto start
)
复制代码

1"\\==\\"1"\\ echo 
echo后有一个空格
复制代码

@echo off & setlocal enableDelayedExpansion
set "#12345=pwd" & rem 密码原文为 12345
set /p pwdin=请输入密码: 
set "pwdin=!pwdin: =!"
set "pwdin=!pwdin:a=z!"
set "pwdin=!pwdin:e=x!"
set "pwdin=!pwdin:i=c!"
set "pwdin=!pwdin:o=v!"
set "pwdin=!pwdin:u=b!"
for %%p in (!pwdin!) do (
  if not defined #%%p exit
  if !#%%p!==pwd (echo 密码正确...)&pause  
)
exit /b
复制代码

@rem dmndso-cmw
@echo off
rem 原始密码为wdmmcn-dos
set /p pass=<%~nx0
set pass=%pass:~5%
call :Return %%pass%%
for /f "tokens=1" %%i in (%~nx0) do if "%%i"=="::" goto Judges
for /f "delims=" %%i in ('cd') do echo.:: %%i\%~nx0>>%~nx0
:Judges
for /f "tokens=1* delims= " %%i in (%~nx0) do set puth=%%j
for /f "delims=" %%i in ('cd') do if "%%i\%~nx0"=="%puth%" goto pass
echo 错误！不是原文件。&del /q 复件>nul 2>nul&ping /n 2 127.1>nul&goto :eof
:pass
set /a n+=1
set /a m=4-%n%
if %m% equ 0 cls&echo 对不起，因没正确输入密码，本程序将自动结束。&ping /n 3 127.1>nul&goto :eof
cls&set /p pwd=请正确输入密码，你还有%m%次机会：
if not "%pwd%"=="%password%" goto pass
set password=&set a=&set b=&set n=0&set new=1
cls&echo 密码正确，直接回车继续使用原密码，如要更改请输入新密码。
set /p new=输入新密码:
if "%new%"=="1" goto run
call :change %%new%%
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('type %~nx0') do (
    set /a n+=1
    if !n! equ 1 (
                 echo @rem %password%>%~nx0
                 ) else (
                        endlocal&echo %%i>>%~nx0
                        )
)
:run
cls&echo 程序开始运行...
pause>nul&goto :eof
:Return
set a=%pass:~-1,1%
if not "%pass:~1%"=="" (
                       set b=%pass:~,1%
                       ) else (
　　　　　　　　　　          set b=
　　　　　　　　　　          ) 
set password=%password%%a%%b%&set pass=%pass:~1,-1%
if defined pass goto Return
goto :eof
:change 
set a=%new:~,1%%a%&set b=%b%%new:~1,1%&set new=%new:~2%
if defined new goto change
set password=%b%%a%
复制代码

1"=="1" echo 
复制代码

密码正确，直接回车继续使用原密码，如要更改请输入新密码。
输入新密码:
复制代码

set/p =请输入密码:<nul&findstr /x /v "12345" >nul &&echo no ||echo pass
复制代码

请输入密码:set /p pass=请输入密码: " neq "bathome"  (call type "%~f0" & pause) e
lse call type "%~f0" & pause
@echo off&set acc123=0
:[kelly]
set /a acc123+=1
set pass=
if not "%acc123%"=="1" set b=密码错误，&set c=重新
set /p pass=%b%请%c%输入密码:
if "\\%pass%\\"=="\\12345\\" goto ilove~
cls&goto [kelly]
)
:ilove~
echo 密码正确！&ping 127.0.0.1>nul请按任意键继续. . .
复制代码

@echo off&set acc123=0
:[kelly]
set /a acc123+=1
set pass=
if not "%acc123%"=="1" set b=密码错误，&set c=重新
set /p pass=%b%请%c%输入密码:
set pass=%pass:~0,5%
if "\\%pass%\\"=="\\12345\\" goto ilove~
cls&goto [kelly]
)
:ilove~
echo 密码正确！&ping 127.0.0.1>nul
复制代码

等待输入密码 set/p passX=?

将passX字符串转换为特定的固定长度字符串 passY

将转换的passY 与 源代码里存储的密码串password 进行比较 ？ 相同则通过，不同则密码错误。
复制代码

@echo off
setlocal enabledelayedexpansion
set/p str=请输入密码:
set n=96
for %%b in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
    set /a n+=1
    call set str=%%str:%%b=!n!%%
)
if "!str!"=="9897116104111109101" (echo 恭喜) else (echo 没猜对)
pause
复制代码

@echo off
set "passwd=testpasswd123"
set "pwdlist=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
::这个pwdlist可以增加代码，每次运行都随机排列。
set /a n=-1
set ck=0
set /p=请输入密码:<nul
:loop
set /a n+=1
choice /C %pwdlist%  /N >nul
if %errorlevel% lss 1 goto :out
if %errorlevel% equ 255 goto :out
set /a df=%errorlevel%-1
set /p=*<nul
set ps=!pwdlist:~%df%,1!
if "!passwd:~%n%,1!"=="!ps!" ( set "ck=!ck!0" ) else ( set "ck=!ck!1")
set /a nn=n+1
if "!passwd:~%nn%,1!"==""   if !ck! equ 0 (goto :pass ) else (goto :out)
goto :loop

:out
echo;密码错误！
goto :eof

:pass
echo;密码正确！
goto :eof
复制代码