密码检查器 - 检查 2 个彼此相邻的相同字符

Question

我正在做一个程序来确定 vb.net 中密码的强度

“强”密码的特点如下：

1) 长度必须至少为 8 个字符

2) 必须是字母、数字和符号的组合

3) 必须至少有 2 个大写字母和

4) 不能有 2 个相同的字符彼此相邻。

示例： b@LLp3n = 弱

P@ssw0rd = 弱

k3Yb0Ard！ = 强

C0MPUT3R = 弱

S+@Rcr4ft = 强

问题： 我担心的是检查两个彼此相邻的相同字符的正确代码。

代码如下：

Public Class Form1
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
    Dim password As String = txtInput.Text
    Dim numUpper As Integer = 2
    Dim passLength As Integer = 8
    Dim specialLength As Integer = 1


    Dim upper As New Text.RegularExpressions.Regex("[A-Z]")
    Dim specialChar As New Text.RegularExpressions.Regex("[^a-zA-Z0-9]")


    If password.Length < passLength Then
        MessageBox.Show("The Password Is Weak-")
    ElseIf upper.Matches(password).Count < numUpper Then
        MessageBox.Show("The Password Is Weak!")
    ElseIf specialChar.Matches(password).Count < specialLength Then
        MessageBox.Show("The Password Is Weak+")
    Else
        MessageBox.Show("The Password Is Strong")
    End If
End Sub
End Class

我希望有人可以帮助我解决这个问题。

Answer 1

您可以在您的方法中添加另一个If 条件：

If Regex.IsMatch(password,"(.)\1") Then
    MessageBox.Show("There are identical consecutive chars!")
End If

(.)\1 模式将匹配并捕获除换行符以外的任何字符（使用 (.)），并且对第 1 组值的 \1 反向引用将匹配在第 1 组中捕获的相同字符。请参阅the regex demo。

您可以进一步增强它。比如说，您允许两个相同的连续字符，但您不想允许 3 个相同的字符条纹。然后使用(.)\1{2}，这将需要在第 1 组中捕获 2 次相同的字符。