Как разобраться с программой!

Public Class Form1
    Dim Key As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Ключ
    Dim IV As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16} 'Вектор инициализации
    Dim pth As String = My.Application.Info.DirectoryPath & "\users\"
    Public Sub Encrypt(ByVal fName As String, ByVal txtEncrypt As String)
 
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        Dim fs As New IO.FileStream(fName, IO.FileMode.Create)
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateEncryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
        Dim SWriter As New IO.StreamWriter(CryptStream)
        SWriter.Write(txtEncrypt)
        SWriter.Close()
        fs.Close()
        CryptStream.Close()
    End Sub
    Public Function Decrypt(ByVal fName As String) As String
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        Dim fs As New IO.FileStream(fName, IO.FileMode.Open)
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateDecryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Read)
        Dim SReader As New IO.StreamReader(CryptStream)
        Decrypt = SReader.ReadToEnd()
        SReader.Close()
        fs.Close()
        CryptStream.Close()
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim info As String
        Try
            If IO.File.Exists(pth & TextBox1.Text & ".u") = True Then
                MsgBox("Пользователь с таким логином уже зарегистрирован", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            If TextBox1.TextLength < 4 Then
                MsgBox("Имя пользователя должно состоять из 4 и более букв", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            If TextBox2.TextLength < 6 Then
                MsgBox("Пароль должен включать не менее 6 символов", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            info = "User: " & TextBox1.Text & vbCrLf & _
            "Дата реги: " & Date.Today
            Dim User As String = Strings.Left(TextBox1.Text + "0000000000000000", 16)
            Dim Pass As String = TextBox2.Text
            If Pass.Length <= 16 Then
                Pass = Strings.Left(TextBox2.Text + "0000000000000000", 16)
            End If
            For i = 0 To 15
                Key(i) = CByte(Asc(Mid(Pass, i + 1, 1)))
                IV(i) = CByte(Asc(Mid(User, i + 1, 1)))
            Next
 
            If Pass.Length > 16 Then
                info = SHIFR(info, Mid(Pass, 16, Pass.Length - 16))
            End If
 
            If IO.Directory.Exists(pth) = False Then MkDir(pth)
 
            
            Encrypt(pth & TextBox1.Text & ".u", info)
            MsgBox("Поздравляем, " & TextBox1.Text & "! Вы успешно зарегистрированы!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Все поля обязательны для заполнения", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        Try
            Dim UE As New IO.FileInfo(pth & TextBox1.Text & ".u")
            If UE.Exists = False Then
                MsgBox("Такой пользователь не зарегистрирован", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
            Dim info As String = ""
            Dim User As String = Strings.Left(TextBox1.Text + "0000000000000000", 16)
            Dim Pass As String = TextBox2.Text
            If Pass.Length <= 16 Then
                Pass = Strings.Left(TextBox2.Text + "0000000000000000", 16)
            End If
            For i = 0 To 15
                Key(i) = CByte(Asc(Mid(Pass, i + 1, 1)))
                IV(i) = CByte(Asc(Mid(User, i + 1, 1)))
            Next
 
        
            
            Try
                info = Decrypt(pth & TextBox1.Text & ".u")
                If Pass.Length > 16 Then
                    info = DESHIFR(info, Mid(Pass, 16, Pass.Length - 16))
                End If
                ' MsgBox("Добро пожаловать", MsgBoxStyle.Information)
                MsgBox(info)
            Catch ex As Exception
                MsgBox("Неверный пароль!", MsgBoxStyle.Exclamation)
            End Try
 
      
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
        End Try
    End Sub
 
 
    Private Function SHIFR(ByVal word, ByVal key)
 
        Dim Out As String = ""
        Dim Str As String = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz1234567890"
        Dim Z As Integer = Str.Length - 1
        Dim M(Z, Z) As String
        Dim KeyInd As Integer = 0
        For I As Integer = 0 To Z
            For T As Integer = 0 To Z
                Dim C As Integer = T + I + 1
                If C > (Z + 1) Then C = C - (Z + 1)
                M(I, T) = Strings.Mid(Str, C, 1)
            Next
        Next
        For Y As Integer = 0 To word.Length - 1
            If InStr(Str, Strings.Mid(word, Y + 1, 1), CompareMethod.Text) = 0 Then
                Out &= Strings.Mid(word, Y + 1, 1)
            Else
                If KeyInd > Len(key) - 1 Then KeyInd = 0
                Out &= M(InStr(Str, Strings.Mid(word, Y + 1, 1), CompareMethod.Text) - 1, InStr(Str, Strings.Mid(key, KeyInd + 1, 1), CompareMethod.Text) - 1)
                KeyInd += 1
            End If
        Next
        Return (Out)
    End Function
    Private Function DESHIFR(ByVal word, ByVal key)
        Dim Out As String = word
        Dim Str As String = "абвгдеёжзийклмнопрстуфхцчшщъыьэюяabcdefghijklmnopqrstuvwxyz1234567890"
        Dim Z As Integer = Str.Length - 1
        Dim M(Z, Z) As String
        Dim KeyInd As Integer = 0
        Dim Vert, Goriz, PsVert As Integer
        Dim EndWord As String = ""
 
        For I As Integer = 0 To Len(Out) - 1
            If InStr(Str, Mid(Out, I + 1, 1), CompareMethod.Text) > 0 Then
                If Len(key) - 1 < KeyInd Then KeyInd = 0
                Goriz = InStr(Str, Mid(key, KeyInd + 1, 1), CompareMethod.Text)
                PsVert = InStr(Str, Mid(Out, I + 1, 1), CompareMethod.Text)
                Vert = PsVert - Goriz + 1
                If Vert < 1 Then Vert = Len(Str) + Vert
                EndWord &= (Mid(Str, Vert, 1))
                KeyInd += 1
            Else
                EndWord &= Mid(Out, I + 1, 1)
            End If
        Next
        Return EndWord
    End Function
 
 
End Class

Dim test() As String
    Private Sub AddTest(ByVal TestStr As String)
        Dim testWrite As New IO.StreamWriter(pth & "test.test", True)
        testWrite.WriteLine(TestStr)
        testWrite.Close()
    End Sub
    Private Sub ReadTest()
        test = IO.File.ReadAllLines(pth & "test.test")
    End Sub
    Private Sub Random()
        Dim ForCount As Integer = Int((Rnd() * test.Length * 10)) ' 10 - коэф. перемешивания. Чем больше, тем круче, но дольше.
        Do While ForCount > 0
            Randomize()
            Dim RandomSource As Integer = Int(Rnd() * test.Length) ' Берем первый случайный элемент
            Dim RandomTarget As Integer = Int(Rnd() * test.Length) ' Берем второй случайный элемент
            Dim TempStrA As String = test(RandomSource) ' Запоминаем первый случайный элемент
            test(RandomSource) = test(RandomTarget) ' Меняем первый и второй местами
            test(RandomTarget) = TempStrA
            ForCount -= 1
        Loop
    End Sub

  Private Function Random(ByVal A() As String)
        Dim ForCount As Integer = Int((Rnd() * A.Length * 10)) ' 10 - коэф. перемешивания. Чем больше, тем круче, но дольше.
        Do While ForCount > 0
            Randomize()
            Dim RandomSource As Integer = Int(Rnd() * A.Length) ' Берем первый случайный элемент
            Dim RandomTarget As Integer = Int(Rnd() * A.Length) ' Берем второй случайный элемент
            Dim TempStrA As String = A(RandomSource) ' Запоминаем первый случайный элемент
            A(RandomSource) = A(RandomTarget) ' Меняем первый и второй местами
            A(RandomTarget) = TempStrA
            ForCount -= 1
 
        Loop
        Return A
    End Function
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
 
  
            If RadioButton1.Checked = True Then
                If RadioButton1.Text = Split(test(ind), "|")(1) Then MsgBox("УРА. Вы угадали.")
            End If
            If RadioButton2.Checked = True Then
                If RadioButton2.Text = Split(test(ind), "|")(1) Then MsgBox("УРА. Вы угадали.")
            End If
            If RadioButton3.Checked = True Then
                If RadioButton3.Text = Split(test(ind), "|")(1) Then MsgBox("УРА. Вы угадали.")
            End If
            If RadioButton4.Checked = True Then
                If RadioButton4.Text = Split(test(ind), "|")(1) Then MsgBox("УРА. Вы угадали.")
            End If
 
            ind = ind + 1
            If ind > test.Count - 1 Then
                MsgBox("Тест окончен")
            End If
            Label1.Text = Split(test(ind), "|")(0)
            Ответы(0) = Split(test(ind), "|")(1)
            Ответы(1) = Split(test(ind), "|")(2)
            Ответы(2) = Split(test(ind), "|")(3)
            Ответы(3) = Split(test(ind), "|")(4)
            Ответы = Random(Ответы)
            RadioButton1.Text = Ответы(0)
            RadioButton2.Text = Ответы(1)
            RadioButton3.Text = Ответы(2)
            RadioButton4.Text = Ответы(3)
        Catch ex As Exception
 
        End Try
    End Sub