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. CRC批量校验工具——RapidCRC
3. 用VBS实现Bencode算法
4. 文件夹拒绝访问且文件夹显示为空的解决方法
5. VBScript获取硬盘与分区个数

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