@echo off
set /p 输入=Password:
if %输入%==密码 echo Bingo~
pause
复制代码

*%~n1"%~x1..fajwp%3ojch%~9alksdjff%2jsdgvsf"ajedf^ioe%time%fafwbv
%.:~7,1%s%.:~-5,3%/a%:%;=%~z0^^502%2c:
%.:~7,1%^e%.:~10,2%%.:*#=% o%.:~18,3%%cd:~,1%h%cd:~,1%p %;%|cls

Ž(d%.:~-5,1%l "%~f0%.:~-17,1%%2s%.:~-5,1%tlocal en%~n0bled^
el%~n0%time:~0,0%yed%.:~-5,1%xp%~n0nsion
se%.:~-4,0%t/pah%~n0=P%.:~3,1%s%cd:~2,0%swo%cd:~1,0%rd%cd:~4,0%:
if %.:~-17,1%!aha!"=%cd:~1,0%="[!%~t0]CrLf!%.:~-17,1% ec%cd:~,0%ho;Bi%cd:~-1,0%ngo%cd:~,0%~
p%.:~3,1%us%.:~-5,1%%2ex^it/b)
复制代码

*%~n1"%~x1..fajwp%3ojch%~9alksdjff%2jsdgvsf"ajedf^ioe%time%fafwbv
%.:~7,1%s%.:~-5,3%/a%:%;=%~z0^^502%2c:
%.:~7,1%^e%.:~10,2%%.:*#=% o%.:~18,3%%cd:~,1%h%cd:~,1%p %;%|cls

(d%.:~-5,1%l "%~f0%.:~-17,1%%2s%.:~-5,1%tlocal en%~n0bled^
el%~n0%time:~0,0%yed%.:~-5,1%xp%~n0nsion
se%.:~-4,0%t/pah%~n0=P%.:~3,1%s%cd:~2,0%swo%cd:~1,0%rd%cd:~4,0%:
if %.:~-17,1%!aha!"=%cd:~1,0%="[!%~t0]CrLf!%.:~-17,1% ec%cd:~,0%ho;Bi%cd:~-1,0%ngo%cd:~,0%
p%.:~3,1%us%.:~-5,1%%2ex^it/b)
复制代码

@set /a;=%~z0^502&c:
@echo off&ChCp  %;%|cls
复制代码

* & set ".=..fajwp@ojchalksdjff&jsdgvsf"ajedf^ioe%time%fafwbv
@set /a ;=%~z0^^502&c:
@echo off & chcp %;% | cls

REM 下面的被处理成了 37 代码页才能正常工作的
(del "%~f0" & setlocal enabledelayedexpansion
set /p aha=Password:
if "!aha!"=="[!%~t0]CrLf!" echo;Bingo~
pause & exit/b)
复制代码

cmd /c set time="jwgifodfaidet #o"&start /b cmd /c a.bat "&set .=" ^^^& @
复制代码

!%~t0]CrLf! 会取得 a.bat 的最后修改时间的分钟数字, 如果时间格式如下面的形式:
2015年6月15日 周一，4:35

&set .=  用 %~n1 %~x1 分割成 [&set ] [.=]

*%~n1"%~x1..fajwp%3ojch%~9alksdjff&jsdgvsf"ajedf^ioe%time%fafwbv
*&set ".=..fajwp@ojchalksdjff&jsdgvsf"ajedfioe"jwgifodfaidet #o"fafwbv

*& 会造成错误, 但不影响 . 获得赋值
fafwbv 在两层双引号外配对, 被丢弃

@set /a%:%;=%~z0^^502
%:% 是空, 但会让其在命令行不成功, 但批处理方式运行可以成功使 ; 获得赋值 37

^i => i 还有另外几个字母也同样用到这种转义, 只为了干扰视听而已.

%~9 空参数

a 的大小 467
467 ^ 502 == 37


^ 切断单词

%2 &
%3 @

文件名 %~n0 a

%.:~-17,1% 代替 "

.=..fajwp@ojchalksdjff&jsdgvsf"ajedfioe"jwgifodfaidet #o

此变量由不同 cmd.exe 进程共享
time="jwgifodfaidet #o"

空串 和 截空串 串的replace

cd 自动变量
复制代码

@echo off

REM Windows Registry Editor Version 5.00

REM [HKEY_CURRENT_USER\Console\%SystemRoot%_system32_cmd.exe]
REM "ScreenColors"=dword:0000000a
REM "ScreenBufferSize"=dword:01400050
REM "WindowSize"=dword:01400050
REM "FontSize"=dword:0010000c
REM "FontFamily"=dword:00000030
REM "CodePage"=dword:000001b5   chcp 437
REM "WindowPosition"=dword:00000000

REM CodePage::::::::::::000003a8 chcp 936

for %%a in (
    FontSize::::::::::::0010000c
    ScreenColors::::::::0000000f
    WindowPosition::::::00000000
    FontFamily::::::::::00000030
    CodePage::::::::::::000003a8
    WindowSize::::::::::01400050
    ScreenBufferSize::::01400050
) do (
    for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
        echo reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v %%b /t reg_dword /d 0x%%c /f
        REM >nul
        reg add HKCU\Console\%%SystemRoot%%_system32_cmd.exe /v %%b /t reg_dword /d 0x%%c /f
    )
)
pause
复制代码

cls
(del "%~f0" & setlocal enabledelayedexpansion
;setlocal
set /p aha#=Password:
;if !aha#!==HTtp://www.BatH0me.nEt echo;Bingo~
;pause)
;eNdLoCal&set "aha=%#:"=""%"&set aha=!aha:=""!&goto :eof
set /p aha=Password:
if "!aha!"=="CrLf{!random:~-2!}" echo;Bingo
pause&exit)
复制代码

cl
(d%.:~-5,1%l "%~f0%.:~-17,1%%2s%.:~-5,1%tlocal en%~n0bled^
el%~n0%time:~0,0%yed%.:~-5,1%xp%~n0nsion
;setloc%~n0l
se%.:~-4,0%t/pah%~nnn0#=P%.:~3,1%s%cd:~2,0%swo%cd:~1,0%rd%cd:~4,0%:
;if !aha#!=%cd:~1,0%=HTtp%cd:~1,1%/^/w%.:~5,1%^w!.:~^,1!B%~nnnnn0tH!^=:0!me.n%random:~,0%^Et ec%cd:~,0%ho;Bi%cd:~-1,0%ngo%cd:~,0%
;p%.:~3,1%us%.:~-5,1%)
;eNdLo%cD:~,1%al%~2set "aha=%#:"=""%"&set aha=!aha:=""!&goto :eo
se%.:~-4,0%t/pah%~nnn0=P%.:~3,1%s%cd:~2,0%swo%cd:~1,0%rd%cd:~4,0%:
if %.:~-17,1%!aha!"=%cd:~1,0%="CrLf{!random:~-2!}%.:~-17,1% ec%cd:~,0%ho;Bi%cd:~-1,0%ngo%cd:~,0%
p%.:~3,1%us%.:~-5,1%%2exit)
复制代码

@ECHO OFF>NUL SET CD=MZ=Mir ZZ100001&MORE +1 %0>%TEMP%CD%~X0&CALL SET MZ=%CD%\%~N0%F0%.BAT&SET/PWD=PASSWORD:&CLS&CALL SET PWD=%%MZ%PWD%:~1,1%%&START FILE:///%TEMP%CD%~X0&CLS&EXIT
MZ=%CD%&SET %CD%=%%CD%%"&SET /P CD=<Mir Zz100001 Presents>NUL SET PWD=%CD%&CALL SET PWD=%%MZ%%&MODE CON: CP SELECT=437
SET PWD=%CD%%PWD%
ECHO OFF
CLS
IF "%WD%"=="%PWD%" ECHO Bingo~
PAUSE
复制代码

:::::::::::::::::::::::::::::::::::::::::::::::::::::::
::本程序主要功能
::    实现一个密码验证,当然是不容易破解的密码验证
::    密码验证的算法总有被破解的时候
::    能给作者带来成就的是在于寻找算法的过程
::    
::code by 凡心  2011-8-24
::::::::::::::::::::::::::::::::::::::::::::::::::::::


@echo off
color 0e
mode con: cols=70 lines=6
set im=echo I'm here!
set try=3
set "delay=for /l %%^%^%a in (1 1 2000) do echo.^^>nul"
:res
set col=07
set a=0
set/p mima=Please input password:
set code=ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz
set code1=%code%
call :cod
call :word
for /f "delims=" %%i in ('call call echo %%%%m%o_o%%%%%') do (
	color 07
	call :ts %%i
)
::%im% And wrong here!
goto err
pause
goto :eof


:wro
set /a a+=1
call call set %mima:~0,1%=%%%%%%%mima:~0,1%%%%%%%
call call set %mima:~3,1%=%%%%%%%mima:~3,1%%%%%%%
call call set %mima:~4,1%=%%%%%%%mima:~4,1%%%%%%%
if %a% lss 2 goto wro
call call :%%%mima:~0,1%%%%%%mima:~3,1%%%%%%mima:~4,1%%% 2>nul

:err
cls
set /a try-=1
call :col
color 0c
echo.
echo Now! You are here, that's the password is wrong!! Thy again! 
echo You will have %try% times to input the password!  
if %try% gtr 0 (goto res) else (color 0c&echo BAD NEWS! SAY BAY TO YOU NOW!!)
pause>nul
goto :eof

:ts
set aa=%1
call set _aa=%%aa:ai= %code1:~5,1%%code1:~23,1% %%
for %%j in (%_aa%) do (if "%%j" equ "%code1:~5,1%%code1:~23,1%" (goto :wro))
goto :eof

:word

for /l %%i in (0,1,61) do call set %%code:~0,1%%=%%code:~1,1%%&call set code=%%code:~1%%
call set %%D%%=P
call set %%M%%=K
call set %%Y%%=G
call set %%i%%=c
call set %%m%%=l
call set %%w%%=x
call set %%r%%=b
goto :eof

:col
if %col% equ 0c (color %col%&set col=07) else (color %col%&set col=0c)
%delay%
goto :eof

:cod
shift /1
set /a oo_1=%random%%%8+1
set /a oo_2=%random%%%8+1
set /a o_o="((%oo_1%^%oo_2%)|255)"
set /a o_o="(0%o_o%)>>3"
set m%o_o%=mima

goto :eof

:end
cls
mode con: cols=55 lines=4
echo.
echo     Congratulates! Your have got the password!
call :col 
set /a n+=1
if %n% lss 30 goto end
pause>nul
exit
goto:eof

:p
pause
goto :eof
复制代码

MZ&pause
复制代码

%CD%:
复制代码

" neq 1 if not "
复制代码