Убедитесь, что сгенерированный пароль содержит необходимые символы - PullRequest
Новая
       6

Убедитесь, что сгенерированный пароль содержит необходимые символы

0 голосов
/ 22 мая 2018

Нужна небольшая помощь с приложением, которое я создаю.Это просто генератор паролей.У меня есть приложение, генерирующее пароль без проблем, но мне нужно добавить шаг, который проверяет: 1 заглавную букву, 1 строчную букву, 1 цифру и 1 специальный символ перед отображением пароля.Если пароль не содержит этих значений, пароль должен сгенерироваться снова.

Я хотел бы сохранить код, который у меня есть, я просто хочу добавить шаг в конце.

Заранее большое спасибо.

Вот мой код: 

    Public Class Form1

    Dim AllCharacters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789?!£$%^&*()_+[];'#,./?><~@:}{\|"
    Dim r As New Random
    Dim charIndex As Integer
    Dim finalpassword As String
    Dim passwordChars1() As Char = New Char(9) {}

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For i As Integer = 0 To 9 - 1
            charIndex = r.Next(AllCharacters.Length)
            passwordChars1(i) = AllCharacters(charIndex)
        Next
        finalpassword = passwordChars1

        passwordbox.Text = finalpassword 'Displays Password on Main Form Window

    End Sub

1 Ответ

0 голосов
/ 24 мая 2018

Это то, что вы обычно делаете при создании или изменении пароля.Обычно я использую что-то вроде следующей функции для проверки сложности пароля: 

'PasswordComplexityRegex is a string value I get from a database at login, 
'if it is not present then a default one will be use.    
Dim PasswordComplexityRegex as String 
'MinimunPasswordLenght is also a number stored in a database if not present
'it will use a default, in this case 12.
Public Function validatePassword(ByVal pass As String) As Boolean
    Dim pattern As String = "[~`!@#$%^&*()-_=+';:,./<>?]"
    If Not (String.IsNullOrEmpty(PasswordComplexityRegex)) Then
      pattern = PasswordComplexityRegex
    End If
    Dim patternRegex As Match = Regex.Match(pass, pattern)
    'In this case it checks that the length of the password is >= to 12
    If (IsDBNull(MinimunPasswordLenght) Or MinimunPasswordLenght = 0) Then
       MinimunPasswordLenght = 12
    End If
    Return (patternRegex.Success And pass.Length >= MinimunPasswordLenght)
End Function

Это ключ, который вы всегда проверяете Regex, он немного сложнее, чем некоторые думают.

Теперь используйте эту функцию, чтобы подтвердить свой пароль и определить, продолжается или нет.Что-то вроде: 

If Not validatePassword(txtNewPassword.Text) Then
  MsgBox("Password need to be...", vbCritical, "Password not in compliance...")
End If

Вы должны разрешить все символы, включая Unicode, и не должны ограничивать длину более строго, например, если MySQL ограничивает ее.Вы должны поощрять комбинацию букв, цифр, заглавных букв и т. Д.

Nandostyle

...