Masked password + MD5 encryption

[tombyrne94]

Hello, I'm making a console application with a login. The system I have now is extremely basic and very redundant. I would like the password to be masked as you type it in "*****" for example and If possible I would like to encrypt the password with md5. Can someone let me know how to/give me the code to do it.

This is my current login system:

Sub LogIn()
        'A log in system to prevent unwanted users from acsessing the system
        Console.Write("Username: ")
        Dim username As String = Console.ReadLine.ToLower
        If username = "sian" Then
            loginPassword()
            'If the username is correct it goes on to the main screen.
        Else
            'If the username is wrong it loops back into the log in
            Console.Clear()
            LogIn()
        End If
        End
    End Sub

    'If the password is correct it goes on to ask for the password
    Sub loginPassword()
        Console.Write("Password: ")
        Dim Password As String = Console.ReadLine.ToLower
        If Password = "password" Then
            Console.Clear()
            options()
            'If the password is correct it leads into the options
        Else
            'If the password is wrong it loops back into the log in
            Console.Clear()
            LogIn()
        End If
        End
    End Sub