VBS生成随机密码

标签: , , ,

本来用VBS生成随机密码这么简单的脚本我是不想发上来的,但是Google关键词“VBS 随机密码”,前三分别是:

http://hi.baidu.com/loveee/blog/item/0ba042236f5d21519822edd6.html

http://hi.baidu.com/jiangbinliu/item/2e31772d5fbd5cd60e37f92c

http://jiangbinliu.blogbus.com/logs/78380315.html

这些代码能看的么?

随机密码.vbs

'Author: Demon
'Website: http://demon.tw
'Date: 2012/6/21
Function GeneratePassword(length)
    Dim p, s, i, l
    s = "abcdefghijklmnopqrstuvwxyz" &_
        "ABCDEFGHIJKLMNOPQRSTUVWXYZ" &_
        "0123456789" & "!@#$%^&*()"
    Randomize : l = Len(s)
    For i = 1 To length
        p = p & Mid(s, Int(Rnd * l + 1) ,1)
    Next
    GeneratePassword = p
End Function

WScript.Echo GeneratePassword(12)

随机文章:

  1. WMI工具:WMI Event Registration Tool
  2. VBS调用WMI遍历搜索硬盘文件并计数
  3. VBS监视网络连接与断开
  4. VbsEdit 3.4.1.32
  5. PathRemoveFileSpec函数

4 条评论 发表在“VBS生成随机密码”上

  1. mike说道:

    win有类似 /dev/random 就好了

  2. 小池说道:

    我是你提到的三个博客中后两个的博主。真是让我感慨,一晃5年过去了。谢谢你。
    我同意你的观点,那个代码确实不能看……

  3. 开源混蛋说道:

    用VBS不如用Python

  4. cat说道:

    你这个随机并没有保证生成的字符串 必须同时包含数字、大小写字母、特殊字符,如何确保必须同时包含?

留下回复