@echo off&setlocal enabledelayedexpansion&title CrackMe
::code by Novaa @bbs.bathome.cn
set "Table=echo\&echo\"
:Menu
cls&%Table%
echo 此批处理以加密.
%Table%
set /p sPwd= 请输入密码:
set /a sPwd=!sPwd!+1111111
set sPwd_1=!sPwd:~0,1!
set sPwd_2=!sPwd:~1!
for /f "tokens=2 delims=-" %%i in ("%date%") do (set str=%%i&set "sAdd=!str:~0,1!")
set /a sPwd_1=!sPwd_1!+!sAdd!
set /a sPwd_2=!sPwd_2!*2
set /a sPwd=!sPwd_2!*10+!sPwd_1!
call :Change
call :Set 
set /a sPwd=!sPwd!-1
for /l %%i in (1;1;7) do (set /a sPwd=!sPwd!+!sPwd_%%i!)
call :Next
call :Change_3 sPwd_1 sPwd_2
call :Again !sPwd!
if "!sPwd!"=="4025" (goto :Pass) else (goto :Menu)



:Change
set sPwd_1=!sPwd:~0,1!
set sPwd_2=!sPwd:~1,1!
set sPwd_3=!sPwd:~2,1!
set sPwd_4=!sPwd:~3,1!
set sPwd_5=!sPwd:~4,1!
set sPwd_6=!sPwd:~5,1!
set sPwd_7=!sPwd:~6,1!
for,/l,%%i,in (1=1=7) do (
call :Change_1 !sPwd_%%i!
)
goto :eof

:Change_1
for /l %%i in (7;-1;1) do (
set /a sPwd=%1+%%i
)
goto :eof

:Set 
for,/l,%%i,in,(1,1,7) do (
for,/l,%%j in (1,1,%%i) do (
set /a sPwd_%%i=!sPwd_%%i!*10
)
)
goto :eof

:Next
set sPwd_1=!sPwd:~0,4!
set sPwd_2=!sPwd:~4,4!
call :Change_2 !sPwd_1! sPwd_1
call :Change_2 !sPwd_2! sPwd_2
goto :eof





:Change_2
for,/f,"tokens=1 delims=-: ",%%i,in ("%date%") do (
set /a %2=%1+%%i
)

goto :eof

:Change_3
set /a sPwd=%1-%2
for /l %%i in (1,1,7) do (
call :NOK
)
goto :eof


:NOK
for /f "delims=- tokens=1,2" %%i in ("%date%") do (
set sPwd_1=432+%%i
set sPwd_2=453+%%j
)
goto :eof



:Again
call :NOK
call :Another %1
goto :eof



:Another 
set /a sPwd=%1+1234
goto :eof

:Pass
endlocal&title Pass
cls&%Table%
echo you are the winner
pause>nul

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课