VBS生成随机的16进制的密码

最新推荐文章于 2024-06-20 09:03:44 发布

weixin_33905756

最新推荐文章于 2024-06-20 09:03:44 发布

阅读量2.4k

点赞数

原文链接：http://www.cnblogs.com/alterhu/archive/2012/03/17/2404057.html

版权

Dim jnkcD,jnkcNum,aKey
Set JnkcD = CreateObject("Scripting.Dictionary")
Randomize
Do Until JnkcD.Count = 10
jnkcNum = UCase(Hex(Int(60000*Rnd+5000)) & Hex(Int(60000*Rnd+5000)))
If Not JnkcD.Exists(jnkcNum) Then JnkcD.Add jnkcNum,Null
Loop
For Each aKey In JnkcD.Keys()
WScript.echo akey & "<br>"
Next
Set jnkcD = Nothing

转载于:https://www.cnblogs.com/alterhu/archive/2012/03/17/2404057.html