Password Creator(HTA)

None.gif<!--
None.gif-?功能:????生成隨機密碼
None.gif-?輸入:????用戶的設置
None.gif-?輸出:????隨機密碼,同時拷貝到剪切板
None.gif-?作者:????maskx
None.gif-?版本:????v1.0
None.gif-?歷史紀錄:????2007-7-11新建????
None.gif-?創建時間:????2007-7-11
None.gif-?最后修改時間:2007-7-11??
None.gif
None.gif
-->
None.gif
None.gif
<html>
None.gif
<head>
None.gif????
<title>Password?Creator</title>
None.gif????
<hta:application?id="objHTAPasswordCreator"?applicationname="HTAPasswordCreator"?scroll="no"
None.gif????????singleinstance
="yes">
None.gif
</head>
ExpandedBlockStart.gifContractedBlock.gif
<style>dot.gif
InBlock.gifBODY
ExpandedSubBlockStart.gifContractedSubBlock.gif
{dot.gif}{
InBlock.gif???background-color
:?buttonface;
InBlock.gif???font-family
:?Helvetica;
InBlock.gif???font-size
:?10pt;
InBlock.gif???margin-top
:?10px;
InBlock.gif???margin-left
:?20px;
InBlock.gif???margin-right
:?20px;
InBlock.gif???margin-bottom
:?10px;
ExpandedBlockEnd.gif
}

None.gif
</style>
ExpandedBlockStart.gifContractedBlock.gif
<script?language="VBScript">dot.gif
InBlock.gif
'生成隨機密碼
InBlock.gif
??Function?UserGetPassword()
InBlock.gif????
Dim?strPassword
InBlock.gif????
Dim?strAll,pwdLen
InBlock.gif????
Randomize
InBlock.gif????strAll
=""
InBlock.gif????pwdLen
=0
InBlock.gif????
if?ckUpper.checked?then
InBlock.gif????????strAll
=?strAll?&?"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
InBlock.gif????
end?if
InBlock.gif????
if?ckLower.checked?then
InBlock.gif????????strAll
=?strAll?&?"abcdefghijklmnopqrstopwxyz"
InBlock.gif????
end?if
InBlock.gif????
if?ckNum.checked?then
InBlock.gif????????strAll
=?strAll?&?"0123456789"
InBlock.gif????
end?if
InBlock.gif????
if?ckSpecial.checked?then
InBlock.gif????????strAll
=?strAll?&?"~!@#$%^&*()_+[]\;',./{}|:<>?"
InBlock.gif????
end?if
InBlock.gif????
if?strAll=""?then
InBlock.gif????????
MsgBox?"請選擇密碼內容"
InBlock.gif????????
exit?function
InBlock.gif????
end?if
InBlock.gif????
if?RDConst.checked?then
InBlock.gif????????pwdLen
=cmbConstLen.selectedIndex+1
InBlock.gif????
else
InBlock.gif????????
if?cmbHeigh.selectedIndex?<?cmbLow.selectedIndex?then
InBlock.gif????????????
MsgBox?"密碼長度最大值應該大于最小值"
InBlock.gif????????????
exit?function
InBlock.gif????????
end?if
InBlock.gif????????pwdLen
=Int((cmbHeigh.selectedIndex?-?cmbLow.selectedIndex?+?1))?*?Rnd?+?cmbLow.selectedIndex?+1
InBlock.gif????
end?if
InBlock.gif
InBlock.gif????strPassword
=RoundStr(strAll,pwdLen)
InBlock.gif????TxtPWD.Value
=strPassword
InBlock.gif????document.parentwindow.clipboardData.SetData?
"text",?strPassword
InBlock.gif??
End?Function
InBlock.gif??
InBlock.gif??
Function?RoundStr(?str,Num)?
InBlock.gif????s?
=?""?
InBlock.gif????
for?i?=?1?to?Num?
InBlock.gif????????
Randomize?
InBlock.gif????????strLen?
=?Len(str)?
InBlock.gif????????t?
=?Round((RND?*?(strLen-1))+1)?????
InBlock.gif????????s?
=?s?&?Mid(str,t,1)?
InBlock.gif????
Next?
InBlock.gif????RoundStr?
=?s?
InBlock.gif
End?Function?
ExpandedBlockEnd.gif
None.gif
</script>
None.gif
None.gif
<body>
None.gif????
<table?cellpadding="0"?cellspacing="0"?width="100%">
None.gif????????
<tr>
None.gif????????????
<td?align="center">
None.gif????????????????點擊"生成密碼"按鈕?
<br/>?在生成密碼的同時也將密碼拷貝進剪切板
None.gif????????????????
<br/><br/>
None.gif????????????
</td>
None.gif????????
</tr>
None.gif????????
<tr>
None.gif????????????
<td?align="center">
None.gif????????????????
<table?cellpadding="0"?cellspacing="0">
None.gif????????????????????
<tr>
None.gif????????????????????????
<td?style="width:?114px;?height:?18px">
None.gif????????????????????????????密碼內容
</td>
None.gif????????????????????????
<td?style="height:?18px">
None.gif????????????????????????????
<input?id="ckNum"?checked="checked"?type="checkbox"?/>數字
None.gif????????????????????????
</td>
None.gif????????????????????????
<td?style="height:?18px">
None.gif????????????????????????????
<input?id="ckLower"?checked="checked"?type="checkbox"?/>小寫字母
None.gif????????????????????????
</td>
None.gif????????????????????
</tr>
None.gif????????????????????
<tr>
None.gif????????????????????????
<td?style="width:?114px;?height:?20px">
None.gif????????????????????????????
&nbsp;</td>
None.gif????????????????????????
<td?style="height:?20px">
None.gif????????????????????????????
<input?id="ckSpecial"?checked="checked"?type="checkbox"?/>特殊字符</td>
None.gif????????????????????????
<td?style="height:?20px">
None.gif????????????????????????????
<input?id="ckUpper"?checked="checked"?type="checkbox"?/>大寫字母</td>
None.gif????????????????????
</tr>
None.gif????????????????????
<tr>
None.gif????????????????????????
<td?style="width:?114px">
None.gif????????????????????????????密碼長度
</td>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<input?id="RDConst"?type="radio"?checked="CHECKED"?name="pwdLen"?/>固定長度</td>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<select?id="cmbConstLen">
None.gif????????????????????????????????
<option>1</option>
None.gif????????????????????????????????
<option>2</option>
None.gif????????????????????????????????
<option>3</option>
None.gif????????????????????????????????
<option>4</option>
None.gif????????????????????????????????
<option>5</option>
None.gif????????????????????????????????
<option>6</option>
None.gif????????????????????????????????
<option>7</option>
None.gif????????????????????????????????
<option?selected="selected">8</option>
None.gif????????????????????????????????
<option>9</option>
None.gif????????????????????????????????
<option>10</option>
None.gif????????????????????????????????
<option>11</option>
None.gif????????????????????????????????
<option>12</option>
None.gif????????????????????????????????
<option>13</option>
None.gif????????????????????????????????
<option>14</option>
None.gif????????????????????????????????
<option>15</option>
None.gif????????????????????????????????
<option>16</option>
None.gif????????????????????????????????
<option>17</option>
None.gif????????????????????????????????
<option>18</option>
None.gif????????????????????????????????
<option>19</option>
None.gif????????????????????????????????
<option>20</option>
None.gif????????????????????????????
</select>
None.gif????????????????????????
</td>
None.gif????????????????????
</tr>
None.gif????????????????????
<tr>
None.gif????????????????????????
<td?style="width:?114px">
None.gif????????????????????????
</td>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<input?id="RDRandm"?type="radio"?name="pwdLen"?/>變化長度</td>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<select?id="cmbLow">
None.gif????????????????????????????????
<option>1</option>
None.gif????????????????????????????????
<option?selected="selected">2</option>
None.gif????????????????????????????????
<option>3</option>
None.gif????????????????????????????????
<option>4</option>
None.gif????????????????????????????????
<option>5</option>
None.gif????????????????????????????????
<option>6</option>
None.gif????????????????????????????????
<option>7</option>
None.gif????????????????????????????????
<option>8</option>
None.gif????????????????????????????????
<option>9</option>
None.gif????????????????????????????????
<option>10</option>
None.gif????????????????????????????????
<option>11</option>
None.gif????????????????????????????????
<option>12</option>
None.gif????????????????????????????????
<option>13</option>
None.gif????????????????????????????????
<option>14</option>
None.gif????????????????????????????????
<option>15</option>
None.gif????????????????????????????????
<option>16</option>
None.gif????????????????????????????????
<option>17</option>
None.gif????????????????????????????????
<option>18</option>
None.gif????????????????????????????????
<option>19</option>
None.gif????????????????????????????????
<option>20</option>
None.gif????????????????????????????
</select>
None.gif????????????????????????????-
None.gif????????????????????????????
<select?id="cmbHeigh">
None.gif????????????????????????????????
<option>1</option>
None.gif????????????????????????????????
<option>2</option>
None.gif????????????????????????????????
<option>3</option>
None.gif????????????????????????????????
<option>4</option>
None.gif????????????????????????????????
<option>5</option>
None.gif????????????????????????????????
<option>6</option>
None.gif????????????????????????????????
<option>7</option>
None.gif????????????????????????????????
<option>8</option>
None.gif????????????????????????????????
<option>9</option>
None.gif????????????????????????????????
<option>10</option>
None.gif????????????????????????????????
<option?selected="selected">11</option>
None.gif????????????????????????????????
<option>12</option>
None.gif????????????????????????????????
<option>13</option>
None.gif????????????????????????????????
<option>14</option>
None.gif????????????????????????????????
<option>15</option>
None.gif????????????????????????????????
<option>16</option>
None.gif????????????????????????????????
<option>17</option>
None.gif????????????????????????????????
<option>18</option>
None.gif????????????????????????????????
<option>19</option>
None.gif????????????????????????????????
<option>20</option>
None.gif????????????????????????????
</select>
None.gif????????????????????????
</td>
None.gif????????????????????
</tr>
None.gif????????????????
</table>
None.gif????????????
</td>
None.gif????????
</tr>
None.gif????????
<tr>
None.gif????????
None.gif????????????
<td?align="center">
None.gif????????????
<br?/><br?/>
None.gif????????????????
<table>
None.gif????????????????????
<tr>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<input?type="text"?name="TxtPWD"?width="100%"?style="width:?209px"></td>
None.gif????????????????????????
<td>
None.gif????????????????????????????
<input?id="btnCreatePWD"?class="button"?type="button"?value="生成密碼"?name="btnCreatePWD"
None.gif????????????????????????????????onclick
="UserGetPassword">
None.gif????????????????????????
</td>
None.gif????????????????????
</tr>
None.gif????????????????
</table>
None.gif????????????
</td>
None.gif????????
</tr>
None.gif????
</table>
None.gif
</body>
None.gif
</html>
None.gif

轉載于:https://www.cnblogs.com/maskx/archive/2007/07/23/828717.html

本文來自互聯網用戶投稿,該文觀點僅代表作者本人,不代表本站立場。本站僅提供信息存儲空間服務,不擁有所有權,不承擔相關法律責任。
如若轉載,請注明出處:http://www.pswp.cn/news/277019.shtml
繁體地址,請注明出處:http://hk.pswp.cn/news/277019.shtml
英文地址,請注明出處:http://en.pswp.cn/news/277019.shtml

如若內容造成侵權/違法違規/事實不符,請聯系多彩編程網進行投訴反饋email:809451989@qq.com,一經查實,立即刪除!

相關文章

Julia 排坑指南

Julia 是一個高效的計算語言&#xff0c;據說性能和C有一拼。 Google也開始支持TPU的Julia&#xff0c; 個人覺得他的可視化比較厲害&#xff0c;下面是自己安裝過程的截圖&#xff0c;由于Julia的服務器在國外&#xff0c;所以下載的過程會出現一些不可描述的問題&#xff0c;…

Arts 第十九周(7/22 ~ 7/28)

ARTS是什么&#xff1f;Algorithm&#xff1a;每周至少做一個leetcode的算法題&#xff1b;Review&#xff1a;閱讀并點評至少一篇英文技術文章&#xff1b;Tip&#xff1a;學習至少一個技術技巧&#xff1b;Share&#xff1a;分享一篇有觀點和思考的技術文章。 Algorithm 深度…

難過的要命。。。。。。

請允許我這樣叫幾下&#xff0c;我知道自己是個老姑娘了&#xff0c;不能像小女孩那樣碰到點不開心的事就一哭二鬧三上吊。我不哭不鬧更不會傻得去上吊&#xff0c;我還有幾十年的大好日子要過呢&#xff0c;我兒子還沒生呢。現在我們還沒有正式的攤牌&#xff0c;應該說只差最…

基于.NET2.0的System.Net.Mail發送郵件Demo

第一種: //emailaddress郵件接收者地址 //mailcontent郵件主體內容 //mailtitle郵件標題 //mailsubject郵件主題 public bool SendMail(string emailaddress,string mailcontent,string mailtitle,string mailsubject) { …

美國美國,USA USA

外派美國微軟接的項目職位名稱&#xff1a;開發主管&#xff08;SDE LEADER&#xff09; 工作城市&#xff1a;Redmond 職位要求: Good English communicationGood SQL and C# .net framework experienceBackend developmentBI knowledge (he is expected to deal with millio…

Windows Server 2016之RDS配置證書

證書我們可以自己創建也可以到阿里云申請&#xff0c;一次申請可以用一年&#xff0c;&#xff08;自己創建的證書是不受信任的&#xff09;所以我們在阿里云上申請的&#xff0c;下面我們就把申請到的證書下載下來&#xff0c;放到一個文件夾里&#xff0c;并解壓接下來我們就…

升級tomcat7.0之后的問題

學習web也有幾天了&#xff0c;今天把tomcat改成7.0的之后老是出現嚴重警告&#xff1a; 嚴重: The web application [/struts2_0100] created a ThreadLocal with key of type [com.opensymphony.xwork2.inject.ContainerImpl$10](value[com.opensymphony.xwork2.inject.Conta…

慎重對待青霉素皮試

青霉素類藥不同品種間存在交叉過敏關系。 所以&#xff0c;中國藥典規定&#xff0c;青霉素類藥物在注射前必先使用青霉素鈉&#xff08;鉀&#xff09;及氯化鈉注射液配制的溶液做皮內敏感試驗。皮試液濃度為每毫升500單位&#xff0c; 皮內注射0.1毫升&#xff0c;陽性反應者…

2018阿里云雙11拼團大促主會場全攻略

為什么80%的碼農都做不了架構師&#xff1f;>>> 摘要&#xff1a; 在雙十一這個一年唯一一次的大幅度降價促銷日&#xff0c;怎樣才能花最少的錢配置最特惠的云服務&#xff1f;云棲社區特為各位開發者奉獻出省錢大法如下&#xff01; 2018阿里云雙十一拼團大促活動…

匿名用戶訪問用發布站點模板創建網站的列表項時要求登錄的問題解決

因為發布站點中的一個Feature被打開了&#xff0c;造成將列表FormPage的查看給Lock了&#xff0c;所以需要登錄&#xff0c;將其關閉就OK了。哈哈。英文KB&#xff1a;Users are unexpectedly prompted to enter their credentials when they access a list in a Windows Share…

知識點1: 進度條隨數據變化,并添加漸變樣式

效果圖&#xff1a; dom&#xff1a; //  進度條             <div class"progress" :style"styleObj1"><div class"point"></div></div>//  數據容器<div class"precent"><counte…

第三篇.python編輯器和集成環境01

修改python的鏡像源 使用pip可以提高網速\Lib\site-packages\pip\models\index.py文件&#xff0c;將PYPI的值改為你所需要的鏡像源即可&#xff0c;例如改為豆瓣鏡像源&#xff1a; #PyPI Index(https://pypi.python.org/) PyPI Index(https://pypi.douban.com/) 轉載于:h…

常用SQL語句技法

下列語句部分是Mssql語句&#xff0c;不可以在access中使用。 SQL分類&#xff1a; DDL—數據定義語言(CREATE&#xff0c;ALTER&#xff0c;DROP&#xff0c;DECLARE) DML—數據操縱語言(SELECT&#xff0c;DELETE&#xff0c;UPDATE&#xff0c;INSERT) DCL—數據控制語言(GR…

JSP2.0中Simple Tag介紹

JSP2.0中為了簡化標簽的復雜性&#xff0c;增加了制作Simple Tag的標簽類SimpleTagSupport類。 SimpleTagSupport類是實現SimpleTag接口的。它只需要實現一個doTag()方法即可&#xff0c;而不需要一堆回傳值。 舉例說明&#xff1a; 例1&#xff1a;HelloSimpleTag標簽 第一步&…

[置頂] 動軟軟代碼生成器使用(127.0.0.1)無法看到 SQLServer2008 新附加數據庫的 原因 以及 解決方案...

在項目中&#xff0c;使用代碼生成器給我們的開發工作帶來了相當大的方便&#xff0c;而有時候會出現這樣的問題&#xff0c;就是新附加的數據庫在動軟代碼生成器當中看不到&#xff0c;奇了怪了 一&#xff0c;首先看動軟代碼生成器的鏈接字符串&#xff0c;如圖 &#xff0c;…

對Hibernate使用之愚見

對Hibernate使用之愚見 國人跟風之潮&#xff0c;自古有之&#xff0c;至今亦然。確實&#xff0c;經過配置優化的Hibernate效率與無任何優化的Hibernate效率誠然不可同日而語。但由于項目開發的復雜性&#xff0c;開發周期中一些突發因素的制約&#xff0c;及項目構建者自身能…

設計模式學習總結1 - 創建型1 - Abstract Factory抽象工廠模式

AbstractFactory抽象工廠模式&#xff08;創建型&#xff09; 作用&#xff1a; 這種模式支持創建不同的對象&#xff0c;這些對象功能接近且一般都是在一起創建的。抽象工廠被具體化成不同的工廠來創建類似產品的不同產品。這種模式將類于使用的客戶端分離以便通過工廠來創建。…

QT練習9 Dialog學習

http://files.cnblogs.com/hnrainll/dialog.zip 源代碼下載轉載于:https://www.cnblogs.com/hnrainll/archive/2011/05/30/2063135.html

C#中NULL,,DBNULL,String.Empty,Convert.IsDBNull()的區別

C#中的空值的判斷較麻煩&#xff0c;不象在VB6中那么簡單&#xff0c;這些各種空值的判斷和理解對不熟悉的人來說&#xff0c;可能很麻煩&#xff0c;現就我在使用過程中的一點體會和大家共同分享。 (1)NULL null 關鍵字是表示不引用任何對象的空引用的文字值。null 是引用類型…

關于初始化C++類成員

轉自:http://www.vckbase.com/document/viewdoc/?id584 在使用C編程的過程當中&#xff0c;常常需要對類成員進行初始化&#xff0c;通常的方法有兩種&#xff1a; 第一種方法&#xff1a; CMYClass::CSomeClass() {x0;y1; } 第二種方法&#xff1a; CSomeClass::CSomeClass…