Password Creator(HTA)

<!--

- 功能：生成随机密码

- 输入：用户的设置

- 输出：随机密码，同时拷贝到剪切板

- 作者： maskx

- 版本： v1.0

- 历史纪录： 2007-7-11新建

- 创建时间： 2007-7-11

- 最后修改时间：2007-7-11

-->

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

'生成随机密码

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 "请选择密码内容"

exit function

end if

if RDConst.checked then

pwdLen=cmbConstLen.selectedIndex+1

else

if cmbHeigh.selectedIndex < cmbLow.selectedIndex then

MsgBox "密码长度最大值应该大于最小值"

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)

RoundStr = s

End Function

</script>

<body>

<tr>

点击"生成密码"按钮 <br/> 在生成密码的同时也将密码拷贝进剪切板

</td>

</tr>

<tr>

<tr>

密码内容</td>

<input id="ckNum" checked="checked" type="checkbox" />数字

</td>

<input id="ckLower" checked="checked" type="checkbox" />小写字母

</td>

</tr>

<tr>

 </td>

</tr>

<tr>

密码长度</td>

<td>

<td>

</select>

</td>

</tr>

<tr>

</td>

<td>

<td>

</select>

</select>

</td>

</tr>

</table>

</td>

</tr>

<tr>

<table>

<tr>

<td>

<td>

<input id="btnCreatePWD" class="button" type="button" value="生成密码" name="btnCreatePWD"

onclick="UserGetPassword">

</td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

转载于:https://www.cnblogs.com/maskx/archive/2007/07/23/828717.html

Password Creator(HTA)相关推荐

在Filfter中使用注解了spring 的bean，报javax.naming.NamingException: Cannot create resource instance...
为什么80%的码农都做不了架构师?>>> 严重: Servlet /xcfhinvoices threw load() exception javax.naming.Namin ...
Laravel的created_at与deleted_at 类型
文章目录前言 model->created_at 为啥是 Carbon对象 model->toArray()['created_at'] 为啥是国际标准时间可以通过重写 seriali ...
spring boot 动态切换数据源（数据源信息从数据库中读取）
项目要求从多个源库(oracle,haha,pg)里面读取schema,table,字段等信息,spring提供了AbstractRoutingDataSource类实现动态数据源,下面就简单介绍一下 ...
spring boot 动态切换数据源实现多租户开发
之前的文章有介绍过spring boot 动态切换数据源spring boot 动态切换数据源(数据源信息从数据库中读取)_lgq2016的博客-CSDN博客,今天简单介绍一下动态数据源切换实战,主要 ...
node 链接MySql数据库并进行增删改查
在Navicat中创建数据库创建表那么就开始吧! 一.链接数据库 mysql - npmA node.js driver for mysql. It is written in JavaScript ...
Android开发之第三方框架使用汇总
1. image loading 框架: 1.1 Glide1.2 Picasso1.3 后续更新... 2.网络框架: 2.1 xUtil32.2 OkHttp32.3 Retrofit2.4 后续 ...
在cocos creator 中使用websocket
客户端参考:https://allknowboy.com/posts/e8f856f4/ NetConfig.js /*** 当前的网络配置*/ module.exports={host:" ...
【hta版】获取AppStore上架后的应用版本号
之前写过一篇文章:获取AppStore上架后的应用版本号,那一篇文章使用node.js实现,存在的问题就是如果在没有安装node.js运行环境下是无法运行的,而且该程序依赖request模块,为了方便 ...
cocos creator 学习随笔 day03 节点和组件属性
目录节点本身属性控件属性场景空节点 3D对象 2D对象 UI组件光线特效摄像机地形节点本身属性第一栏为节点名,可修改,前面得勾,是表示是否使用该节点,去掉代表隐藏该节点,但是该节点 ...

Password Creator(HTA)

Password Creator(HTA)相关推荐

最新文章

热门文章