win10下八位密码生成器

环境：windows10下测试通过
附件：添加链接描述
用途：可满足一般密码使用的强度和位数，比如可用于无线密码，邮箱密码，登录密码，数据库密码，其他账号密码等
使用方法：把8位密码生成器.bat和字典表.txt放到同一目录中，运行8位密码生成器.bat，生成的密码在当前目录的密码.txt中，最新的密码在最后一行
创建方法：
新建两个记事本文件，把8位密码生成器代码复制进去，点击菜单文件，另存为，文件名.txt改成.bat，文件类型改成所有类型，编码改成ansi，点击保存，再把字典表.txt代码
复制进去，点击菜单文件，另存为，编码改成ansi，点击保存
定制方法：
1.修改位数：
右键8位密码生成器.bat，选择编辑，把set len=8改成set len=位数数字，点击菜单文件，另存为，文件名.txt改成.bat，文件类型改成所有类型，编码改成ansi，点击保存
2.修改字典：
双击字典表.txt，修改大写字母，数字，小写字母和符号，并记录每种类型数目，点击菜单文件，另存为，编码改成ansi，点击保存
右键8位密码生成器.bat，选择编辑，修改以下内容为上述数目，点击菜单文件，另存为，文件名.txt改成.bat，文件类型改成所有类型，编码改成ansi，点击保存：
rem 大写字母数量
set caplen=25
rem 数字数量
set numlen=9
rem 小写字母数量
set noncaplen=24
rem 符号数量
set signlen=4

8位密码生成器.bat

@echo off
setlocal enabledelayedexpansion
rem 密钥长度
set len=8
rem 大写字母数量
set caplen=25
rem 数字数量
set numlen=9
rem 小写字母数量
set noncaplen=24
rem 符号数量
set signlen=4
set key=
for /L %%i in (1,1,!len!) do (
set /a dig=%%i%%4
if !dig! EQU 1 (
set /a n1=!random!%%!caplen!
set idx1=0
for /L %%a in (1,1,!caplen!) do (
if !n1! EQU !idx1! (
set /a num=%%a
)
set /a idx1+=1
)
)
if !dig! EQU 2 (
set /a n2=!random!%%!numlen!
set idx2=0
set /a minnum=!caplen!+1
set /a maxnum=!minnum!+!numlen!-1
for /L %%b in (!minnum!,1,!maxnum!) do (
if !n2! EQU !idx2! (
set /a num=%%b
)
set /a idx2+=1
)
)
if !dig! EQU 3 (
set /a n3=!random!%%!noncaplen!
set idx3=0
set /a minnoncap=!maxnum!+1
set /a maxnoncap=!minnoncap!+!noncaplen!-1
for /L %%c in (!minnoncap!,1,!maxnoncap!) do (
if !n3! EQU !idx3! (
set /a num=%%c
)
set /a idx3+=1
)
)
if !dig! EQU 0 (
set /a n4=!random!%%!signlen!
set idx4=0
set /a minsign=!maxnoncap!+1
set /a maxsign=!minsign!+!signlen!-1
for /L %%d in (!minsign!,1,!maxsign!) do (
if !n4! EQU !idx4! (
set /a num=%%d
)
set /a idx4+=1
)
)
set idx=1
for /F %%j in (字典表.txt) do (
if !num! EQU !idx! (
set key=!key!%%j
)
set /a idx+=1
)
)
set key1=
for /L %%z in (!len!,-1,1) do (
rem 取随机索引
set /a idx=%random%%%%%z
rem 下一个索引
set /a idx1=!idx!+1
call call set "o=%%%%key:~%%idx%%,1%%%%"
if !idx! equ 0 (
call call set "key=%%%%key:~%%idx1%%%%%%"
) else (
set /a maxidx=%%z-1
if !idx! geq !maxidx! (
set idx=!maxidx!
call call set "key=%%%%key:~0,%%idx%%%%%%"
) else (
call call set "key=%%%%key:~0,%%idx%%%%%%%%%%key:~%%idx1%%%%%%"
)
)
set key1=!key1!!o!
)
echo !key1!>>密码.txt
echo.
start 密码.txt
exit

字典表.txt

A
B
C
D
E
F
G
H
I
J
K
L
M
N
P
Q
R
S
T
U
V
W
X
Y
Z
1
2
3
4
5
6
7
8
9
a
b
c
d
e
f
g
h
i
j
k
m
n
p
q
r
s
t
u
v
w
x
y
z
@
#
$
&