VBScript实现密码生成器代码,VBS代码库,德仔网

代码语言
代码分类
【VBS】 VBScript实现密码生成器
作者:欧阳隐风 / 发布于2012/6/25/ 1584
<div><!--filename : password generator -2.hta-->
<!--Date : 2012/6/20-->
<!--author : moose-->
<html>
<head>
<title>Password Generator</title>
<HTA:APPLICATION
APPLICATIONNAME="Password Generator"
ID="PasswordGenerator"
VERSION="1.0"/>
</head></div>
<div><script language="VBScript">
'检查用户输入信息是否合法
Sub checkInfo
On Error Resume Next 
'判断长度和个数是否为空
If pwNumber.value = "" Or pwLength.value="" Then
errorinfo.innerHTML = "Number and Length must be typed !"
Else
'判断是否为数字，如果不是，则会出错
pn = CInt(pwNumber.value)
pw = CInt(pwLength.value)
End If</div>
<div>
sum = ""
'数字
If number.Checked Then 
sum = sum & "1"
Else
sum = sum & "0" 
End If
'小写字母
If lletter.Checked Then 
sum = sum & "1"
Else
sum = sum & "0" 
End If
'大写字母
If uletter.Checked Then 
sum = sum & "1"
Else
sum = sum & "0" 
End If 
'特殊字符
If specials.Checked Then 
sum = sum & "1"
Else
sum = sum & "0" 
End If</div>
<div>'如果没有选择，则提示没有输入
If sum = "0000" Then 
errorinfo.innerHTML = "No Input !"
End If</div>
<div>'长度和个数必须是数字
If Err.Number <> 0 Then 
errorinfo.innerHTML = "Must be numeric !"
Else 
generatorPW sum,pwNumber.value,pwLength.value 
End If 
End Sub</div>
<div>
Sub generatorPW(plusNum,totalNum,plength)
On Error Resume Next</div>
<div>tempArray= Array("0","1","2","3","4","5","6","7","8","9","0","1","2","3","4","5","6","7","8","9","1","3","5","7","8","9",_
"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z",_
"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z",_
"~","!","@","#","$","%","^","&","*","(",")","_","+","-","=","<",">",".","/","?","'",":","[","]","{","}")</div>
<div>Dim codeArray(25,3) 
For i=0 To 3
For j=0 To 25
codeArray(j,i) = tempArray(i*26+j)
Next
Next</div>
<div>pwstr = ""
For i=1 To totalNum
Randomize()
For j=1 To plength
row = CInt((Rnd*4)+1)
If Mid(plusNum,row,1) = "1" Then
col = CInt((Rnd*26)+1)
Else
row = InStr(plusNum,"1")
col = CInt((Rnd*26)+1)
End If 
pwstr = pwstr & codeArray(col-1,row-1)
Next
pwstr = pwstr & ""
Next 
pwText.innerHTML = pwstr 
End Sub</div>
<div></script></div>
<div><body bgcolor="white">
<fieldset>
<legend>Password Generator</legend><br/>
&nbsp;&nbsp;Number: <input type="text" name="pwNumber" value="1" /><br/>
&nbsp;&nbsp;Length: <input type="text" name="pwLength" value="8" /><br/>
<br/>
&nbsp;&nbsp;<input type="checkbox" name="number" value="1" />Number
&nbsp;&nbsp;<input type="checkbox" name="lletter" value="2" />Lower Letter
&nbsp;&nbsp;<input type="checkbox" name="uletter" value="4" />Upper Letter
&nbsp;&nbsp;<input type="checkbox" name="specials" value="8" />Specials<br/>
&nbsp;&nbsp;<input type="button" name="ok_btn" value="Generator" onclick="checkInfo" />
<br/><br/>
</fieldset>
<br/>
<span id="pwText" style="font-size:2em"></span>
<span id="errorinfo" style="color:red"></span>
</body>
</html></div>
试试其它关键字
　密码生成器　
同语言下
可能有用的
欧阳隐风贡献的其它代码(1)
.VBScript实现密码生成器