@echo off
rem 本代码是@szl1123原创
rem 2014年6月26日@YuZhou
title 随机密码 by szl123
mode con: cols=55 lines=11
color 0A
if %~n0f==byszl1123f goto xsmm
:start
cls
set mim=
echo.
echo.
echo.
set /p mim=请输入密码：
if "/%mim%/"=="//" goto start
goto sjjs
:sjjs
cls
for /f "tokens=2,*" %%i in ('reg query "HKCU\Control Panel\International" /v "sShortDate"') do ( 
set ysdate=%%j
) 
reg add "HKCU\Control Panel\International" /v "sShortDate" /t reg_sz /d "yyyy-MM-dd-dddd" /f>nul
set nian=%date:~0,4%
set yue=%date:~5,2%
 
if %yue:~0,1%==0 set yue=%yue:~1,1%
set ri=%date:~8,2%
if %ri:~0,1%==0 set ri=%ri:~1,1%
reg add "HKCU\Control Panel\International" /v "sShortDate" /t reg_sz /d "%ysdate%" /f>nul
set sdtime=%time%
set shi=%sdtime:~0,2%
if %shi:~0,1%==0 set shi=%shi:~1,1%
set fen=%sdtime:~3,2%
if %fen:~0,1%==0 set fen=%fen:~1,1%
set miao=%sdtime:~6,2%
if %miao:~0,1%==0 set miao=%miao:~1,1%
if %miao% leq 29 set /a ddsj=29-%miao%+1
if %miao% geq 30 set /a ddsj=59-%miao%+1
set /a bmiao=%fen%*%shi%+%fen%*%yue%
if %miao% geq 30 set /a bmiao=(%nian%-%fen%*%ri%)*%fen%
set /a mima=%nian%*(%shi%+%bmiao%)*(%fen%+%bmiao%)*%ri%+(%bmiao%+%shi%+%yue%)*%fen%
if %mim%==%mima:~-8% goto ok
if not %mim%==%mima:~-8% goto error
 
:xsmm
cls
for /f "tokens=2,*" %%i in ('reg query "HKCU\Control Panel\International" /v "sShortDate"') do ( 
set ysdate=%%j
) 
reg add "HKCU\Control Panel\International" /v "sShortDate" /t reg_sz /d "yyyy-MM-dd-dddd" /f>nul
set nian=%date:~0,4%
set yue=%date:~5,2%
 
if %yue:~0,1%==0 set yue=%yue:~1,1%
set ri=%date:~8,2%
if %ri:~0,1%==0 set ri=%ri:~1,1%
reg add "HKCU\Control Panel\International" /v "sShortDate" /t reg_sz /d "%ysdate%" /f>nul
set sdtime=%time%
set shi=%sdtime:~0,2%
if %shi:~0,1%==0 set shi=%shi:~1,1%
set fen=%sdtime:~3,2%
if %fen:~0,1%==0 set fen=%fen:~1,1%
set miao=%sdtime:~6,2%
if %miao:~0,1%==0 set miao=%miao:~1,1%
if %miao% leq 29 set /a ddsj=29-%miao%+1
if %miao% geq 30 set /a ddsj=59-%miao%+1
set /a bmiao=%fen%*%shi%+%fen%*%yue%
if %miao% geq 30 set /a bmiao=(%nian%-%fen%*%ri%)*%fen%
set /a mima=%nian%*(%shi%+%bmiao%)*(%fen%+%bmiao%)*%ri%+(%bmiao%+%shi%+%yue%)*%fen%
echo.
echo.
echo. 密码%ddsj%秒后自动更新，
echo.
echo. 如果不使用请直接关闭程序
echo.
echo 密码是：%mima:~-8%
choice /t %ddsj% /d y /n>nul
goto xsmm
 
 
:ok
cls
echo.
echo.
echo. 恭喜您输入的密码：“%mim%”正确
echo.
echo.
msg * /time:4 /w "恭喜您输入的密码：“%mim%”正确"
pause
goto start
 
:error
 
echo.
echo.
echo. 不好意思您输入的密码：“%mim%”错误
echo.
echo.
msg * /time:4 /w "不好意思您输入的密码：“%mim%”错误"
goto startCOPY