Материал: Алгоритм шифрования DES, Triple DES
• Алгоритмы, основанные на сложных математических преобразованиях исходного текста по некоторой формуле. Многие из них используют нерешенные математические задачи. Например, широко используемый в Интернете алгоритм шифрования RSA основан на свойствах простых чисел.
• Комбинированные методы. Последовательное шифрование
исходного текста с помощью двух и более методов.
1.4 Комбинированные методы шифрования
Одним из важнейших требований, предъявляемых к системе шифрования, является ее высокая стойкость. Однако повышение стойкости любого метода шифрования приводит, как правило, к существенному усложнению самого процесса шифрования и увеличению затрат ресурсов (времени, аппаратных средств, уменьшению пропускной способности и т.п.).
Достаточно эффективным средством повышения стойкости шифрования является комбинированное использование нескольких различных способов шифрования, т.е. последовательное шифрование исходного текста с помощью двух или более методов.
Как показали исследования, стойкость комбинированного шифрования не ниже произведения стойкостей используемых способов.
Вообще говоря, комбинировать можно любые методы шифрования и
в любом количестве, однако на практике наибольшее распространение получили
следующие комбинации:
1) подстановка + гаммирование;
2) перестановка + гаммирование;
) гаммирование + гаммирование;
) паодстановка + перестановка;
Типичным примером комбинированного шифра является
национальный стандарт США криптографического закрытия данных (DES).
2. Алгоритм DES
Стандарт шифрования данных DES опубликован в 1977 г. Национальным бюро стандартом США.
Стандарт DES предназначен для защиты от несанкционированного доступа к важной, но несекретной информации в государственных и коммерческих организациях США. Алгоритм, положенный в основу стандарта, распространялся достаточно быстро, и уже в 1980 г. Был одобрен Национальным институтом стандартов и технологий США. С этого момента DES превращается в стандарт не только по названию, но и фактически. Появляются программное обеспечение и специализированные микроЭВМ, предназначенные для шифрования и расшифрования информации в сетях передачи данных.
К настоящему времени DES является наиболее распространенным алгоритмом, используемым в системах защиты коммерческой информации. Более того, реализация алгоритма DES в таких системах становится признаком хорошего тона.
Основные достоинства алгоритма DES:
· используется только один ключ длиной 56 битов;
· зашифровав сообщение с помощью одного пакета, для расшифровки вы можете использовать любой другой;
· относительная простота алгоритма обеспечивает высокую скорость обработки информации;
· достаточно высокая стойкость алгоритма.
DES осуществляет шифрование 64-битовых блоков данных с помощью 56-битового ключа. Расшифрование в DES является операцией обратной шифрованию и выполняется путем повторения операций шифрования в обратной последовательности (несмотря на кажущуюся очевидность, так делается далеко не всегда. Позже мы рассмотрим шифры, в которых шифрование и расшифрование осуществляются по разным алгоритмам).
Процесс шифрования заключается в начальной перестановке битов
64-битового блока, шестнадцати циклах шифрования и, наконец, обратной
перестановки битов (рис. 1).
Рис. 1
Необходимо сразу же отметить, что ВСЕ таблицы, приведенные в
данной статье, являются СТАНДАРТНЫМИ, а следовательно должны включаться в вашу
реализацию алгоритма в неизменном виде. Все перестановки и коды в таблицах
подобраны разработчиками таким образом, чтобы максимально затруднить процесс
расшифровки путем подбора ключа. Структура алгоритма DES приведена на рис. 2.
Рис. 2. Структура алгоритма шифрования DES
Пусть из файла считан очередной 8-байтовый блок T, который преобразуется с помощью матрицы начальной перестановки IP (табл. 1) следующим образом: бит 58 блока T становится битом 1, бит 50 - битом 2 и т.д., что даст в результате: T(0) = IP(T).
Полученная последовательность битов T(0) разделяется на две
последовательности по 32 бита каждая: L(0) - левые или старшие биты, R(0) -
правые или младшие биты.
Таблица 1: Матрица начальной перестановки IP
50 42 34 26 18 10 02
52 44 36 28 20 12 04
54 46 38 30 22 14 06
56 48 40 32 24 16 08
49 41 33 25 17 09 01
51 43 35 27 19 11 03
53 45 37 29 21 13 05
55 47 39 31 23 15 07
Затем выполняется шифрование, состоящее из 16 итераций.
Результат i-й итерации описывается следующими формулами:
L(i) = R (i-1)(i) = L (i-1) xor f (R(i-1), K(i)),
где xor - операция ИСКЛЮЧАЮЩЕЕ ИЛИ.
Функция f называется функцией шифрования. Ее аргументы - это 32-битовая последовательность R (i-1), полученная на (i-1) - ой итерации, и 48-битовый ключ K(i), который является результатом преобразования 64-битового ключа K. Подробно функция шифрования и алгоритм получения ключей К(i) описаны ниже.
На 16-й итерации получают последовательности R(16) и L(16) (без перестановки), которые конкатенируют в 64-битовую последовательность R(16) L(16).
Затем позиции битов этой последовательности переставляют в
соответствии с матрицей IP-1 (табл. 2).
Таблица 2: Матрица обратной перестановки IP-1
40 08 48 16 56 24 64 32
07 47 15 55 23 63 31
06 46 14 54 22 62 30
05 45 13 53 21 61 29
04 44 12 52 20 60 28
03 43 11 51 19 59 27
02 42 10 50 18 58 26
01 41 09 49 17 57 25
Матрицы IP-1 и IP соотносятся следующим образом: значение 1-го элемента матрицы IP-1 равно 40, а значение 40-го элемента матрицы IP равно 1, значение 2-го элемента матрицы IP-1 равно 8, а значение 8-го элемента матрицы IP равно 2 и т.д.
Процесс расшифрования данных является инверсным по отношению к процессу шифрования. Все действия должны быть выполнены в обратном порядке. Это означает, что расшифровываемые данные сначала переставляются в соответствии с матрицей IP-1, а затем над последовательностью бит R(16) L(16) выполняются те же действия, что и в процессе шифрования, но в обратном порядке.
Итеративный процесс расшифрования может быть описан следующими
формулами:
R (i-1) = L(i), i = 1, 2,…, 16;(i-1) = R(i) xor f
(L(i), K(i)), i = 1, 2,…, 16.
На 16-й итерации получают последовательности L(0) и R(0), которые конкатенируют в 64-битовую последовательность L(0) R(0).
Затем позиции битов этой последовательности переставляют в соответствии с матрицей IP. Результат такой перестановки - исходная 64-битовая последовательность.
Рис. 3. Вычисление функции f (R(i-1), K(i))
Для вычисления значения функции f используются следующие функции-матрицы:
Е - расширение 32-битовой последовательности до 48-битовой,, S2,…, S8 - преобразование 6-битового блока в 4-битовый,
Р - перестановка бит в 32-битовой последовательности.
Функция расширения Е определяется табл. 3. В соответствии с
этой таблицей первые 3 бита Е (R(i-1)) - это биты 32, 1 и 2, а последние - 31,
32 и 1.
Таблица 3: Функция расширения E
01 02 03 04 05
05 06 07 08 09
09 10 11 12 13
13 14 15 16 17
17 18 19 20 21
21 22 23 24 25
25 26 27 28 29
29 30 31 32 01
Результат функции Е (R(i-1)) есть 48-битовая
последовательность, которая складывается по модулю 2 (операция xor) с
48-битовым ключом К(i). Получается 48-битовая последовательность, которая
разбивается на восемь 6-битовых блоков B(1) B(2) B(3) B(4) B(5) B(6) B(7) B(8).
То есть:
E (R(i-1)) xor K(i) = B(1) B(2)… B(8).
Функции S1, S2,…, S8 определяются табл. 4.
Таблица 4
К табл. 4. требуются дополнительные пояснения. Пусть на вход функции-матрицы Sj поступает 6-битовый блок B(j) = b1b2b3b4b5b6, тогда двухбитовое число b1b6 указывает номер строки матрицы, а b2b3b4b5 - номер столбца. Результатом Sj (B(j)) будет 4-битовый элемент, расположенный на пересечении указанных строки и столбца.
Например, В(1)=011011. Тогда S1 (В(1)) расположен на пересечении строки 1 и столбца 13. В столбце 13 строки 1 задано значение 5. Значит, S1 (011011)=0101.
Применив операцию выбора к каждому из 6-битовых блоков B(1), B(2),…, B(8), получаем 32-битовую последовательность S1 (B(1)) S2 (B(2)) S3 (B(3))… S8 (B(8)).
Наконец, для получения результата функции шифрования надо
переставить биты этой последовательности. Для этого применяется функция
перестановки P (табл. 5). Во входной последовательности биты перестанавливаются
так, чтобы бит 16 стал битом 1, а бит 7 - битом 2 и т.д.
Таблица 5: Функция перестановки P
07 20 21
12 28 17
15 23 26
18 31 10
08 24 14
27 03 09
13 30 06
11 04 25
Таким образом,
f (R(i-1), K(i)) = P (S1 (B(1)),… S8 (B(8)))
Чтобы завершить описание алгоритма шифрования данных, осталось привести алгоритм получения 48-битовых ключей К(i), i=1…16. На каждой итерации используется новое значение ключа K(i), которое вычисляется из начального ключа K. K представляет собой 64-битовый блок с восемью битами контроля по четности, расположенными в позициях 8,16,24,32,40,48,56,64.
Для удаления контрольных битов и перестановки остальных
используется функция G первоначальной подготовки ключа (табл. 6).
Таблица 6
Матрица G первоначальной подготовки ключа
49 41 33 25 17 09
58 50 42 34 26 18
02 59 51 43 35 27
11 03 60 52 44 36
55 47 39 31 23 15
62 54 46 38 30 22
06 61 53 45 37 29
13 05 28 20 12 04
Результат преобразования G(K) разбивается на два 28-битовых
блока C(0) и D(0), причем C(0) будет состоять из битов 57, 49,…, 44, 36 ключа
K, а D(0) будет состоять из битов 63, 55,…, 12, 4 ключа K. После определения
C(0) и D(0) рекурсивно определяются C(i) и D(i), i=1…16. Для этого применяют
циклический сдвиг влево на один или два бита в зависимости от номера итерации,
как показано в табл. 7.
Таблица 7. Таблица сдвигов для вычисления ключа
Номер итерации
Сдвиг (бит)
01
1
02
1
03
2
04
2
05
2
06
2
07
2
08
2
09
1
10 11
2
12
2
13
2
14
2
15
2
16
1
Полученное значение вновь «перемешивается» в соответствии с
матрицей H (табл. 8).
Таблица 8: Матрица H завершающей обработки ключа
17 11 24 01 05
28 15 06 21 10
19 12 04 26 08
07 27 20 13 02
52 31 37 47 55
40 51 45 33 48
49 39 56 34 53
42 50 36 29 32
Ключ K(i) будет состоять из битов 14, 17,…, 29, 32
последовательности C(i) D(i). Таким образом:
(i) = H (C(i) D(i))
Блок-схема алгоритма вычисления ключа приведена на рис. 4.
Рис. 4. Блок-схема алгоритма вычисления ключа K(i)
Восстановление исходного текста осуществляется по этому
алгоритму, но вначале вы используете ключ K(15), затем - K(14) и так далее.
Теперь вам должно быть понятно, почему автор настойчиво рекомендует
использовать приведенные матрицы. Если вы начнете самовольничать, вы, должно
быть, получите очень секретный шифр, но вы сами не сможете его потом раскрыть!
2.1 Режимы работы алгоритма DES
Для наиболее полного удовлетворения всем требованиям,
предъявляемым к коммерческим системам шифрования, реализованы несколько режимов
работы алгоритма DES. Наиболее широкое распространение получили режимы:
· электронный шифроблокнот (Electronic
Codebook) - ECB;
· цепочка цифровых блоков (Cipher Block Chaining) - CBC;
· цифровая обратная связь (Cipher Feedback)
- CFB;
· внешняя обратная связь (Output Feedback) -
OFB.
DES-ECB
В этом режиме исходный файл M разбивается на 64-битовые блоки
(по 8 байтов): M = M(1) M(2)… M(n). Каждый из этих блоков кодируется независимо
с использованием одного и того же ключа шифрования (рис. 5). Основное
достоинство этого алгоритма - простота реализации. Недостаток - относительно
слабая устойчивость против квалифицированных криптоаналитиков.
Рис. 5. Работа алгоритма DES в режиме ECB
В частности, не рекомендуется использовать данный режим
работы для шифрования EXE файлов, потому что первый же блок - заголовок файла,
является вполне удачным началом для взлома всего шифра.
В то же время следует признать, что этот режим в силу своей
простой реализации наиболее популярен среди любительских разработок.CBC
В этом режиме исходный файл M также, как и в режиме ECB,
разбивается на 64-битовые блоки: M = M(1) M(2)… M(n). Первый блок M(1)
складывается по модулю 2 с 64-битовым начальным вектором IV, который меняется
ежедневно и держится в секрете. Полученная сумма затем шифруется с
использованием ключа DES, известного и отправителю, и получателю информации.
Полученный 64-битовый блок шифртекста C(1) складывается по модулю 2 со вторым
блоком исходного текста, результат шифруется и получается второй 64-битовый
блок шифртекста C(2) и т.д. Процедура повторяется до тех пор, пока не будут
обработаны все блоки исходного текста (рис. 6).
Рис. 6. Работа алгоритма в режиме CBC
Таким образом для всех i = 1…n блок шифртекста C(i)
определяется следующим образом:
C(i) = DES (M(i) xor C (i-1)),
(0) = IV - начальное значение шифра, равное начальному
вектору.
Расшифрование выполняется следующим образом:
M(i) = C (i-1) xor DES-1 (C(i)),
(0) = IV - начальное значение шифра, равное начальному
вектору.
Прелесть данного режима состоит в том, что он не позволяет
накапливаться ошибкам при передаче. Блок M(i) является функцией только C (i-1)
и C(i). Поэтому ошибка при передаче приведет к потере только двух блоков
исходного текста.
DES-CFB
В этом режиме размер блока может отличаться от 64. Исходный
файл M считывается последовательными t-битовыми блоками (t <= 64): M = M(1)
M(2)… M(n) (остаток дописывается нулями или пробелами).
-битовый сдвиговый регистр (входной блок) вначале содержит
вектор инициализации IV, выравненный по правому краю. Для каждого сеанса
шифрования используется новый IV.
Для всех i = 1…n блок шифртекста C(i) определяется следующим
образом:
(i) = M(i) xor P (i-1),
где P (i-1) - старшие t битов операции DES (С(i-1)), причем
C(0)=IV.
Обновление сдвигового регистра осуществляется путем удаления
его старших t битов и дописывания справа C(i).
Восстановление зашифрованных данных также не представляет
труда: P (i-1) и C(i) вычисляются аналогичным образом и
(i) = C(i) xor P (i-1).
Блок-схема режима CFB приведена на рис. 7.
Рис. 7. Работа алгоритма DES в режиме CFB
OFB
Режим OFB очень похож на режим CFB.
Отличие от режима CFB состоит только в методе обновления
сдвигового регистра. В данном случае это осуществляется путем удаления его
старших t битов и дописывания справа P (i-1) (рис. 8).
Каждому из рассмотренных режимов свойственны свои достоинства
и недостатки, что обусловливает области их применения.
3. Надежность использования DES
Приведем несколько практических рекомендаций, обеспечивающих
безопасность зашифрованных данных. Ключи DES нужно менять довольно
часто, чтобы предотвратить атаки, требующие анализа достаточно большого
количества данных. Если говорить о защите передаваемых данных, то необходимо
найти защищенный способ передачи DES ключа от отправителя к получателю. Обе эти
проблемы решаются с помощью алгоритма RSA или какой-либо другой асимметричной криптосистемы:
для каждого сеанса связи создается новый DES ключ, зашифровывается
общим ключом получателя и в таком виде передается получателю. В таких
обстоятельствах криптосистема RSA выступает как инструмент повышения защищенности DES (или любого другого
секретно-ключевого шифра).
Если использовать DES для шифрования файлов на жестком диске, то часто
менять ключи малореально, так как для этого необходимо расшифровать, а затем
зашифровать все файлы новым ключом. Вместо этого можно создать главный ключ DES, каким будет
зашифрованный список ключей DES, используемых для шифрования файлов; в этом
случае главный ключ можно менять так часто как это нужно. Но так как главный
ключ более привлекателен для атаки чем отдельные DES ключи, то его разумно
шифровать алгоритмом Triple DES.
Заключение
В курсовой работе были рассмотрены несколько различных
методов шифрования. Каждый из рассмотренных методов реализует собственный
способ криптографической защиты информации и имеет собственные достоинства и
недостатки, но их общей важнейшей характеристикой является стойкость. Под этим
понимается минимальный объем зашифрованного текста, статистическим анализом
которого можно вскрыть исходный текст. Таким образом, по стойкости шифра можно
определить предельно допустимый объем информации, зашифрованной при
использовании одного ключа. При выборе криптографического алгоритма для
использования в конкретной разработке его стойкость является одним из
определяющих факторов.
Все современные криптосистемы спроектированы таким образом,
чтобы не было пути вскрыть их более эффективным способом, чем полным перебором
по всему ключевому пространству, т.е. по всем возможным значениям ключа. Ясно,
что стойкость таких шифров определяется размером используемого в них ключа.
Приведу оценки стойкости рассмотренных выше методов
шифрования. Моноалфавитная подстановка является наименее стойким шифром, так
как при ее использовании сохраняются все статистические закономерности
исходного текста. Уже при длине в 20-30 символов указанные закономерности
проявляются в такой степени, что, как правило, позволяет вскрыть исходный
текст. Поэтому такое шифрование считается пригодным только для закрывания
паролей, коротких сигнальных сообщений и отдельных знаков.
Стойкость простой полиалфавитной подстановки (из подобных
систем была рассмотрена подстановка по таблице Вижинера) оценивается значением
20n, где n - число различных
алфавитов используемых для замены. При использовании таблицы Вижинера число
различных алфавитов определяется числом букв в ключевом слове. Усложнение
полиалфавитной подстановки существенно повышает ее стойкость.
Стойкость гаммирования однозначно определяется длинной
периода гаммы. В настоящее время реальным становится использование бесконечной
гаммы, при использовании которой теоретически стойкость зашифрованного текста
также будет бесконечной.
Можно отметить, что для надежного закрытия больших массивов
информации наиболее пригодны гаммирование и усложненные перестановки и
подстановки.
При использовании комбинированных методов шифрования
стойкость шифра равна произведению стойкостей отдельных методов. Поэтому
комбинированное шифрование является наиболее надежным способом
криптографического закрытия. Именно такой метод был положен в основу работы
всех известных в настоящее время шифрующих аппаратов.
Алгоритм DES был утвержден еще долее 20 лет назад, однако за
это время компьютеры сделали немыслимый скачок в скорости вычислений, и сейчас
не так уж трудно сломать этот алгоритм путем полного перебора всех возможных
вариантов ключей (а в DES используется всего 8-байтный), что недавно
казалось совершенно невозможным.
ГОСТ 28147-89 был разработан еще спецслужбами Советского
Союза, и он моложе DES всего на 10 лет; при разработке в него был заложен такой запас
прочности, что данный ГОСТ является актуальным до сих пор.
Рассмотренные значения стойкости шифров являются потенциальными
величинами. Они могут быть реализованы при строгом соблюдении правил
использования криптографических средств защиты. Основными из этих правил
являются: сохранение в тайне ключей, исключения дублирования (т.е. повторное
шифрование одного и того же отрывка текста с использованием тех же ключей) и
достаточно частая смена ключей.
Список использованных источников
1.
Ю.В. Романец, П.А. Тимофеев, В.Ф. Шаньгин Защита информации в компьютерных
системах и сетях: Радио и связь: Москва, 1999. - 328 с.
.
Брюс Шнайер, Прикладная криптография: БХВ-Питер: Санкт-Петербург, 2004. - 718
с.
.
Петров А.А. Компьютерная безопасность. Криптографические методы защиты. ДМК
Москва, 2000 г.
.
«Методы и средства защиты информации» (курс лекций). Авторские права: Беляев А.В.
(http://www.citforum.ru/internet/infsecure/index.shtml)
.
Криптография (http://www.citforum.ru/internet/securities/crypto.shtml)
Приложение
DES;Crt;Label1, Label2, StartC, StartU, All,
Cntr1, Cntr2, VVod;F, Out:text;, Key, Finish: String[8];, So:string;, A,
Control, Control2:char;, u, k2, z, temp:integer;, S2, S3, S4, S5, S6, S7,
S8:array [0.. 3,0..15] of integer;Crypt; // процедура выполняющая зашифрование.// ввод шифруемый текст (8 символов) (Text), исходный ключ(Key).
// Вывод зашифрованная последовательность(Final).,
UseTextIPTemp:array [0..63] of integer;
IPTemp, IP, UseTextIP, UseTextBIN2:array [1..64]
of integer;
UseTextIPTemp:array [0..63] of integer;
W:array [1..8] of integer;
KeyBIN:array [0..63] of integer;:array [1..64] of
integer;:array [1..56] Of Integer;, RforPTemp, RE, REKey:array [1..48] of
integer;, S2, S3, S4, S5, S6, S7, S8:array [0.. 3,0..15] of integer;, R:array
[0.. 17,1..32] of integer;, B2, B3, B4, B5, B6, B7, B8:array [1..6] of
integer;, P:array [1..32] of integer;:array [1.. 8,1..4] of integer;, TempC2,
TempD, TempD2, m1, n1, m2, n2, m3, n3, m4, n4, m5, n5, m6, n6, m7, n7, m8,
n8:integer;, KeyHTemp:array [1..56] of integer;, D:array [0.. 16,1..28] of
integer;:array [1.. 16,1..48] of integer;:array [0..7] of integer;:array [0..7]
of integer;:array [0.. 7,0..7] of integer;, j, m, n, p1, q1, q2, f, Counter,
Val, v, x:integer; PerevodBIN; // процедура переводит десятичные числа
var j, i:integer; // в двоичные
Begin For j:=0 to 7 doP1:=2*Temp[j]; n:=0;i:=0 to
7 don:=n+2; p1:=p1 div 2;(Temp[j]/n)>=0.5 then A[i]:=p1 mod 2 else A[i]:=0;
end;i:=0 to 7 do A2 [j, i]:=A [7-i]; end;;i:=1 to 8 do Temp [i-1]:=Ord
(Text[i]);;:=-1;m:=0 to 7 don:=0 to 7 do Begin i:=i+1; UseTextBIN[i]:=A2 [m,
n]; end;i:=0 to 63 do UseTextBIN2 [i+1]:=UseTextBIN[i]; {IP}:=58; // перестановка IPi:=0 to 7
doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8; end;:=60;i:=8 to
15 doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8;
end;:=62;i:=16 to 23 doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8;
end;:=64;i:=24 to 31 doUseTextIPTemp[i]:=UseTextBIN2 [Counter];
Counter:=Counter-8; end;:=57;i:=32 to 39 doUseTextIPTemp[i]:=UseTextBIN2
[Counter]; Counter:=Counter-8; end;:=59;i:=40 to 47
doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8; end;:=61;i:=48
to 55 doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8;
end;:=63;i:=56 to 63 doUseTextIPTemp[i]:=UseTextBIN2 [Counter];
Counter:=Counter-8; end;i:=1 to 64 do UseTextIP[i]:=UseTextIPTemp [i-1];i:=3 to
10 do Temp [i-3]:=Ord (Key[i]);;:=-1;m:=0 to 7 don:=0 to 7 do Begin i:=i+1;
KeyBIN[i]:=A2 [m, n]; end;i:=0 to 63 do KeyBIN2 [i+1]:=KeyBIN[i]; // перестановка G[1]:=KeyBin2
[57]; KeyG[2]:=KeyBin2 [49]; KeyG[3]:=KeyBin2 [41];[4]:=KeyBin2 [33];
KeyG[5]:=KeyBin2 [25]; KeyG[6]:=KeyBin2 [17];[7]:=KeyBin2 [9]; KeyG[8]:=KeyBin2
[1]; KeyG[9]:=KeyBin2 [58];[10]:=KeyBin2 [50]; KeyG[11]:=KeyBin2 [42];
KeyG[12]:=KeyBin2 [34];[13]:=KeyBin2 [26]; KeyG[14]:=KeyBin2 [18];
KeyG[15]:=KeyBin2 [10];[16]:=KeyBin2 [2]; KeyG[17]:=KeyBin2 [59]; KeyG[18]:=KeyBin2
[51];[19]:=KeyBin2 [43]; KeyG[20]:=KeyBin2 [35]; KeyG[21]:=KeyBin2
[27];[22]:=KeyBin2 [19]; KeyG[23]:=KeyBin2 [11]; KeyG[24]:=KeyBin2
[3];[25]:=KeyBin2 [60]; KeyG[26]:=KeyBin2 [52]; KeyG[27]:=KeyBin2
[44];[28]:=KeyBin2 [36]; KeyG[29]:=KeyBin2 [63]; KeyG[30]:=UseKeyBin2
[55];[31]:=KeyBin2 [47]; KeyG[32]:=KeyBin2 [39]; KeyG[33]:=KeyBin2
[31];[34]:=KeyBin2 [23]; KeyG[35]:=KeyBin2 [15]; KeyG[36]:=KeyBin2
[7];[37]:=KeyBin2 [62]; KeyG[38]:=KeyBin2 [54]; KeyG[39]:=KeyBin2
[46];[40]:=KeyBin2 [38]; KeyG[41]:=KeyBin2 [30]; KeyG[42]:=KeyBin2
[22];[43]:=KeyBin2 [14]; KeyG[44]:=KeyBin2 [6]; KeyG[45]:=KeyBin2
[61];[46]:=KeyBin2 [53]; KeyG[47]:=KeyBin2 [45]; KeyG[48]:=KeyBin2
[37];[49]:=KeyBin2 [29]; KeyG[50]:=KeyBin2 [21]; KeyG[51]:=KeyBin2 [13];[52]:=KeyBin2
[5]; KeyG[53]:=KeyBin2 [28]; KeyG[54]:=KeyBin2 [20];[55]:=KeyBin2 [12];
KeyG[56]:=KeyBin2 [4];i:=1 to 28 do begin C [0, i]:=KeyG[i]; D [0, i]:=KeyG
[i+28]; end; i:=1
to 16 do // цикл для вычисления
ключей и сохранения их в массив K
Begin Case i of // цикл выполняющий сдвиг
влево C и D
1,2,9,16:begin:=C [i - 1,1]; TempD:=D [i -
1,1];m:=1 to 27 doC [i, m]:=C [i-1, m+1]; D [i, m]:=D [i-1, m+1]; end;[i,
28]:=TempC; D [i, 28]:=TempD; end;
,4,5,6,7,8,10,11,12,13,14,15:begin:=C [i - 1,1];
TempD:=D [i - 1,1];:=C [i - 1,2]; TempD2:=D [i - 1,2];m:=1 to 26 doC [i, m]:=C
[i-1, m+2]; D [i, m]:=D [i-1, m+2]; end;[i, 27]:=TempC; D [i, 27]:=TempD;[i,
28]:=TempC2; D [i, 28]:=TempD2;; end;j:=1 to 28 do KeyHTemp[j]:=C [i, j];j:=1
to 28 do KeyHTemp [j+28]:=D [i, j]; [i, 1]:=KeyHtemp[14]; K [i, 2]:=KeyHtemp[17]; K [i, 3]:=KeyHtemp[11]; // перестановка H для определения
используемых ключей
K [i, 4]:=KeyHtemp[24]; K [i, 5]:=KeyHtemp[1]; K
[i, 6]:=KeyHtemp[5]; K [i, 7]:=KeyHtemp[3]; K [i,
8]:=KeyHtemp[28]; K [i, 9]:=KeyHtemp[15];[i, 10]:=KeyHtemp[6]; K [i,
11]:=KeyHtemp[21]; K [i, 12]:=KeyHtemp[10];[i, 13]:=KeyHtemp[23]; K [i,
14]:=KeyHtemp[19]; K [i, 15]:=KeyHtemp[12];[i, 16]:=KeyHtemp[4]; K [i,
17]:=KeyHtemp[26]; K [i, 18]:=KeyHtemp[8];[i, 19]:=KeyHtemp[16]; K [i, 20]:=KeyHtemp[7];
K [i, 21]:=KeyHtemp[27];[i, 22]:=KeyHtemp[20]; K [i, 23]:=KeyHtemp[13]; K [i,
24]:=KeyHtemp[2];[i, 25]:=KeyHtemp[41]; K [i, 26]:=KeyHtemp[52]; K [i,
27]:=KeyHtemp[31];[i, 28]:=KeyHtemp[37]; K [i, 29]:=KeyHtemp[47]; K [i,
30]:=KeyHtemp[55];[i, 31]:=KeyHtemp[30]; K [i, 32]:=KeyHtemp[40]; K [i,
33]:=KeyHtemp[51];[i, 34]:=KeyHtemp[45]; K [i, 35]:=KeyHtemp[33]; K [i,
36]:=KeyHtemp[48];[i, 37]:=KeyHtemp[44]; K [i, 38]:=KeyHtemp[49]; K [i,
39]:=KeyHtemp[39];[i, 40]:=KeyHtemp[56]; K [i, 41]:=KeyHtemp[34]; K [i,
42]:=KeyHtemp[53];[i, 43]:=KeyHtemp[46]; K [i, 44]:=KeyHtemp[42]; K [i,
45]:=KeyHtemp[50];[i, 46]:=KeyHtemp[36]; K [i, 47]:=KeyHtemp[29]; K [i,
48]:=KeyHtemp[32]; end;i:=1 to 32 do L [0, i]:=UseTextIP[i];i:=1 to 32 do R [0,
i]:=UseTextIP [i+32]; j:=1 to 16 do Begin // цикл выполняющий
шифрование восьми символов // исходного текста после перестановки IP
RE[1]:=R [j - 1,32]; RE[2]:=R [j - 1,1]; RE[3]:=R [j - 1,2]; RE[4]:=R [j - 1,3]; // функция E
RE[5]:=R [j - 1,4]; RE[6]:=R [j - 1,5]; RE[7]:=R
[j - 1,4]; RE[8]:=R [j - 1,5];[9]:=R [j - 1,6]; RE[10]:=R [j - 1,7]; RE[11]:=R
[j - 1,8]; RE[12]:=R [j - 1,9];[13]:=R [j - 1,8]; RE[14]:=R [j - 1,9];
RE[15]:=R [j - 1,10]; RE[16]:=R [j - 1,11];[17]:=R [j - 1,12]; RE[18]:=R [j -
1,13]; RE[19]:=R [j - 1,12]; RE[20]:=R [j - 1,13];[21]:=R [j - 1,14]; RE[22]:=R
[j - 1,15]; RE[23]:=R [j - 1,16]; RE[24]:=R [j - 1,17];[25]:=R [j - 1,16];
RE[26]:=R [j - 1,17]; RE[27]:=R [j - 1,18]; RE[28]:=R [j - 1,19];[29]:=R [j - 1,20];
RE[30]:=R [j - 1,21]; RE[31]:=R [j - 1,20]; RE[32]:=R [j - 1,21];[33]:=R [j -
1,22]; RE[34]:=R [j - 1,23]; RE[35]:=R [j - 1,24]; RE[36]:=R [j - 1,25];[37]:=R
[j - 1,24]; RE[38]:=R [j - 1,25]; RE[39]:=R [j - 1,26]; RE[40]:=R [j -
1,27];[41]:=R [j - 1,28]; RE[42]:=R [j - 1,29]; RE[43]:=R [j - 1,28]; RE[44]:=R
[j - 1,29];[45]:=R [j - 1,30]; RE[46]:=R [j - 1,31]; RE[47]:=R [j - 1,32];
RE[48]:=R [j - 1,1];i:=1 to 48 do REKey[i]:=(RE[i]+K [j, i]) mod 2; // сложение по модулю 2 Ri-1 и Kii:=1 to 6 do
B1 [i]:=REKey[i];
// преобразование 48-ми битной последовательности
в 32-х битовую
For i:=1 to 6 do B2 [i]:=Rekey [i+6]; i:=1
to 6 do B3 [i]:=Rekey [i+12];i:=1 to 6 do B4 [i]:=Rekey [i+18];i:=1 to 6 do B5
[i]:=Rekey [i+24];i:=1 to 6 do B6 [i]:=Rekey [i+30];i:=1 to 6 do B7 [i]:=Rekey
[i+36];i:=1 to 6 do B8 [i]:=Rekey [i+42];:=B1 [1]*2+B1 [6]; n1:=B1 [2]*8+B1
[3]*4+B1 [4]*2+B1 [5];:=B2 [1]*2+B2 [6]; n2:=B2 [2]*8+B2 [3]*4+B2 [4]*2+B2
[5];:=B3 [1]*2+B3 [6]; n3:=B3 [2]*8+B3 [3]*4+B3 [4]*2+B3 [5];:=B4 [1]*2+B4 [6];
n4:=B4 [2]*8+B4 [3]*4+B4 [4]*2+B4 [5];:=B5 [1]*2+B5 [6]; n5:=B5 [2]*8+B5
[3]*4+B5 [4]*2+B5 [5];:=B6 [1]*2+B6 [6]; n6:=B6 [2]*8+B6 [3]*4+B6 [4]*2+B6
[5];:=B7 [1]*2+B7 [6]; n7:=B7 [2]*8+B7 [3]*4+B7 [4]*2+B7 [5];:=B8 [1]*2+B8 [6];
n8:=B8 [2]*8+B8 [3]*4+B8 [4]*2+B8 [5];[1]:=S1 [m1, n1]; RforP[2]:=S2 [m2, n2];
RforP[3]:=S3 [m3, n3]; // преобразование S
RforP[4]:=S4 [m4, n4]; RforP[5]:=S5 [m5, n5];
RforP[6]:=S6 [m6, n6];[7]:=S7 [m7, n7]; RforP[8]:=S8 [m8, n8];:=0; // перевод
десятичных значений S в двоичные
For Val:=1 to 8 do :=0;
P1:=2*RforP[Val];i:=1 to 4 don:=n+2; P1:=P1 div 2;(RforP[Val]/n)>=0.5 Then
PTemp [Val, i]:=P1 mod 2Ptemp [Val, i]:=0; end;i:=1 to 4 doCounter:=Counter+1;
P[Counter]:=Ptemp [Val, 5-i]; end;;[1]:=P[16]; RW[2]:=P[7]; RW[3]:=P[20];
RW[4]:=P[21]; RW[5]:=P[29]; // значение функции F (Ri-1, Ki)
RW[6]:=P[12]; RW[7]:=P[28]; RW[8]:=P[17];
RW[9]:=P[1]; RW[10]:=P[15];[11]:=P[23]; RW[12]:=P[26]; RW[13]:=P[5];
RW[14]:=P[18]; RW[15]:=P[31];[16]:=P[10]; RW[17]:=P[2]; RW[18]:=P[8];
RW[19]:=P[24]; RW[20]:=P[14];[21]:=P[32]; RW[22]:=P[27]; RW[23]:=P[3];
RW[24]:=P[9]; RW[25]:=P[19];[26]:=P[13]; RW[27]:=P[30]; RW[28]:=P[6];
RW[29]:=P[22]; RW[30]:=P[11];[31]:=P[4]; RW[32]:=P[25];i:=1 to 32 do L [j,
i]:=R [j-1, i]; i:=1 to 32
do R [j, i]:=(L [j-1, i]+RW[i]) mod 2; // сложение по модулю 2 Li-1 и F (Ri-1, Ki);i:=1 to 32 do
IPTemp[i]:=L [16, i];i:=1 to 32 do IPTemp [i+32]:=R [16, i];[1]:=IPTemp[40];
IP[2]:=IPTemp[8]; IP[3]:=IPTemp[48]; IP[4]:=IPTemp[16]; // конечная перестановка[5]:=IPTemp[56];
IP[6]:=IPTemp[24]; IP[7]:=IPTemp[64]; IP[8]:=IPTemp[32];[9]:=IPTemp[39];
IP[10]:=IPTemp[7]; IP[11]:=IPTemp[47]; IP[12]:=IPTemp[15];[13]:=IPTemp[55];
IP[14]:=IPTemp[23]; IP[15]:=IPTemp[63]; IP[16]:=IPTemp[31];[17]:=IPTemp[38];
IP[18]:=IPTemp[6]; IP[19]:=IPTemp[46]; IP[20]:=IPTemp[14];[21]:=IPTemp[54];
IP[22]:=IPTemp[22]; IP[23]:=IPTemp[62]; IP[24]:=IPTemp[30];[25]:=IPTemp[37];
IP[26]:=IPTemp[5]; IP[27]:=IPTemp[45]; IP[28]:=IPTemp[13];[29]:=IPTemp[53];
IP[30]:=IPTemp[21]; IP[31]:=IPTemp[61]; IP[32]:=IPTemp[29];[33]:=IPTemp[36];
IP[34]:=IPTemp[4]; IP[35]:=IPTemp[44]; IP[36]:=IPTemp[12];[37]:=IPTemp[52];
IP[38]:=IPTemp[20]; IP[39]:=IPTemp[60]; IP[40]:=IPTemp[28];[41]:=IPTemp[35];
IP[42]:=IPTemp[3]; IP[43]:=IPTemp[43]; IP[44]:=IPTemp[11];[45]:=IPTemp[51];
IP[46]:=IPTemp[19]; IP[47]:=IPTemp[59]; IP[48]:=IPTemp[27];[49]:=IPTemp[34];
IP[50]:=IPTemp[2]; IP[51]:=IPTemp[42]; IP[52]:=IPTemp[10];[53]:=IPTemp[50];
IP[54]:=IPTemp[18]; IP[55]:=IPTemp[58]; IP[56]:=IPTemp[26];[57]:=IPTemp[33];
IP[58]:=IPTemp[1]; IP[59]:=IPTemp[41]; IP[60]:=IPTemp[9];[61]:=IPTemp[49];
IP[62]:=IPTemp[17]; IP[63]:=IPTemp[57];
IP[64]:=IPTemp[25];[1]:=IP[1]*128+IP[2]*64+IP[3]*32+IP[4]*16+IP[5]*8+IP[6]*4+IP[7]*2+IP[8];[2]:=IP[9]*128+IP[10]*64+IP[11]*32+IP[12]*16+IP[13]*8+IP[14]*4+IP[15]*2+IP[16];[3]:=IP[17]*128+IP[18]*64+IP[19]*32+IP[20]*16+IP[21]*8+IP[22]*4+IP[23]*2+IP[24];[4]:=IP[25]*128+IP[26]*64+IP[27]*32+IP[28]*16+IP[29]*8+IP[30]*4+IP[31]*2+IP[32];[5]:=IP[33]*128+IP[34]*64+IP[35]*32+IP[36]*16+IP[37]*8+IP[38]*4+IP[39]*2+IP[40];[6]:=IP[41]*128+IP[42]*64+IP[43]*32+IP[44]*16+IP[45]*8+IP[46]*4+IP[47]*2+IP[48];[7]:=IP[49]*128+IP[50]*64+IP[51]*32+IP[52]*16+IP[53]*8+IP[54]*4+IP[55]*2+IP[56];[8]:=IP[57]*128+IP[58]*64+IP[59]*32+IP[60]*16+IP[61]*8+IP[62]*4+IP[63]*2+IP[64];i:=1
to 8 do Finish[i]:=Chr (W[i]); // выходная последовательность;
Procedure UnCrypt; // процедура
выполняющая расшифрование.
Var // ввод расшифровываемый текст (8 символов) (Text), исходный ключ(Key).
// Вывод расшифрованная последовательность(Final).
UseTextBIN, UseTextIPTemp, UseTextIP:array [0..63] of integer;
UseTextBIN2, IPTemp, IP:array [1..64] of
integer;:array [1..8] of integer;:array [0..63] of integer;:array [1..64] of
integer;:array [1..56] Of Integer;, REKey, RforP, RforPTemp:array [1..48] of
integer;, TempC2, TempD, TempD2:integer;, R:array [0.. 17,1..32] of integer;,
B2, B3, B4, B5, B6, B7, B8:array [1..6] of integer;, P:array [1..32] of
integer;:array [1.. 8,1..4] of integer;, TempC2, TempD, TempD2, m1, n1, m2, n2,
m3, n3, m4, n4, m5, n5, m6, n6, m7, n7, m8, n8:integer;, KeyHTemp:array [1..56]
of integer;, D:array [0.. 16,1..28] of integer;:array [1.. 16,1..48] of
integer;:array [0..7] of integer;:array [0..7] of integer;:array [0.. 7,0..7]
of integer;, j, m, n, p1, Counter, Val, v, x, q1, q2, f:integer; PerevodBIN; // процедура переводит
десятичные числа
var j, i:integer; // в двоичные
Beginj:=0 to 7 doP1:=2*Temp[j]; n:=0;i:=0 to 7
don:=n+2; p1:=p1 div 2;(Temp[j]/n)>=0.5 then A[i]:=p1 mod 2 else A[i]:=0;
end;i:=0 to 7 do A2 [j, i]:=A [7-i]; end;;i:=1 to 8 do Temp [i-1]:=Ord (Text[i]);;:=-1;m:=0
to 7 don:=0 to 7 doi:=i+1; UseTextBIN[i]:=A2 [m, n]; end;i:=0 to 63 do
UseTextBIN2 [i+1]:=UseTextBIN[i];:=58; // перестановка IPi:=0 to 7
doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8; end;:=60;i:=8 to
15 doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8;
end;:=62;i:=16 to 23 doUseTextIPTemp[i]:=UseTextBIN2 [Counter];
Counter:=Counter-8; end;:=64;i:=24 to 31 doUseTextIPTemp[i]:=UseTextBIN2
[Counter]; Counter:=Counter-8; end;:=57;i:=32 to 39 doUseTextIPTemp[i]:=UseTextBIN2
[Counter]; Counter:=Counter-8; end;:=59;i:=40 to 47
doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8; end;:=61;i:=48
to 55 doUseTextIPTemp[i]:=UseTextBIN2 [Counter]; Counter:=Counter-8;
end;:=63;i:=56 to 63 doUseTextIPTemp[i]:=UseTextBIN2 [Counter];
Counter:=Counter-8; end;i:=1 to 64 do UseTextIP[i]:=UseTextIPTemp [i-1];i:=3 to
10 do Temp [i-3]:=Ord (Key[i]);;:=-1;m:=0 to 7 don:=0 to 7 do Begin i:=i+1;
KeyBIN[i]:=A2 [m, n]; end;i:=0 to 63 do KeyBIN2 [i+1]:=KeyBIN[i]; // перестановка G[1]:=KeyBin2
[57]; KeyG[2]:=KeyBin2 [49]; KeyG[3]:=KeyBin2 [41];[4]:=KeyBin2 [33];
KeyG[5]:=KeyBin2 [25]; KeyG[6]:=KeyBin2 [17];[7]:=KeyBin2 [9]; KeyG[8]:=KeyBin2
[1]; KeyG[9]:=KeyBin2 [58];[10]:=KeyBin2 [50]; KeyG[11]:=KeyBin2 [42];
KeyG[12]:=KeyBin2 [34];[13]:=KeyBin2 [26]; KeyG[14]:=KeyBin2 [18];
KeyG[15]:=KeyBin2 [10];[16]:=KeyBin2 [2]; KeyG[17]:=KeyBin2 [59];
KeyG[18]:=KeyBin2 [51];[19]:=KeyBin2 [43]; KeyG[20]:=KeyBin2 [35];
KeyG[21]:=KeyBin2 [27];[22]:=KeyBin2 [19]; KeyG[23]:=KeyBin2 [11]; KeyG[24]:=KeyBin2
[3];[25]:=KeyBin2 [60]; KeyG[26]:=KeyBin2 [52]; KeyG[27]:=KeyBin2
[44];[28]:=KeyBin2 [36]; KeyG[29]:=KeyBin2 [63]; KeyG[30]:=KeyBin2
[55];[31]:=KeyBin2 [47]; KeyG[32]:=KeyBin2 [39]; KeyG[33]:=KeyBin2
[31];[34]:=KeyBin2 [23]; KeyG[35]:=KeyBin2 [15]; KeyG[36]:=KeyBin2
[7];[37]:=KeyBin2 [62]; KeyG[38]:=KeyBin2 [54]; KeyG[39]:=KeyBin2
[46];[40]:=KeyBin2 [38]; KeyG[41]:=KeyBin2 [30]; KeyG[42]:=KeyBin2
[22];[43]:=KeyBin2 [14]; KeyG[44]:=KeyBin2 [6]; KeyG[45]:=KeyBin2
[61];[46]:=KeyBin2 [53]; KeyG[47]:=KeyBin2 [45]; KeyG[48]:=KeyBin2
[37];[49]:=KeyBin2 [29]; KeyG[50]:=KeyBin2 [21]; KeyG[51]:=KeyBin2
[13];[52]:=KeyBin2 [5]; KeyG[53]:=KeyBin2 [28]; KeyG[54]:=KeyBin2
[20];[55]:=KeyBin2 [12]; KeyG[56]:=KeyBin2 [4];i:=1 to 28 do begin C [0,
i]:=KeyG[i]; D [0, i]:=KeyG [i+28]; end; i:=1 to 16 do // цикл для вычисления
ключей и сохранения их в массив K
Begin
Case i of // цикл выполняющий сдвиг
влево C и D
1,2,9,16:begin TempC:=C [i - 1,1]; TempD:=D [i -
1,1];m:=1 to 27 doC [i, m]:=C [i-1, m+1]; D [i, m]:=D [i-1, m+1]; end;[i,
28]:=TempC; D [i, 28]:=TempD; end;
,4,5,6,7,
,10,11,12,
,14,15:begin:=C [i - 1,1]; TempD:=D [i - 1,1];
TempC2:=C [i - 1,2]; TempD2:=D [i - 1,2];m:=1 to 26 doC [i, m]:=C [i-1, m+2]; D
[i, m]:=D [i-1, m+2]; end;[i, 27]:=TempC; D [i, 27]:=TempD; C [i, 28]:=TempC2;
D [i, 28]:=TempD2; end;; {Case}j:=1 to 28 do KeyHTemp[j]:=C [i, j];j:=1 to 28
do KeyHTemp [j+28]:=D [i, j]; [i, 1]:=KeyHtemp[14]; K [i, 2]:=KeyHtemp[17]; K [i, 3]:=KeyHtemp[11]; // перестановка H для определения
используемых ключей
K [i, 4]:=KeyHtemp[24]; K [i, 5]:=KeyHtemp[1]; K
[i, 6]:=KeyHtemp[5]; K [i, 7]:=KeyHtemp[3]; K [i, 8]:=KeyHtemp[28]; K
[i, 9]:=KeyHtemp[15];[i, 10]:=KeyHtemp[6]; K [i, 11]:=KeyHtemp[21]; K [i,
12]:=KeyHtemp[10];[i, 13]:=KeyHtemp[23]; K [i, 14]:=KeyHtemp[19]; K [i, 15]:=KeyHtemp[12];[i,
16]:=KeyHtemp[4]; K [i, 17]:=KeyHtemp[26]; K [i, 18]:=KeyHtemp[8];[i,
19]:=KeyHtemp[16]; K [i, 20]:=KeyHtemp[7]; K [i, 21]:=KeyHtemp[27];[i,
22]:=KeyHtemp[20]; K [i, 23]:=KeyHtemp[13]; K [i, 24]:=KeyHtemp[2];[i,
25]:=KeyHtemp[41]; K [i, 26]:=KeyHtemp[52]; K [i, 27]:=KeyHtemp[31];[i,
28]:=KeyHtemp[37]; K [i, 29]:=KeyHtemp[47]; K [i, 30]:=KeyHtemp[55];[i,
31]:=KeyHtemp[30]; K [i, 32]:=KeyHtemp[40]; K [i, 33]:=KeyHtemp[51];[i,
34]:=KeyHtemp[45]; K [i, 35]:=KeyHtemp[33]; K [i, 36]:=KeyHtemp[48];[i,
37]:=KeyHtemp[44]; K [i, 38]:=KeyHtemp[49]; K [i, 39]:=KeyHtemp[39];[i,
40]:=KeyHtemp[56]; K [i, 41]:=KeyHtemp[34]; K [i, 42]:=KeyHtemp[53];[i,
43]:=KeyHtemp[46]; K [i, 44]:=KeyHtemp[42]; K [i, 45]:=KeyHtemp[50];[i,
46]:=KeyHtemp[36]; K [i, 47]:=KeyHtemp[29]; K [i, 48]:=KeyHtemp[32];;i:=1 to 32
do R [0, i]:=UseTextIP[i];i:=1 to 32 do L [0, i]:=UseTextIP [i+32]; j:=1 to 16 do // цикл выполняющий
шифрование восьми символов
// исходного текста после перестановки IP
Begin
RE[1]:=R [j - 1,32]; RE[2]:=R [j - 1,1]; RE[3]:=R [j - 1,2]; RE[4]:=R [j - 1,3]; // функция E
RE[5]:=R [j - 1,4]; RE[6]:=R [j - 1,5]; RE[7]:=R
[j - 1,4]; RE[8]:=R [j - 1,5];[9]:=R [j - 1,6]; RE[10]:=R [j - 1,7]; RE[11]:=R
[j - 1,8]; RE[12]:=R [j - 1,9];[13]:=R [j - 1,8]; RE[14]:=R [j - 1,9];
RE[15]:=R [j - 1,10]; RE[16]:=R [j - 1,11];[17]:=R [j - 1,12]; RE[18]:=R [j -
1,13]; RE[19]:=R [j - 1,12]; RE[20]:=R [j - 1,13];[21]:=R [j - 1,14]; RE[22]:=R
[j - 1,15]; RE[23]:=R [j - 1,16]; RE[24]:=R [j - 1,17];[25]:=R [j - 1,16];
RE[26]:=R [j - 1,17]; RE[27]:=R [j - 1,18]; RE[28]:=R [j - 1,19];[29]:=R [j -
1,20]; RE[30]:=R [j - 1,21]; RE[31]:=R [j - 1,20]; RE[32]:=R [j - 1,21];[33]:=R
[j - 1,22]; RE[34]:=R [j - 1,23]; RE[35]:=R [j - 1,24]; RE[36]:=R [j -
1,25];[37]:=R [j - 1,24]; RE[38]:=R [j - 1,25]; RE[39]:=R [j - 1,26]; RE[40]:=R
[j - 1,27];[41]:=R [j - 1,28]; RE[42]:=R [j - 1,29]; RE[43]:=R [j - 1,28];
RE[44]:=R [j - 1,29];[45]:=R [j - 1,30]; RE[46]:=R [j - 1,31]; RE[47]:=R [j -
1,32]; RE[48]:=R [j - 1,1];i:=1 to 48 do REKey[i]:=(RE[i]+K [17-j, i]) mod 2; //
сложение по модулю 2 Ri-1 и Kii:=1 to 6 do
B1 [i]:=REKey[i]; // преобразование 48-ми битной
For i:=1 to 6 do B2 [i]:=Rekey [i+6]; последовательности в 32-х битовую
For i:=1 to 6 do B3 [i]:=Rekey [i+12];i:=1 to 6
do B4 [i]:=Rekey [i+18];i:=1 to 6 do B5 [i]:=Rekey [i+24];i:=1 to 6 do B6
[i]:=Rekey [i+30];i:=1 to 6 do B7 [i]:=Rekey [i+36];i:=1 to 6 do B8 [i]:=Rekey
[i+42];:=B1 [1]*2+B1 [6]; n1:=B1 [2]*8+B1 [3]*4+B1 [4]*2+B1 [5];:=B2 [1]*2+B2
[6]; n2:=B2 [2]*8+B2 [3]*4+B2 [4]*2+B2 [5];:=B3 [1]*2+B3 [6]; n3:=B3 [2]*8+B3
[3]*4+B3 [4]*2+B3 [5];:=B4 [1]*2+B4 [6]; n4:=B4 [2]*8+B4 [3]*4+B4 [4]*2+B4
[5];:=B5 [1]*2+B5 [6]; n5:=B5 [2]*8+B5 [3]*4+B5 [4]*2+B5 [5];:=B6 [1]*2+B6 [6];
n6:=B6 [2]*8+B6 [3]*4+B6 [4]*2+B6 [5];:=B7 [1]*2+B7 [6]; n7:=B7 [2]*8+B7 [3]*4+B7
[4]*2+B7 [5];:=B8 [1]*2+B8 [6]; n8:=B8 [2]*8+B8 [3]*4+B8 [4]*2+B8 [5];[1]:=S1
[m1, n1]; RforP[2]:=S2 [m2, n2]; RforP[3]:=S3 [m3, n3]; // преобразование S
RforP[4]:=S4 [m4, n4]; RforP[5]:=S5 [m5, n5];
RforP[6]:=S6 [m6, n6];[7]:=S7 [m7, n7]; RforP[8]:=S8 [m8, n8];:=0; // перевод
десятичных значений S в двоичные
For Val:=1 to 8 don:=0; P1:=2*RforP[Val];i:=1 to
4 don:=n+2; P1:=P1 div 2;(RforP[Val]/n)>=0.5 Then PTemp [Val, i]:=P1 mod
2Ptemp [Val, i]:=0; end;i:=1 to 4 doCounter:=Counter+1; P[Counter]:=Ptemp [Val,
5-i]; end;;[1]:=P[16]; RW[2]:=P[7]; RW[3]:=P[20]; RW[4]:=P[21]; RW[5]:=P[29]; //
значение функции F (Ri-1, Ki)
RW[6]:=P[12]; RW[7]:=P[28]; RW[8]:=P[17];
RW[9]:=P[1]; RW[10]:=P[15];[11]:=P[23]; RW[12]:=P[26]; RW[13]:=P[5]; RW[14]:=P[18];
RW[15]:=P[31];[16]:=P[10]; RW[17]:=P[2]; RW[18]:=P[8]; RW[19]:=P[24];
RW[20]:=P[14];[21]:=P[32]; RW[22]:=P[27]; RW[23]:=P[3]; RW[24]:=P[9];
RW[25]:=P[19];[26]:=P[13]; RW[27]:=P[30]; RW[28]:=P[6]; RW[29]:=P[22];
RW[30]:=P[11];[31]:=P[4]; RW[32]:=P[25];i:=1 to 32 do L [j, i]:=R [j-1, i];i:=1
to 32 do R [j, i]:=(L [j-1, i]+RW[i]) mod 2; // сложение по модулю 2 Li-1 и F (Ri-1, Ki);;i:=1 to 32
do IPTemp[i]:=R [16, i];i:=1 to 32 do IPTemp [i+32]:=L [16, i];[1]:=IPTemp[40];
IP[2]:=IPTemp[8]; IP[3]:=IPTemp[48]; IP[4]:=IPTemp[16]; // конечная перестановка[5]:=IPTemp[56];
IP[6]:=IPTemp[24]; IP[7]:=IPTemp[64]; IP[8]:=IPTemp[32];[9]:=IPTemp[39];
IP[10]:=IPTemp[7]; IP[11]:=IPTemp[47]; IP[12]:=IPTemp[15];[13]:=IPTemp[55];
IP[14]:=IPTemp[23]; IP[15]:=IPTemp[63]; IP[16]:=IPTemp[31];[17]:=IPTemp[38];
IP[18]:=IPTemp[6]; IP[19]:=IPTemp[46]; IP[20]:=IPTemp[14];[21]:=IPTemp[54];
IP[22]:=IPTemp[22]; IP[23]:=IPTemp[62]; IP[24]:=IPTemp[30];[25]:=IPTemp[37];
IP[26]:=IPTemp[5]; IP[27]:=IPTemp[45]; IP[28]:=IPTemp[13];[29]:=IPTemp[53];
IP[30]:=IPTemp[21]; IP[31]:=IPTemp[61]; IP[32]:=IPTemp[29];[33]:=IPTemp[36];
IP[34]:=IPTemp[4]; IP[35]:=IPTemp[44]; IP[36]:=IPTemp[12];[37]:=IPTemp[52];
IP[38]:=IPTemp[20]; IP[39]:=IPTemp[60]; IP[40]:=IPTemp[28];[41]:=IPTemp[35];
IP[42]:=IPTemp[3]; IP[43]:=IPTemp[43]; IP[44]:=IPTemp[11];[45]:=IPTemp[51];
IP[46]:=IPTemp[19]; IP[47]:=IPTemp[59]; IP[48]:=IPTemp[27];[49]:=IPTemp[34];
IP[50]:=IPTemp[2]; IP[51]:=IPTemp[42]; IP[52]:=IPTemp[10];[53]:=IPTemp[50];
IP[54]:=IPTemp[18]; IP[55]:=IPTemp[58]; IP[56]:=IPTemp[26];[57]:=IPTemp[33];
IP[58]:=IPTemp[1]; IP[59]:=IPTemp[41]; IP[60]:=IPTemp[9];[61]:=IPTemp[49];
IP[62]:=IPTemp[17]; IP[63]:=IPTemp[57];
IP[64]:=IPTemp[25];[1]:=IP[1]*128+IP[2]*64+IP[3]*32+IP[4]*16+IP[5]*8+IP[6]*4+IP[7]*2+IP[8];[2]:=IP[9]*128+IP[10]*64+IP[11]*32+IP[12]*16+IP[13]*8+IP[14]*4+IP[15]*2+IP[16];[3]:=IP[17]*128+IP[18]*64+IP[19]*32+IP[20]*16+IP[21]*8+IP[22]*4+IP[23]*2+IP[24];[4]:=IP[25]*128+IP[26]*64+IP[27]*32+IP[28]*16+IP[29]*8+IP[30]*4+IP[31]*2+IP[32];[5]:=IP[33]*128+IP[34]*64+IP[35]*32+IP[36]*16+IP[37]*8+IP[38]*4+IP[39]*2+IP[40];[6]:=IP[41]*128+IP[42]*64+IP[43]*32+IP[44]*16+IP[45]*8+IP[46]*4+IP[47]*2+IP[48];[7]:=IP[49]*128+IP[50]*64+IP[51]*32+IP[52]*16+IP[53]*8+IP[54]*4+IP[55]*2+IP[56];[8]:=IP[57]*128+IP[58]*64+IP[59]*32+IP[60]*16+IP[61]*8+IP[62]*4+IP[63]*2+IP[64];i:=1
to 8 do Finish[i]:=Chr (W[i]); // выходная последовательность;
[0,0]:=14; S1 [0,1]:=4; S1 [0,2]:=13; S1
[0,3]:=1; S1 [0,4]:=2; S1 [0,5]:=15;[0,6]:=11; S1 [0,7]:=8; S1 [0,8]:=3; S1
[0,9]:=10; S1 [0,10]:=6; S1 [0,11]:=12;[0,12]:=5; S1 [0,13]:=9; S1 [0,14]:=0;
S1 [0,15]:=7;[1,0]:=0; S1 [1,1]:=15; S1 [1,2]:=7; S1 [1,3]:=4; S1 [1,4]:=14; S1
[1,5]:=2;[1,6]:=13; S1 [1,7]:=1; S1 [1,8]:=10; S1 [1,9]:=6; S1 [1,10]:=12; S1
[1,11]:=11;[1,12]:=9; S1 [1,13]:=5; S1 [1,14]:=3; S1 [1,15]:=8;[2,0]:=4; S1
[2,1]:=1; S1 [2,2]:=14; S1 [2,3]:=8; S1 [2,4]:=13; S1 [2,5]:=6;[2,6]:=2; S1
[2,7]:=11; S1 [2,8]:=15; S1 [2,9]:=12; S1 [2,10]:=9;[2,11]:=7; S1 [2,12]:=3; S1
[2,13]:=10; S1 [2,14]:=5; S1 [2,15]:=0;[3,0]:=15; S1 [3,1]:=12; S1 [3,2]:=8; S1
[3,3]:=2; S1 [3,4]:=4; S1 [3,5]:=9;[3,6]:=1; S1 [3,7]:=7; S1 [3,8]:=5; S1
[3,9]:=11; S1 [3,10]:=3; S1 [3,11]:=14;[3,12]:=10; S1 [3,13]:=0; S1 [3,14]:=6;
S1 [3,15]:=13;[0,0]:=15; S2 [0,1]:=1; S2 [0,2]:=8; S2 [0,3]:=14; S2
[0,4]:=6;[0,5]:=11; S2 [0,6]:=3; S2 [0,7]:=4; S2 [0,8]:=9; S2 [0,9]:=7; S2
[0,10]:=2;[0,11]:=13; S2 [0,12]:=12; S2 [0,13]:=0; S2 [0,14]:=5; S2
[0,15]:=10;[1,0]:=3; S2 [1,1]:=13; S2 [1,2]:=4; S2 [1,3]:=7; S2 [1,4]:=15; S2
[1,5]:=2;[1,6]:=8; S2 [1,7]:=14; S2 [1,8]:=12; S2 [1,9]:=0; S2 [1,10]:=1; S2
[1,11]:=10;[1,12]:=6; S2 [1,13]:=9; S2 [1,14]:=11; S2 [1,15]:=5;[2,0]:=0; S2
[2,1]:=14; S2 [2,2]:=7; S2 [2,3]:=11; S2 [2,4]:=10;[2,5]:=4; S2 [2,6]:=13; S2
[2,7]:=1; S2 [2,8]:=5; S2 [2,9]:=8; S2 [2,10]:=12;[2,11]:=6; S2 [2,12]:=9; S2
[2,13]:=3; S2 [2,14]:=2; S2 [2,15]:=15;[3,0]:=13; S2 [3,1]:=8; S2 [3,2]:=10; S2
[3,3]:=1; S2 [3,4]:=3; S2 [3,5]:=15;[3,6]:=4; S2 [3,7]:=2; S2 [3,8]:=11; S2
[3,9]:=6; S2 [3,10]:=7; S2 [3,11]:=12;[3,12]:=0; S2 [3,13]:=5; S2 [3,14]:=14;
S2 [3,15]:=9;[0,0]:=10; S3 [0,1]:=0; S3 [0,2]:=9; S3 [0,3]:=14; S3 [0,4]:=6; S3
[0,5]:=3;[0,6]:=15; S3 [0,7]:=5; S3 [0,8]:=1; S3 [0,9]:=13; S3 [0,10]:=12; S3
[0,11]:=7;[0,12]:=11; S3 [0,13]:=4; S3 [0,14]:=2; S3 [0,15]:=8;
[1,0]:=13; S3 [1,1]:=7; S3 [1,2]:=0; S3 [1,3]:=9;
S3 [1,4]:=3; S3 [1,5]:=4;[1,6]:=6; S3 [1,7]:=10; S3 [1,8]:=2; S3 [1,9]:=8; S3
[1,10]:=5; S3 [1,11]:=14;[1,12]:=12; S3 [1,13]:=11; S3 [1,14]:=15; S3
[1,15]:=1;[2,0]:=13; S3 [2,1]:=6; S3 [2,2]:=4; S3 [2,3]:=9; S3 [2,4]:=8; S3
[2,5]:=15;[2,6]:=3; S3 [2,7]:=0; S3 [2,8]:=11; S3 [2,9]:=1; S3 [2,10]:=2; S3
[2,11]:=12;[2,12]:=5; S3 [2,13]:=10; S3 [2,14]:=14; S3 [2,15]:=7;[3,0]:=1; S3
[3,1]:=10; S3 [3,2]:=13; S3 [3,3]:=0; S3 [3,4]:=6; S3 [3,5]:=9;[3,6]:=8; S3
[3,7]:=7; S3 [3,8]:=4; S3 [3,9]:=15; S3 [3,10]:=14; S3 [3,11]:=3;[3,12]:=11; S3
[3,13]:=5; S3 [3,14]:=2; S3 [3,15]:=12;[0,0]:=7; S4 [0,1]:=13; S4 [0,2]:=14; S4
[0,3]:=3; S4 [0,4]:=0; S4 [0,5]:=6;[0,6]:=9; S4 [0,7]:=10; S4 [0,8]:=1; S4
[0,9]:=2; S4 [0,10]:=8; S4 [0,11]:=5;[0,12]:=11; S4 [0,13]:=12; S4 [0,14]:=4;
S4 [0,15]:=15;[1,0]:=13; S4 [1,1]:=8; S4 [1,2]:=11; S4 [1,3]:=5; S4 [1,4]:=6;
S4 [1,5]:=15;[1,6]:=0; S4 [1,7]:=3; S4 [1,8]:=4; S4 [1,9]:=7; S4 [1,10]:=2; S4
[1,11]:=12;[1,12]:=1; S4 [1,13]:=10; S4 [1,14]:=14; S4 [1,15]:=9;[2,0]:=10; S4
[2,1]:=6; S4 [2,2]:=9; S4 [2,3]:=0; S4 [2,4]:=12; S4 [2,5]:=11;[2,6]:=7; S4
[2,7]:=13; S4 [2,8]:=15; S4 [2,9]:=1; S4 [2,10]:=3; S4 [2,11]:=14;[2,12]:=5; S4
[2,13]:=2; S4 [2,14]:=8; S4 [2,15]:=4;[3,0]:=3; S4 [3,1]:=15; S4 [3,2]:=0; S4
[3,3]:=6; S4 [3,4]:=10; S4 [3,5]:=1;[3,6]:=13; S4 [3,7]:=8; S4 [3,8]:=9; S4
[3,9]:=4; S4 [3,10]:=5; S4 [3,11]:=11;[3,12]:=12; S4 [3,13]:=7; S4 [3,14]:=2;
S4 [3,15]:=14;[0,0]:=2; S5 [0,1]:=12; S5 [0,2]:=4; S5 [0,3]:=1; S5 [0,4]:=7; S5
[0,5]:=10;[0,6]:=11; S5 [0,7]:=6; S5 [0,8]:=8; S5 [0,9]:=5; S5 [0,10]:=3; S5
[0,11]:=15;[0,12]:=13; S5 [0,13]:=0; S5 [0,14]:=14; S5 [0,15]:=9;[1,0]:=14; S5
[1,1]:=11; S5 [1,2]:=2; S5 [1,3]:=12; S5 [1,4]:=4; S5 [1,5]:=7;[1,6]:=13; S5
[1,7]:=1; S5 [1,8]:=5; S5 [1,9]:=0; S5 [1,10]:=15; S5 [1,11]:=10;[1,12]:=3; S5
[1,13]:=9; S5 [1,14]:=8; S5 [1,15]:=6;[2,0]:=4; S5 [2,1]:=2; S5 [2,2]:=1; S5
[2,3]:=11; S5 [2,4]:=10; S5 [2,5]:=13;[2,6]:=7; S5 [2,7]:=8; S5 [2,8]:=15; S5
[2,9]:=9; S5 [2,10]:=12; S5 [2,11]:=5;[2,12]:=6; S5 [2,13]:=3; S5 [2,14]:=0; S5
[2,15]:=14;[3,0]:=11; S5 [3,1]:=8; S5 [3,2]:=12; S5 [3,3]:=7; S5 [3,4]:=1; S5
[3,5]:=14;[3,6]:=2; S5 [3,7]:=13; S5 [3,8]:=6; S5 [3,9]:=15; S5 [3,10]:=0; S5
[3,11]:=9;[3,12]:=10; S5 [3,13]:=4; S5 [3,14]:=5; S5 [3,15]:=3;[0,0]:=12; S6
[0,1]:=1; S6 [0,2]:=10; S6 [0,3]:=15; S6 [0,4]:=9; S6 [0,5]:=2;[0,6]:=6; S6 [0,7]:=8;
S6 [0,8]:=0; S6 [0,9]:=13; S6 [0,10]:=3; S6 [0,11]:=4;[0,12]:=14; S6 [0,13]:=7;
S6 [0,14]:=5; S6 [0,15]:=11;[1,0]:=10; S6 [1,1]:=15; S6 [1,2]:=4; S6 [1,3]:=2;
S6 [1,4]:=7; S6 [1,5]:=12;[1,6]:=9; S6 [1,7]:=5; S6 [1,8]:=6; S6 [1,9]:=1; S6
[1,10]:=13; S6 [1,11]:=14;[1,12]:=0; S6 [1,13]:=11; S6 [1,14]:=3; S6
[1,15]:=8;[2,0]:=9; S6 [2,1]:=14; S6 [2,2]:=15; S6 [2,3]:=5; S6 [2,4]:=2; S6
[2,5]:=8;[2,6]:=12; S6 [2,7]:=3; S6 [2,8]:=7; S6 [2,9]:=0; S6 [2,10]:=4; S6
[2,11]:=10;[2,12]:=1; S6 [2,13]:=13; S6 [2,14]:=11; S6 [2,15]:=6;[3,0]:=4; S6
[3,1]:=3; S6 [3,2]:=2; S6 [3,3]:=12; S6 [3,4]:=9; S6 [3,5]:=5;[3,6]:=15; S6
[3,7]:=10; S6 [3,8]:=11; S6 [3,9]:=14; S6 [3,10]:=1; S6 [3,11]:=7;[3,12]:=6; S6
[3,13]:=0; S6 [3,14]:=8; S6 [3,15]:=13;[0,0]:=4; S7 [0,1]:=11; S7 [0,2]:=2; S7
[0,3]:=14; S7 [0,4]:=15; S7 [0,5]:=0;[0,6]:=8; S7 [0,7]:=13; S7 [0,8]:=3; S7
[0,9]:=12; S7 [0,10]:=9; S7 [0,11]:=7;[0,12]:=5; S7 [0,13]:=10; S7 [0,14]:=6;
S7 [0,15]:=1;[1,0]:=13; S7 [1,1]:=0; S7 [1,2]:=11; S7 [1,3]:=7; S7 [1,4]:=4; S7
[1,5]:=9;[1,6]:=1; S7 [1,7]:=10; S7 [1,8]:=14; S7 [1,9]:=3; S7 [1,10]:=5; S7
[1,11]:=12;[1,12]:=2; S7 [1,13]:=15; S7 [1,14]:=8; S7 [1,15]:=6;[2,0]:=1; S7
[2,1]:=4; S7 [2,2]:=11; S7 [2,3]:=13; S7 [2,4]:=12; S7 [2,5]:=3;[2,6]:=7; S7
[2,7]:=14; S7 [2,8]:=10; S7 [2,9]:=15; S7 [2,10]:=6; S7 [2,11]:=8;[2,12]:=0; S7
[2,13]:=5; S7 [2,14]:=9; S7 [2,15]:=2;[3,0]:=6; S7 [3,1]:=11; S7 [3,2]:=13; S7
[3,3]:=8; S7 [3,4]:=1; S7 [3,5]:=4;[3,6]:=10; S7 [3,7]:=7; S7 [3,8]:=9; S7
[3,9]:=5; S7 [3,10]:=0; S7 [3,11]:=15;[3,12]:=14; S7 [3,13]:=2; S7 [3,14]:=3;
S7 [3,15]:=12;[0,0]:=13; S8 [0,1]:=2; S8 [0,2]:=8; S8 [0,3]:=4; S8 [0,4]:=6; S8
[0,5]:=15;[0,6]:=11; S8 [0,7]:=1; S8 [0,8]:=10; S8 [0,9]:=9; S8 [0,10]:=3; S8
[0,11]:=14;[0,12]:=5; S8 [0,13]:=0; S8 [0,14]:=12; S8 [0,15]:=7;[1,0]:=1; S8
[1,1]:=15; S8 [1,2]:=13; S8 [1,3]:=8; S8 [1,4]:=10; S8 [1,5]:=3;[1,6]:=7; S8
[1,7]:=4; S8 [1,8]:=12; S8 [1,9]:=5; S8 [1,10]:=6; S8 [1,11]:=11;[1,12]:=0; S8
[1,13]:=14; S8 [1,14]:=9; S8 [1,15]:=2;[2,0]:=7; S8 [2,1]:=11; S8 [2,2]:=4; S8
[2,3]:=1; S8 [2,4]:=9; S8 [2,5]:=12;[2,6]:=14; S8 [2,7]:=2; S8 [2,8]:=0; S8
[2,9]:=6; S8 [2,10]:=10; S8 [2,11]:=13;[2,12]:=15; S8 [2,13]:=3; S8 [2,14]:=5;
S8 [2,15]:=8;[3,0]:=2; S8 [3,1]:=1; S8 [3,2]:=14; S8 [3,3]:=7; S8 [3,4]:=4; S8
[3,5]:=10;[3,6]:=8; S8 [3,7]:=13; S8 [3,8]:=15; S8 [3,9]:=12; S8 [3,10]:=9; S8
[3,11]:=0;[3,12]:=3; S8 [3,13]:=5; S8 [3,14]:=6; S8 [3,15]:=11;; // процедура
очищающая экран (входит в стандартный модуль Crt)
Assign (Out, 'Result.txt');(Out); Writeln; ('Для того чтобы
зашифровать / расшифровать файл нажмите 1'); Writeln;
Write (' Для того чтобы зашифровать / расшифровать
сообщение нажмите 2'); Writeln;
Control:=ReadKey;Control of
'1': Goto Cntr1;
'2': Goto Cntr2;;: Write ('Введите путь к файлу:');
Read(Way);(F, Way); Reset(F); Goto VVod;: Write ('Введите сообщение:');
Read(So);(F, 'Temp.txt'); Rewrite(F); z:=Length(so);u:=1 to z do Write (f,
So[u]); Close(f);(f); Goto VVod;: Write ('Введите ключ (8 символов):'); For u:=1 to 10 do read (Key[u]); ('Для зашифрования
нажмите 1'); Writeln;
Write (' Для расшифрования нажмите 2'); WriteLn; '1': Goto StartC;
'2': Goto StartU;
end;
Label1: For u:=1 to 8 do // цикл, который разбивает входящие данные на
блоки по восемь // символов, а затем выполняет их зашифрование, а также запись
в файл.
begin A:=Finish[u]; Write (Out, A); end;:y:=1;not
(Eof(F)) doy:=1 to 8 do begin(F, s); Text[y]:=s; end;; Goto Label1;;u:=y to 8
do Text[u]:=' ';:=k2+2; If k2>1 then Goto all;2: For u:=1 to 8 do // цикл, который
разбивает входящие данные на блоки по восемь // символов, а затем выполняет их
расшифрование, а также запись в файл.
begin A:=Finish[u]; Write (Out, A); end;:
y:=1;not (Eof(F)) doy:=1 to 8 do begin(F, s); Text[y]:=s; end;; Goto
Label2;;u:=y to 8 do Text[u]:=' ';:=k2+2; If k2>1 then Goto all;:close(f);
Close(Out);Control='2' then erase(f);; Write ('Результат сохранен в файл
Result.txt.'); Writeln;
END.
