'Yelena Sanchez

'2/12/21

'PasswordChecker Program

​

Imports System

Public Module Module1

    Public Sub Main()       

        Dim password As String                                                                                  'Declare Variables

        Dim currentChar As Char 

        Dim numChar As Integer

        Dim hasUpper, hasLower, hasDigit, HasSymbol As Boolean

        Console.Write("Please enter your password: ")                                                           'Get User Input

        password = console.Readline()

        numChar = password.Length                                                                               'Calculations

        For i As Integer = 0 To password.Length - 1

                currentChar = password.Chars(i) 

        If Char.IsUpper(currentChar) = True Then

              hasUpper = True

        End If      

        If Char.IsLower(currentChar) = True Then

            hasLower = True

        End If

        If Char.IsDigit(currentChar) = True Then

            hasDigit = True

        End If

        If Char.IsLetter(currentChar) = False And Char.IsDigit(currentChar) = False Then

              hasSymbol = True

        End If

        Next i

    If numChar >=8 And hasUpper = true And hasLower = true And hasDigit = true And hasSymbol = true Then        'Outputs

            Console.WriteLine("Password Accepted.")

            ElseIf numChar < 8 Then

                Console.WriteLine("Error: Password must contain at least 8 characters.")

            ElseIf hasUpper = false Then

                Console.WriteLine("Error: Password must contain one uppercase letter.")

            ElseIf hasLower = false Then

                Console.WriteLine("Error: Password must contain at least one lowercase letter.")

            ElseIf hasDigit = false Then

                Console.WriteLine("Error: Password must contain at least one digit.")

            ElseIf hasSymbol = false Then

                Console.WriteLine("Error: Password must contain at lease one symbol.")

            End If

    End Sub

End Module