'由Itrend 解决方案添加 -密码验证
创建一个方法并传递您的文本以验证密码强度.. Dim password AsString password = Trim(txtnewpassword.Text)
DimSmallCharacter() AsString = {“a”、“b”、“c”、“d”、“e”、“f”、“g”、“h”、“i”、“j”、“k”、 “l”、“m”、“n”、“o”、“p”、“q”、“r”、“s”、“t”、“u”、“v”、“w”、“x” "、"y"、"z"、"A"、"B"、"C"、"D"、"E"、"F"、"G"、"H"、"J"、"K"、 “L”、“M”、“N”、“O”、“P”、“Q”、“R”、“S”、“T”、“U”、“V”、“W”、“X” ", "Y", "Z"} DimsmallchacountAsInteger = 0 ForEachsmallchaAsStringInSmallCharacter If (password.Contains(smallcha)) Then smallchacount = smallchacount + 1 EndIf Next Ifsmallchacount<= 0 Then MessageBox("密码必须包含一个字母字符") Exit Sub EndIf
Dim Numbers() AsString = {“0”、“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”} DimnumbercountAsInteger = 0 ForEachnumAsStringIn Numbers If (password.Contains(num)) Then numbercount = numbercount + 1 EndIf Next Ifnumbercount<= 0 Then MessageBox("密码必须包含一个数字") Exit Sub EndIf
DimSpecial() AsString = {"@"、"#"、"$"、"%"、"^"、"&"、"*"、"("、")"、"!"} DimcountSpecialAsInteger = 0 ForEach spec AsStringIn Special If (password.Contains(spec)) Then countSpecial = countSpecial + 1 EndIf Next IfcountSpecial<= 0 Then MessageBox("密码必须包含一个特殊字符") Exit Sub
如需更多说明,请联系我们