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: https://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. TL-WR703N进入OpenWrt的Failsafe安全模式
2. 在WSH中使用jQuery
3. µTorrent Server初体验
4. VBS转EXE工具：ExeScript
5. 价值50大洋的VBS脚本

这篇文章发布于 2012年06月22日，星期五，09:26，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。