Option Strict On

Public Class CPassword

  ' ============= Stałe symboliczne ======================

  Private Const MINLENGTH As Integer = 4    ' Hasło musi mieć 4-30 znaków
  Private Const MAXLENGTH As Integer = 30

  Private Const MINSECURITY As Integer = 1  ' Poziomy uprawnień
  Private Const MAXSECURITY As Integer = 10

  ' ================= Dane Private ========================

  Private Structure Security
    Dim User As String            ' Użytkownik programu
    Dim Pass As String            ' Hasło
    Dim SecurityLevel As Integer  ' Poziom bezpieczeństwa 
  End Structure

  Private Shared mUserCount As Integer   ' Liczba użytkowników

  Private Shared mUserList() As Security ' Lista użytkowników

  Private Check As Integer
  Private EncodedPW As String
  Private DecodedPW As String
