none
Passwort Sicherheit anzeigen RRS feed

 > 

  • Frage

  • Question
    Anmelden
    0
    Anmelden

    Hallo,

    In meinem Programm kann man ein Passwort festlegen und ich möchte da gerne auch noch einen Passwort Sicherheits Status als Progressbar haben. Also sowas wie bei vielen Webseiten bei der Registrierung der Passwort Stärke Balken.

    Wie kann ich sowas machen ??

    Montag, 21. Oktober 2013 13:04
    |

Antworten

  • Question
    Anmelden
    0
    Anmelden
    Hallo,
    dafür gibt es viele Möglichkeiten. Typische Abfragen überprüfen ob Groß- und Kleinschreibung, Zahlen und Sonderzeichen vorhanden sind. Im TextChanged Event kannst du nach diesen prüfen: 
        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        'Enthalten?'
        Dim foundLowerCase As Boolean = False
        Dim foundUpperCase As Boolean = False
        Dim foundDigits As Boolean = False
        Dim foundOther As Boolean = False
        For Each c As Char In TextBox1.Text 'Alle Zeihen durchgehen und auf Sonderzeichen etc. abprüfen'
            'Ein Char ist auch nur eine Zahl, somit können einfach Bereiche abfgefragt werden.'
                Select Case c
                Case "a"c To "z"c 'Kleinbuchstaben'
                    foundLowerCase = True
                Case "A"c To "Z"c 'Großbuchstaben'
                    foundUpperCase = True
                Case "0"c To "9"c 'Zahlen'
                    foundDigits = True
                Case Else 'Sonstige'
                    foundOther = True
            End Select
        Next

        Dim level As Integer = 0 'Um so höher desto sicherer'
        If foundLowerCase Then
            level += 1
        End If
        If foundUpperCase Then
            level += 1
        End If
        If foundDigits Then
            level += 1
        End If
        If foundOther Then
            level += 1
        End If
        If TextBox1.Text.Length > 8 Then 'Länge abprüfen'
            level = level + 1
        End If

        ProgressBar1.Maximum = 5 'Es reicht es beim Laden der Form zu setzen'
        ProgressBar1.Value = level 'Ausgabe'
    End Sub
    Der Quellcode ist weitestgehend Kommentiert, somit spare ich mir eine nähere Erläuterung.

    Koopakiller [kuːpakɪllɐ] (Tom Lambert)
    Webseite | Code Beispiele | Facebook | Twitter | Snippets   C# ↔ VB.NET Konverter
    Markiert bitte beantwortende Posts als Antwort und bewertet Beiträge. Danke.


    Montag, 21. Oktober 2013 13:29
    |
    Moderator