' 分享1个判断密码等级函数
' 判断密码等级(定义自等义函数:PassWord_Tier)
' 传入参数:密码
' 密码:Pass_Str
' 返回:等级级别(1至6)
' 示例: 在命令窗口中取消注释执行
' DIM Pass_Tier AS Integer = Functions.Execute("PassWord_Tier","Aa8*>?~")
' Output.Show(Pass_Tier)
Dim InPass_Str As String = "" ' 传入值
Dim Pass_Tier As Integer = 0
Dim Counts As Decimal = Args.Count() '传入参数的个数
If Counts >= 1 Then '根据传入的参数赋值
InPass_Str = Args(0)
Else
Return Nothing
End If
If InPass_Str = "" Then
Return 0
End If
Dim 数字 As Boolean = False ' IsDigit
Dim 小写 As Boolean = False ' IsLower
Dim 大写 As Boolean = False ' IsUpper
Dim 标点 As Boolean = False ' IsPunctuation
Dim 字母 As Boolean = False ' IsLetter
Dim 符号 As Boolean = False ' IsSymbol
For I As Integer = 0 To InPass_Str.Length - 1
'Dim 显示 As String = "" ' 注释
Dim Str As String = InPass_Str.Substring(I, 1)
'显示 = Str & " " & Asc(STR) & " " ' 注释
If Char.IsLower(Str) = True Then
小写 = True
'显示 = 显示 & "小写字母" & " " ' 注释
End If
If Char.IsUpper(Str) = True Then
大写 = True
'显示 = 显示 & "大写字母" & " " ' 注释
End If
If Char.IsNumber(Str) = True Then
数字 = True
'显示 = 显示 & "数字" & " " ' 注释
End If
If Char.IsPunctuation(Str) = True Then
标点 = True
'显示 = 显示 & "标点符号" & " " ' 注释
End If
If Char.IsSymbol(Str) = True Then
符号 = True
'显示 = 显示 & "符号字符" & " " ' 注释
End If
' If Char.IsSeparator(Str) = True Then ' 注释
' 分隔 = True ' 注释
' 显示 = 显示 & "分隔符" ' 注释
' End If
' If Char.IsDigit(Str) = True Then ' 注释
' 显示 = 显示 & "十进制数字" ' 注释
' End If ' 注释
' If Char.IsLetter(Str) = True Then ' 注释
' 显示 = 显示 & "字母" & " " ' 注释
' End If ' 注释
' If Char.IsLetterOrDigit(Str) = True Then ' 注释
' 显示 = 显示 & "字母和十进制数字" ' 注释
' End If ' 注释
' If Char.IsWhiteSpace(Str) = True Then ' 注释
' 显示 = 显示 & "空白" ' 注释
' End If ' 注释
' If Char.IsControl(Str) = True Then ' 注释
' 显示 = 显示 & "控制字符" ' 注释
' End If ' 注释
' Output.Show(显示) ' 注释
Next
If InPass_Str.Length >= 4 Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 数字 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 小写 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 大写 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 标点 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 字母 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
If 符号 = True Then ' 密码字符长度
Pass_Tier = Pass_Tier + 1
End If
Return Pass_Tier
加好友 
发短信
Post By：2023/3/9 21:00:00 [只看该作者]
