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. VBS监视网络连接与断开
2. VBS Scripting.Dictionary 排序
3. VBS创建正则表达式对象的两种方法
4. PathRemoveFileSpec函数
5. C#清除WebBrowser的Cookie缓存

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