以前写了一个各种长度，包括各种类型字符密码的在线工具，生成的密码随机性强，保密性高。今日在网上又发现一个生成长度达255位的在线密码生成工具，其中包含有密码强度的提示功能，自己开发的在线工具，没有这个功能，现在加入。
本站的这个在线工具，只支持64位及以下位数的密码，如果你需要生成更长位数的密码，可以在这里留言，修改相关程序，以满足你的要求。存在一个问题，就是密码强度的算法问题，这里采用一个简单的算法，如果使用者众，或时间允许的话，升级为仿Google密码算法。
Protected Function qiangDu(ByVal productpassdan As String) As String
Dim len As Int16
len = productpassdan.Length
Dim count As Int16
Dim inputChar() As Char
inputChar = productpassdan.ToCharArray()
Dim number_re As Regex
number_re = New Regex("[0-9]")
count = 0
If (len <= 5) Then
productpassdan += " 密码太短"
Else
For i As Integer = 0 To len - 1
count += findType(inputChar(i))
Next
If count <= 6 Then
productpassdan += " 密码强度弱"
End If
If (count > 6 And count <= 12) Then
productpassdan += " 密码强度中"
End If
If (count > 12 And count <= 16) Then
productpassdan += " 密码强度强"
End If
If (count > 16) Then
productpassdan += " 密码强度超强"
End If
End If
Return productpassdan
End Function
Protected Function findType(ByVal inputChar As Char) As Int16
If (Asc(inputChar) >= 48 And Asc(inputChar) <= 57) Then '是数字
Return 0.5
End If
If (Asc(inputChar) >= 65 And Asc(inputChar) <= 90) Then '是大写字母
Return 3
End If
If (Asc(inputChar) >= 97 And Asc(inputChar) <= 122) Then '是小写字母
Return 2
End If
Return 4 '其他特殊字符返回5
End Function
