中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国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