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

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

posted @ 2012-03-17 21:51  高级测试开发网  阅读(513)  评论(0编辑  收藏  举报
了解开发资源最新动态:https://seniortesting.club