主页 > 知识库 > 如何编制一个产生随机密码的函数?

如何编制一个产生随机密码的函数?

热门标签:服务器配置 美图手机 呼叫中心市场需求 网站文章发布 铁路电话系统 智能手机 检查注册表项 银行业务
%
response.write makePassword(16)

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
    whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
        upper = 90
        lower = 65
Else
        upper = 57
        lower = 48
End If
        strNewPass = strNewPass Chr(Int((upper - lower + 1) * Rnd + lower))
Next
        makePassword = strNewPass
      '
指定字符范围.

end function
%>

[1]

标签:红河 新疆 沈阳 长治 河南 沧州 上海 乐山

巨人网络通讯声明:本文标题《如何编制一个产生随机密码的函数?》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266