Шифровка и расшифровка через текстовые файлы в Паскале

[Novenkaja]

Добрый вечер всем !

Задание такое необычное.
Надо составить программу, которая создаст шифровку и расшифровку Naiva teksta(как я полагаю это простого текста,т.к. дословный перевод наивного текста),используя шаблон,квадрат 4 на 4.

1.JPG

в самом вверху как раз и написано что,шифрование как полагаю простым текстом,использую шаблон.
Белые квадратики это те места,где мы можем видеть буквы, теперь же надо выбрать другие квадратики,которые будут белыми.(это шифровка)

а во втором квадратике написано-в этом пруду раков нет. это как раз отшифровка.
это вот шифровку и её расшифровку надо как то показать в программе через код.
У меня пока есть только одна мысль насчёт этого задания,что нужна скорей всег матрица 4 на 4.

кто-то может помочь в этом задании???
буду очень признательна и благодарна

[evg_m]

суть шифра в перестановке букв в заданном порядке. порядок определяется белыми квадратиками. Для приведенного порядок расстановки букв будет следующим следующим
1, 7, 12, 15,
поворачиваем но 90°
4, 9, 11, 14,
еще 90°
2, 5, 10, 16,
еще 90°
3, 6, 8, 13

первая на первое
вторая на седьмое и т.д.

при расшифровке наоборот буквы выбираются в соответсвии с указанными местами
сначала берем первую
потом седьмую и т.д.

и так для каждых 16 букв
неполный последний блок (<16) надо дополнять до полного

const
  m: array[1..16] of integer = (1, 7, 12, 15, 4, 9, 11, 14, 2, 5, 10, 16, 3, 6, 
8, 13 );
  m2: array[1..4, 1..4] of integer =( (1, 7, 12, 15), (4, 9, 11, 14), (2, 5, 10, 16), (3, 6, 8, 13) );
var
  txt, res1, res2: string;
  n, j, len: integer;
begin
txt:='раки зимуют в реке';
len:=length(txt);
txt:=txt+ '________________';//lдополнили с избытком
res1:=txt;
for j:=1to length(res1) do res1[j]:='.'; //новая строка длины исходной с избытком и контрольным заполнением(очисткой)
n:=0;
while n<len do begin
  for j:=1 to 16 do begin
    res1[ n + m[j]]:=txt[n + j];//расставляем буквы исходного текста на заданные места
    res1x[n +m2[(j-1) div 4, (j-1) mod 4]:=txt[n+j];
    txt[n+j]:='_';
  end;
  n:=n+16;
end;
// res1 зашифровали //showmessage( leftstr (res1,len));

res2:=res1;
for j:=1to length(res2) do res2[j]:='.';//новая строка длины исходной с избытком и контрольным заполнением
n:=0;
while n<len do begin
  for j:=1 to 16 do begin
    res2[n+ j]:=res1[n +m[j]]; // берем буквы с заданных мест
    res2x[n+j]:=res1[n + m2[(j-1) div 4, (j-1) mod 4];
    res1[n+m[j]]:='_';
  end;
  n:=n+16;
end;
// res2 расшифровали showmessage(leftstr(res2, len));

[Novenkaja]

а этот код действует именно по этой картинке? т.е белые квадраты именно там,где они на рисунке?

не совсем уловила мысль ваших слов...

[evg_m]

наш квадат с номерами ячеек
01 02 03 04
05 06 07 08
09 10 11 12
13 14 15 16
белые ячейки отмечены синим
значит первые четыре буквы должны будут встать на синие места
после поворота квадрата белые ячейки отмечены зеленым
01 02 03 04
05 06 07 08
09 10 11 12
13 14 15 16
следующие четыре буквы встают на зеленые места

[Novenkaja]

да,так уже понятнее

но преподовательзапретил белыми брать те,что у него
допустим я хочу 03 05 10 и 16,как тогда выглядить код будет?

[evg_m]

меняем данные в массиве m на новые
сначала 3 5 10 15 потом смотрим на квадрат и заполняем
P/S/при использовании 3 и 5 в одну ячейку придется писать давжды
(после поворота 5 придется как раз на 3).
так что придется придумать другой.

для корректной работы из каждой строки можно брать только одно число
1 4 16 13 номера накладывающиеся при поворотах
2 8 15 9
3 12 14 5
6 7 11 10

[Novenkaja]

сейчас попробую

[Novenkaja]

хорошо,тогда вместо 5 8,тогда ведь нормлаьно будет?

[Novenkaja]

я вот закину код в программу,ещё не меняла данные в массиве м,но он у меян не компилируется,вот что выдаёт

[evg_m]

res1x и tres2x то же что что и res1 res2 для демонстрации работы через двумерный массив(m2) их(строки с res1x res2x) можно закоментировать. также как и сам массив m2.