Шифрование и расшифровка текста

@Анна99777 · Регистрация: 23.09.2015

Author24 — интернет-сервис помощи студентам

Написать программу в которой нужно реализовать режим шифровки расшифровки, и возможность дополнительного контроля ввода

Входными данными программы должны быть:
- для режима шифрования: строка текста и ключ, указывающий раз-
мер блока и порядок перестановки в пределах этого блока;
-для режима расшифровки: закрытый текст и ключ, указывающий
размер блока и порядок перестановки в пределах этого блока.
Выходными данными являются:
-для режима шифрования: закрытый текст;
-для режима расшифровки: открытый текст.
Используемые переменные:
– s, r – строки открытого и закрытого текста соответственно;
– len – длина текстовой строки;
– a – массив, содержащий числа, определяющие порядок перестановки;
– i, j, v – счетчики циклов и вспомогательная переменная целого типа;
– key – размер блока.

Пример : Открытый текст: "ШИФРОВАНИЕ_ПЕРЕСТАНОВКОЙ".
Ключ (правило перестановки): группы из 8 букв с порядковыми номерами
1, 2, ..., 8 переставить в порядок 3-8-1-5-2-7-6-4.
Шифртекст: "ФНШОИАВР_СИЕЕЕРПННТВАОКО".
.....
1. Ввести строку текста:

Pascal

1
2
3

 write('Введите текст для шифрования: ');
 read(s);
 writeln('-------------------------------------------------');

2. Ввести размер блока:

Pascal

1 2	write('Введите количество цифр в ключе: '); readln(key);

3. Если длина строки не кратна размеру блока, дополнить ее пробелми до нужной длины:

Pascal

 len:= length(s);
 while len mod key<>0 do
 begin
 s:=s+' ';
 inc(len)
 end;

.....

	19.09.2016, 06:28