Вы можете кодировать свои пароли с помощью HASHES, например, SHA1.
Function getSHA1Hash(ByVal strToHash As String) As String
Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = sha1Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Function
Использовать это просто!
Console.Write(getSHA1Hash("password"))
Поэтому, когда вам нужно аутентифицировать пользователя, вы можете принять его вводпароль, вычислите его хеш, используя вышеуказанную функцию, и убедитесь, что он такой же, с помощью простого предложения IF:
if getSHA1Hash(input_password) = HASHED_OLD_PASSWORD then Authenticate()
Хэши SHA1 не расшифровываются без явного перебора всех возможностей, поэтому это довольно безопасное решение.