Программа для шифрования и дешифрования текстового документа

Option Explicit On
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Alphabet As String 'Алфавит
        Dim key As String 'Ключевое слово
        Dim EntranceText As String 'Шифруемый текст
        Dim tab() As String  'Таблица
        Dim MarksInAlphanet As Integer 'Число знаков в алфавите
        Dim MarksInKey As Integer 'Число знаков в ключе
        Dim MarksInText As Integer  'Число знаков в тексте
        Dim Code As String 'Шифрованный текст
        Dim i%, j%, k%, x%, Text$
        Alphabet = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ" 'Вводим алфавит
        MarksInAlphanet = CInt(Len(Alphabet)) 'Вычисляем количество знаков в алфавите
        key = StrConv(key, vbUpperCase) 'Вводим ключ и преобразуем прописные буквы в строчные
        MarksInKey = CInt(Len(key)) 'Вычисляем количество знаков в ключе
        For i = 1 To MarksInKey 'Проверям, есть ли подобные знаки в алфавите как в ключе
            Text = Mid(key, i, 1)
            k = InStr(Alphabet, Text)
            If k = 0 Then
                MsgBox("Знак"" & Text&""не найден в алфавите." & "Введите другое ключевое слово", , "Ошибки в ключе")
                Exit Sub
            End If
        Next i
        ReDim tab(MarksInAlphanet) 'Создаем таблицу 
        ReDim tab(MarksInAlphanet)
        For i = 1 To MarksInAlphanet
            k = i
            For j = 1 To MarksInAlphanet
                If k > MarksInAlphanet Then k = k - MarksInAlphanet
                tab(i) = Mid(Alphabet, k, 1)
                k = k + 1
            Next j
        Next i
        EntranceText = StrConv(EntranceText, vbUpperCase)
        MarksInText = CInt(Len(EntranceText)) 'Вводим шифруемый тексти преобразуем прописные буквы в строчные
        For i = 1 To MarksInText 'Проверям, есть ли подобные знаки в алфавите как в тексте
            Text = Mid(EntranceText, i, 1)
            If Text <> " " Then k = InStr(Alphabet, Text)
            If k = 0 Then MsgBox("Знак '" & Text & "' не найден в алфавите. " _
& "Измените шифруемый текст.", , "Ошибка в тексте")
            ' End if
            Exit Sub
 
        Next i 'Шифруем текст
        x = 1
        For i = 1 To MarksInText
            Text = Mid(EntranceText, i, 1)
            '  If Text = " " Then Code = Code&" "
            End
            If x > MarksInKey Then x = 1
            j = InStr(Alphabet, Mid(key, x, 1))
            x = x + 1
            k = InStr(Alphabet, Text)
            Code = Code & tab(k)
            Code = Code & tab(j)
            End
        Next i
        tab = "" 'Выводим таблицу (преобразование значения типа string в одномерный массив из string)
        For i = 1 To MarksInAlphanet
            For j = 1 To MarksInAlphanet
                tab = tab & tab(i)
                tab = tab & tab(j)
                tab&(vbCrLf)
            Next j
            tab = tab.ToString & vbCrLf
        Next i
        Code = Code.ToString 'Выводим шифрованный текст
    End Sub
End Class

Public Module Rijndael
    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} 'Вектор инициализации
 
    'Метод шифрует и записывает в файл fName текст из переменной txtEncrypt
    Public Sub Encrypt(ByVal fName As String, ByVal txtEncrypt As String)
        'Создаём экземпляр класса RijndaelManaged
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        'Создаём FileStream, туда будет записана зашифрованная информация
        Dim fs As New IO.FileStream(fName, IO.FileMode.Create)
        'Создаём CryptoStream
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateEncryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Write)
        'Создаём StreamWriter для записи данных в CryptoStream
        Dim SWriter As New IO.StreamWriter(CryptStream)
        'Пишем в CryptoStream
        SWriter.WriteLine(txtEncrypt)
        'Закрываем все объекты
        SWriter.Close()
        fs.Close()
        CryptStream.Close()
    End Sub
    Public Function Decrypt(ByVal fName As String) As String
        'Создаём экземпляр класса RijndaelManaged
        Dim RMCrypto As New Security.Cryptography.RijndaelManaged
        'Создаём FileStream, оттуда будем читать зашифрованную информацию
        Dim fs As New IO.FileStream(fName, IO.FileMode.Open)
        'Создаём CryptoStream
        Dim CryptStream As New Security.Cryptography.CryptoStream(fs, RMCrypto.CreateDecryptor(Key, IV), Security.Cryptography.CryptoStreamMode.Read)
        'Создаём StreamReader для чтения данных из CryptoStream
        Dim SReader As New IO.StreamReader(CryptStream)
        'Читаем расшифрованную информацию из CryptoStream
        Decrypt = SReader.ReadToEnd()
        'Закрываем все объекты
        SReader.Close()
        fs.Close()
        CryptStream.Close()
    End Function
End Module