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. VBS图片处理之用VBS缩放图片大小
  2. 批处理技术内幕:ECHO命令
  3. VBS过程和函数参数传递的方式默认是ByVal还是ByRef?
  4. 批处理技术内幕:IF命令
  5. Dr.Batcher 2.3.3 注册码

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

  1. mike说道:

    win有类似 /dev/random 就好了

  2. 小池说道:

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

  3. 开源混蛋说道:

    用VBS不如用Python

  4. cat说道:

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

留下回复