Sdílet prostřednictvím

Návod: Ověření, že hesla jsou složitá (Visual Basic).

  • Článek

Tato metoda vyhledá některé vlastnosti silného hesla a aktualizuje parametr řetězce s informacemi o tom, která zkontroluje selhání hesla.

Hesla je možné použít v zabezpečeném systému k autorizaci uživatele. Hesla ale musí být pro neoprávněné uživatele obtížné uhodnout. Útočníci můžou použít program útoku ve slovníku, který iteruje všechna slova ve slovníku (nebo více slovníků v různých jazycích) a testuje, jestli některá slova fungují jako heslo uživatele. Slabá hesla jako "Yankees" nebo "Mustang" se dají rychle odhadnout. Silnější hesla, například "? Vy L1N3vaFiNdMeyeP@sSWerd!" je mnohem méně pravděpodobné, že se hádáte. Systém chráněný heslem by měl zajistit, aby uživatelé zvolili silná hesla.

Silné heslo je složité (obsahuje kombinaci velkých, malých, číselných a speciálních znaků) a není to slovo. Tento příklad ukazuje, jak ověřit složitost.

Příklad

Kód

''' <summary>Determines if a password is sufficiently complex.</summary>
''' <param name="pwd">Password to validate</param>
''' <param name="minLength">Minimum number of password characters.</param>
''' <param name="numUpper">Minimum number of uppercase characters.</param>
''' <param name="numLower">Minimum number of lowercase characters.</param>
''' <param name="numNumbers">Minimum number of numeric characters.</param>
''' <param name="numSpecial">Minimum number of special characters.</param>
''' <returns>True if the password is sufficiently complex.</returns>
Function ValidatePassword(ByVal pwd As String, 
    Optional ByVal minLength As Integer = 8, 
    Optional ByVal numUpper As Integer = 2, 
    Optional ByVal numLower As Integer = 2, 
    Optional ByVal numNumbers As Integer = 2, 
    Optional ByVal numSpecial As Integer = 2) As Boolean

    ' Replace [A-Z] with \p{Lu}, to allow for Unicode uppercase letters.
    Dim upper As New System.Text.RegularExpressions.Regex("[A-Z]")
    Dim lower As New System.Text.RegularExpressions.Regex("[a-z]")
    Dim number As New System.Text.RegularExpressions.Regex("[0-9]")
    ' Special is "none of the above".
    Dim special As New System.Text.RegularExpressions.Regex("[^a-zA-Z0-9]")

    ' Check the length.
    If Len(pwd) < minLength Then Return False
    ' Check for minimum number of occurrences.
    If upper.Matches(pwd).Count < numUpper Then Return False
    If lower.Matches(pwd).Count < numLower Then Return False
    If number.Matches(pwd).Count < numNumbers Then Return False
    If special.Matches(pwd).Count < numSpecial Then Return False

    ' Passed all checks.
    Return True
End Function

Sub TestValidatePassword()
    Dim password As String = "Password"
    ' Demonstrate that "Password" is not complex.
    MsgBox(password & " is complex: " & ValidatePassword(password))

    password = "Z9f%a>2kQ"
    ' Demonstrate that "Z9f%a>2kQ" is not complex.
    MsgBox(password & " is complex: " & ValidatePassword(password))
End Sub

Kompilace kódu

Volejte tuto metodu předáním řetězce, který obsahuje toto heslo.

Tento příklad vyžaduje:

Zabezpečení

Pokud přesouváte heslo přes síť, musíte použít zabezpečenou metodu přenosu dat. Další informace najdete v tématu ASP.NET Zabezpečení webové aplikace.

Přesnost ValidatePassword funkce můžete zlepšit přidáním dalších kontrol složitosti:

  • Porovnejte heslo a jeho podřetěděce s uživatelským jménem, identifikátorem uživatele a slovníkem definovaným aplikací. Kromě toho při porovnávání zacházet s vizuálně podobnými znaky jako ekvivalentními. Například zachází s písmeny "l" a "e" jako s ekvivalentem číslic "1" a "3".

  • Pokud existuje jenom jeden velké písmeno, ujistěte se, že se nejedná o první znak hesla.

  • Ujistěte se, že poslední dva znaky hesla jsou písmena.

  • Nepovolujte hesla, ve kterých jsou všechny symboly zadané z horního řádku klávesnice.

Viz také