Исходный код шифрования текста универсальным алгоритмом.

Private Sub zasS_S_Rand(ByRef textIsxod As String, ByRef textRez As String, ByRef ChifrVxod As Short, ByRef RotorVxod As Short, ByRef NomerVxod1 As Integer, ByRef NomerVxod2 As Integer, ByRef BazisVxod As String, ByRef OblikVxod As String, ByRef ChaosVxod() As UShort, Optional ByRef LocalBB As Short = 1)

Dim J0 As Integer, J1 As Integer, Ich0 As Integer, Ich1 As Integer, Ich2 As Integer, DlinaIsxod As Integer

Dim L0 As String, DlinaBazis As UShort, DlinaChaos As Integer, DlinaNomer As Integer, DlinaProgres As Short

Dim AdresBazis As Integer, AdresOblik As Integer, AdresChaos As Integer, Ichet As Integer, Ipro As Short

Dim Simvol As Char, Lbuilder As New System.Text.StringBuilder("")

Dim Progres1 As Integer

'Процедура на языке Visual Basic 9.0 (Visual Basic 2008) Все параметры передаются по ссылке, так как тексты в виде строк могут быть очень большими.

'Типы данных:

'Byte = От 0 до 255 (беззнаковый). Один байт

'Short = От –32 768 до 32 767 (знаковый). Два байта.

'Integer = От –2 147 483 648 до 2 147 483 647 (знаковый). 4 байта.

'Long = От –9 223 372 036 854 775 808 до 9 223 372 036 854 775 807 (9,2... E+18 †) (знаковый). 8 байтов.

'String = От 0 до приблизительно 2 миллиардов знаков в кодировке Юникод.

'USort = От 0 до 65 535 (беззнаковый). Два байта.

'Char = От 0 до 65535 (беззнаковый). Два байта.

'System.Text.StringBuilder("") - инструмент VB9 для работы со строками переменной длины. Обычные инструменты работы со строками при любом изменении строки создают новую строку. При больших строках это очень сильно замедляет вычисления. Новый инструмент чрезвычайно быстро производит операции со строками.



'Шифрование текста в виде строки. Алфавит символьный - строка символов BazisVxod с адресами от 1 до 65535, второй алфавит строка символов OblokVxod с адресами от 1 до 65535, вектор чисел - ChaosVxod() с адресами от 0 до 65535

'Вход: textIsxod     - исходный текст в виде строки символов, который нужно зашифровать или расшифровать с адресами от 1 до DlinaIsxod

'      textRez       - результат шифрования строки символов textIsxod с адресами от 1 до DlinaIsxod 

'      NomerVxod1    - номер первого символа в тексте textIsxod, подлежащий шифрованию, отсчет с 1

'      NomerVxod2    - номер последнего символа в тексте textIsxod, подлежащий шифрованию, отсчет с 1

'      LocalBB       - учет относительного влияния порядка отсчета чисел вектора. Результаты шифрования различны при различных значения параметра.

'                    = 0 - отсчет ведется с начала textRez

'                    = 1 - отсчет ведется от NomerVxod1 до NomerVxod2

'                    = 2 - отсчет ведется по BazisVxod от 1 до DlinaBazis+1

'Параметры шифрования: 

'      ChifrVxod = 0 - расшифровать textIsxod, 1 - зашифровать textIsxod, понятие расшифровать и зашифровать выбрано произвольно. Можно расшифровывать, а восстанавливать, зашифровывая.

'      RotorVxod = 0 - левое вращение, 1 - правое вращение. Результаты шифрования абсолютно различны, в лучшем случае совпадает один символ в середине.

'      BazisVxod - алфавит символьный в виде строки - перечень символов в textIsxod, подлежащих шифрованию, индекс с 1. Количество символов от 2 до 65535. Все символы должны быть различными. Символы, не входящие в BazisVxod, копируются из textIsxod в textRez без изменения. Длина BazisVxod равна DlinaBazis, изменяется от 2 до 65535.

'      OblikVxod - второй символьный алфавит, отличается от первого только порядком следования одних и тех же символов. Может быть равен первому.

'      ChaosVxod() - вектор чисел от 1 до длины BazisVxod. Количество чисел в векторе может быть от 1 до длины textIsxod по выбору пользователя. Числа в векторе - произвольные из области значений. Например, длина вектора = 3. Это означает, что в векторе 3 числа: 1)Первое от 1 до DlinaBazis. 2)Второе от 1 до DlinaBazis, может быть равно первому. Третье от 1 до DlinaBazis, может быть равное первому или второму.



'DlinaProgres = 100            'Параметр для индикатора отображения выполняемой операции

'ProgressBar1.Maximum = 100    'Параметр для индикатора отображения выполняемой операции

'Progres1 = 100000             'Параметр для индикатора отображения выполняемой операции

DlinaBazis = Len(BazisVxod)         'Длина первого алфавита, количество символов

DlinaChaos = UBound(ChaosVxod) + 1  'Длина вектора, количество чисел

Ich0 = NomerVxod1 - 1: Ich1 = 0: Ich2 = 0

DlinaIsxod = Len(textIsxod)         'Длина текста, подлежащего шифрованию

Lbuilder.Capacity = DlinaIsxod

'Копирование не шифруемой начальной части текста без изменения

For J0 = 1 to NomerVxod1 - 1

  Simvol = Mid(textIsxod, J0, 1)

  Lbuilder.Append(Simvol, 1)

Next 



DlinaNomer = NomerVxod2 - NomerVxod1 + 1

Ichet = 0

Select Case ChifrVxod

Case 0  'Расшифровать

  For J0 = NomerVxod1 To NomerVxod2

    Ich0 = Ich0 + 1

    Ich1 = Ich1 + 1

    L0 = Mid(textIsxod, J0, 1)

    AdresOblik = InStr(OblikVxod, L0)

    Select Case RotorVxod

    Case 0

      Select Case AdresOblik

      Case 0

        'Если символ отсутствует в алфавите, то копируется в результат без изменения

        If L0 <> Nothing Then Simvol = L0: Lbuilder.Append(Simvol, 1)

      Case Else

        Ich2 = Ich2 + 1

        Select Case LocalBB

        Case 0

          J1 = Ich0 Mod DlinaChaos

        Case 1

          J1 = Ich1 Mod DlinaChaos

        Case 2

          J1 = Ich2 Mod DlinaChaos

        Case Else

        End Select

        AdresChaos = ChaosVxod(J1)

        AdresBazis = AdresOblik + AdresChaos

        If AdresBazis > DlinaBazis Then AdresBazis = AdresBazis - DlinaBazis

        Simvol = Mid(BazisVxod, AdresBazis, 1)

        Lbuilder.Append(Simvol, 1)

      End Select

    Case Else

      Select Case AdresOblik

      Case 0

        'Если символ отсутствует в алфавите, то копируется в результат без изменения

        If L0 <> Nothing Then Simvol = L0: Lbuilder.Append(Simvol, 1)

      Case Else

        Ich2 = Ich2 + 1

        Select Case LocalBB

        Case 0

          J1 = Ich0 Mod DlinaChaos

        Case 1

          J1 = Ich1 Mod DlinaChaos

        Case 2

          J1 = Ich2 Mod DlinaChaos

        Case Else

        End Select

        AdresChaos = ChaosVxod(J1)

        AdresBazis = AdresOblik - AdresChaos

        If AdresBazis < 1 Then AdresBazis = AdresBazis + DlinaBazis

        Simvol = Mid(BazisVxod, AdresBazis, 1)

        Lbuilder.Append(Simvol, 1)

      End Select

    End Select

    'Необязательная часть

    'Ichet = Ichet + 1

    'If Ichet = Progres1 Then 

    '   Ipro = Int(((J0 - NomerVxod1 + 1) / (DlinaNomer)) * DlinaProgres): Ichet = 0

    '   ProgressBar1.Value = Ipro

    '   ProgressBar1.Refresh

    '   Form7.PausaSecond7 

    'End If

  Next J0

  'ProgressBar1.Value = 0

Case 1    'Зашифровать

  For J0 = NomerVxod1 To NomerVxod2

    Ich0 = Ich0 + 1

    Ich1 = Ich1 + 1

    L0 = Mid(textIsxod, J0, 1)

    AdresBazis = InStr(BazisVxod, L0)    'Адрес символа в базисе

    Select Case RotorVxod

    Case 0

      Select Case AdresBazis

      Case 0

        'Если символ отсутствует в алфавите, то копируется в результат без изменения

        If L0 <> Nothing Then Simvol = L0: Lbuilder.Append(Simvol, 1)

      Case Else

        Ich2 = Ich2 + 1

        Select Case LocalBB

        Case 0

          J1 = Ich0 Mod DlinaChaos

        Case 1

          J1 = Ich1 Mod DlinaChaos

        Case 2

          J1 = Ich2 Mod DlinaChaos

        Case Else

        End Select

        AdresChaos = ChaosVxod(J1)

        AdresOblik = AdresBazis - AdresChaos

        If AdresOblik < 1 Then AdresOblik = AdresOblik + DlinaBazis

        Simvol = Mid(OblikVxod, AdresOblik, 1)

        Lbuilder.Append(Simvol, 1)



      End Select

    Case Else

      Select Case AdresBazis

      Case 0

        'Если символ отсутствует в алфавите, то копируется в результат без изменения

        If L0 <> Nothing Then Simvol = L0: Lbuilder.Append(Simvol, 1)

      Case Else

        Ich2 = Ich2 + 1

        Select Case LocalBB

        Case 0

          J1 = Ich0 Mod DlinaChaos

        Case 1

          J1 = Ich1 Mod DlinaChaos

        Case 2

          J1 = Ich2 Mod DlinaChaos

        Case Else

        End Select

        AdresChaos = ChaosVxod(J1)

        AdresOblik = AdresBazis + AdresChaos

        If AdresOblik > DlinaBazis Then AdresOblik = AdresOblik - DlinaBazis

        Simvol = Mid(OblikVxod, AdresOblik, 1)

        Lbuilder.Append(Simvol, 1)



      End Select

    End Select

    'Необязательная часть

    'Ichet = Ichet + 1

    'If Ichet = Progres1 Then 

    '   Ipro = Int(((J0 - NomerVxod1 + 1) / (DlinaNomer)) * DlinaProgres): Ichet = 0

    '   ProgressBar1.Value = Ipro

    '   ProgressBar1.Refresh

    '   Form7.PausaSecond7

    'End If

  Next J0

  'ProgressBar1.Value = 0

Case Else

End Select

'Копирование не шифруемой конечной части текста без изменения

For J0 = NomerVxod2 + 1 to DlinaIsxod

  Simvol = Mid(textIsxod, J0, 1)

  Lbuilder.Append(Simvol, 1)

Next

textRez = Lbuilder.ToString

End Sub

Обратите внимание на следующее: зашифровать можно только необходимые вам символы, которые Вы должны включить в алфавиты. По внешнему виду зашифрованного текста невозможно определить какие символы были зашифрованы, а какие нет. Соответственно, взлом невозможен. Очень удобно использовать для шифрования, например, англо-русского словаря. Если в алфавиты включите английские буквы, то зашифрован будет только английский текст словаря. Если в алфавиты включите русские буквы, то зашифрован будет только русский текст словаря. Если в алфавиты не включите знаки препинания (точку, запятую, пробел и т.п.), то структура зашифрованного текста будет совпадать со структурой исходного текста.