szl1123 发表于 2014-6-26 19:49
http://bathome.net/thread-30726-1-1.html
- @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 start
复制代码
|