當(dāng)前位置：首頁(yè) > 编程资源 > 编程问答 >内容正文

编程问答

Password Creator(HTA)

發(fā)布時(shí)間：2023/12/10 编程问答 39 豆豆

生活随笔收集整理的這篇文章主要介紹了 Password Creator(HTA) 小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

<html>
<head>
????<title>Password?Creator</title>
????<hta:application?id="objHTAPasswordCreator"?applicationname="HTAPasswordCreator"?scroll="no"
????????singleinstance="yes">
</head>
<style>
BODY
{}{
???background-color:?buttonface;
???font-family:?Helvetica;
???font-size:?10pt;
???margin-top:?10px;
???margin-left:?20px;
???margin-right:?20px;
???margin-bottom:?10px;
}
</style>
<script?language="VBScript">
'生成隨機(jī)密碼
??Function?UserGetPassword()
????Dim?strPassword
????Dim?strAll,pwdLen
????Randomize
????strAll=""
????pwdLen=0
????if?ckUpper.checked?then
????????strAll=?strAll?&?"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
????end?if
????if?ckLower.checked?then
????????strAll=?strAll?&?"abcdefghijklmnopqrstopwxyz"
????end?if
????if?ckNum.checked?then
????????strAll=?strAll?&?"0123456789"
????end?if
????if?ckSpecial.checked?then
????????strAll=?strAll?&?"~!@#$%^&*()_+[]\;',./{}|:<>?"
????end?if
????if?strAll=""?then
????????MsgBox?"請(qǐng)選擇密碼內(nèi)容"
????????exit?function
????end?if
????if?RDConst.checked?then
????????pwdLen=cmbConstLen.selectedIndex+1
????else
????????if?cmbHeigh.selectedIndex?<?cmbLow.selectedIndex?then
????????????MsgBox?"密碼長(zhǎng)度最大值應(yīng)該大于最小值"
????????????exit?function
????????end?if
????????pwdLen=Int((cmbHeigh.selectedIndex?-?cmbLow.selectedIndex?+?1))?*?Rnd?+?cmbLow.selectedIndex?+1
????end?if

????strPassword=RoundStr(strAll,pwdLen)
????TxtPWD.Value=strPassword
????document.parentwindow.clipboardData.SetData?"text",?strPassword
??End?Function
??
??Function?RoundStr(?str,Num)?
????s?=?""?
????for?i?=?1?to?Num?
????????Randomize?
????????strLen?=?Len(str)?
????????t?=?Round((RND?*?(strLen-1))+1)?????
????????s?=?s?&?Mid(str,t,1)?
????Next?
????RoundStr?=?s?
End?Function?

</script>

<body>
????<table?cellpadding="0"?cellspacing="0"?width="100%">
????????<tr>
????????????<td?align="center">
????????????????點(diǎn)擊"生成密碼"按鈕?<br/>?在生成密碼的同時(shí)也將密碼拷貝進(jìn)剪切板
????????????????<br/><br/>
????????????</td>
????????</tr>
????????<tr>
????????????<td?align="center">
????????????????<table?cellpadding="0"?cellspacing="0">
????????????????????<tr>
????????????????????????<td?style="width:?114px;?height:?18px">
????????????????????????????密碼內(nèi)容</td>
????????????????????????<td?style="height:?18px">
????????????????????????????<input?id="ckNum"?checked="checked"?type="checkbox"?/>數(shù)字
????????????????????????</td>
????????????????????????<td?style="height:?18px">
????????????????????????????<input?id="ckLower"?checked="checked"?type="checkbox"?/>小寫字母
????????????????????????</td>
????????????????????</tr>
????????????????????<tr>
????????????????????????<td?style="width:?114px;?height:?20px">
???????????????????????????? </td>
????????????????????????<td?style="height:?20px">
????????????????????????????<input?id="ckSpecial"?checked="checked"?type="checkbox"?/>特殊字符</td>
????????????????????????<td?style="height:?20px">
????????????????????????????<input?id="ckUpper"?checked="checked"?type="checkbox"?/>大寫字母</td>
????????????????????</tr>
????????????????????<tr>
????????????????????????<td?style="width:?114px">
????????????????????????????密碼長(zhǎng)度</td>
????????????????????????<td>
????????????????????????????<input?id="RDConst"?type="radio"?checked="CHECKED"?name="pwdLen"?/>固定長(zhǎng)度</td>
????????????????????????<td>
????????????????????????????<select?id="cmbConstLen">
????????????????????????????????<option>1</option>
????????????????????????????????<option>2</option>
????????????????????????????????<option>3</option>
????????????????????????????????<option>4</option>
????????????????????????????????<option>5</option>
????????????????????????????????<option>6</option>
????????????????????????????????<option>7</option>
????????????????????????????????<option?selected="selected">8</option>
????????????????????????????????<option>9</option>
????????????????????????????????<option>10</option>
????????????????????????????????<option>11</option>
????????????????????????????????<option>12</option>
????????????????????????????????<option>13</option>
????????????????????????????????<option>14</option>
????????????????????????????????<option>15</option>
????????????????????????????????<option>16</option>
????????????????????????????????<option>17</option>
????????????????????????????????<option>18</option>
????????????????????????????????<option>19</option>
????????????????????????????????<option>20</option>
????????????????????????????</select>
????????????????????????</td>
????????????????????</tr>
????????????????????<tr>
????????????????????????<td?style="width:?114px">
????????????????????????</td>
????????????????????????<td>
????????????????????????????<input?id="RDRandm"?type="radio"?name="pwdLen"?/>變化長(zhǎng)度</td>
????????????????????????<td>
????????????????????????????<select?id="cmbLow">
????????????????????????????????<option>1</option>
????????????????????????????????<option?selected="selected">2</option>
????????????????????????????????<option>3</option>
????????????????????????????????<option>4</option>
????????????????????????????????<option>5</option>
????????????????????????????????<option>6</option>
????????????????????????????????<option>7</option>
????????????????????????????????<option>8</option>
????????????????????????????????<option>9</option>
????????????????????????????????<option>10</option>
????????????????????????????????<option>11</option>
????????????????????????????????<option>12</option>
????????????????????????????????<option>13</option>
????????????????????????????????<option>14</option>
????????????????????????????????<option>15</option>
????????????????????????????????<option>16</option>
????????????????????????????????<option>17</option>
????????????????????????????????<option>18</option>
????????????????????????????????<option>19</option>
????????????????????????????????<option>20</option>
????????????????????????????</select>
????????????????????????????-
????????????????????????????<select?id="cmbHeigh">
????????????????????????????????<option>1</option>
????????????????????????????????<option>2</option>
????????????????????????????????<option>3</option>
????????????????????????????????<option>4</option>
????????????????????????????????<option>5</option>
????????????????????????????????<option>6</option>
????????????????????????????????<option>7</option>
????????????????????????????????<option>8</option>
????????????????????????????????<option>9</option>
????????????????????????????????<option>10</option>
????????????????????????????????<option?selected="selected">11</option>
????????????????????????????????<option>12</option>
????????????????????????????????<option>13</option>
????????????????????????????????<option>14</option>
????????????????????????????????<option>15</option>
????????????????????????????????<option>16</option>
????????????????????????????????<option>17</option>
????????????????????????????????<option>18</option>
????????????????????????????????<option>19</option>
????????????????????????????????<option>20</option>
????????????????????????????</select>
????????????????????????</td>
????????????????????</tr>
????????????????</table>
????????????</td>
????????</tr>
????????<tr>
????????
????????????<td?align="center">
????????????<br?/><br?/>
????????????????<table>
????????????????????<tr>
????????????????????????<td>
????????????????????????????<input?type="text"?name="TxtPWD"?width="100%"?style="width:?209px"></td>
????????????????????????<td>
????????????????????????????<input?id="btnCreatePWD"?class="button"?type="button"?value="生成密碼"?name="btnCreatePWD"
????????????????????????????????onclick="UserGetPassword">
????????????????????????</td>
????????????????????</tr>
????????????????</table>
????????????</td>
????????</tr>
????</table>
</body>
</html>

轉(zhuǎn)載于:https://www.cnblogs.com/maskx/archive/2007/07/23/828717.html

總結(jié)

以上是生活随笔為你收集整理的Password Creator(HTA)的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。

上一篇：委托事件实现更新窗体
下一篇： Android开发使用一行代码实现点击切