VBScript实现密码生成器

发布时间：2020-12-17 08:00:46 所属栏目：百科来源：网络整理

导读：今天PHP站长网 52php.cn把收集自互联网的代码分享给大家，仅供参考。 !--filename : password generator -2.2.hta--!--Date : 2012/6/20--!--author : moose--htmlheadtitlePassword Generator/titleHTA:APPLICATION APPL

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

<!--filename : password generator -2.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>

<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 
	
	aa=0
	bb=0
	cc=0
	dd=0

	If number.Checked Then aa=1
	If lletter.Checked Then bb = 1
	If uletter.Checked Then cc = 1
	If specials.Checked Then dd = 1
	'alert aa&bb&cc&dd

	'长度和个数必须是数字
	If Err.Number <> 0 Then 
		errorinfo.innerHTML = "Must be numeric !"
	Else
		For t=1 To pwNumber.value	
			pwText.innerHTML=generate_password(pwLength.value,aa,bb,cc,dd)
		Next	
	End If	
End Sub


'@param Int length:           密码长度
'@param Boolen number_chars:  是否包含数字
'@param Boolen lower_chars:   是否包含小写字母
'@param Boolen upper_chars:   是否包含大写字母
'@param Boolen special_chars: 是否包含特殊符号
'@return String: 生成的密码
Function generate_password(length,number_chars,lower_chars,upper_chars,special_chars)
    Dim password,chars,i,l
    If number_chars  Then chars = chars & "0123456789"
    If lower_chars   Then chars = chars & "abcdefghijklmnopqrstuvwxyz"
    If upper_chars   Then chars = chars & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If special_chars Then chars = chars & "[email?protected]#$%^&*()"
    If chars = "" Then errorinfo.innerHTML = "No Input !"
    Randomize : l = Len(chars)
    For i = 1 To length
        password = password & Mid(chars,Int(Rnd * l + 1),1)
    Next
    generate_password = password
End Function



</script>

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

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!