让批处理随机修改自身的密码！！！ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 让批处理随机修改自身的密码！！！

上一主题 | 下一主题

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 让批处理随机修改自身的密码！！！

因回答一位兄弟的问题有感而做，注：原始密码为abcdefghijklmnop

@echo off 
set code=abcdefghijklmnopqrstuvwxyz0123456789-_
for /f "tokens=2" %%i in (%~nx0) do set passwords=%%i
:begin
cls&set /p password=  请输入密码：
if "%password%"=="%passwords%" goto set
cls&echo   密码错误&ping /n 2 127.1>nul&goto begin
:set
set select=2
cls&set /p select=  是否更改密码（默认回车为不更改）：(1. 更改 2.不更改)
if %select% equ 1 goto change
if %select% equ 2 goto ok
if %select% neq 1 if %select% neq 2 goto wrong
:change
set /a n=%random%%%38,m+=1
call,set pwd=%pwd%%%code:~%n%,1%%
if %m% lss 16 goto change
echo :: %pwd%>>%~nx0
cls&echo   请保管好你的新密码：%pwd%&pause&goto :eof
:ok
cls&echo   密码正确！&pause&goto :eof
:wrong
cls&echo   输入无效，请正确选择输入！&ping /n 2 127.1>nul&goto set
:: abcdefghijklmnop

[ Last edited by zw19750516 on 2008-4-18 at 01:58 PM ]