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

[Novenkaja]

хорошо,а как тогда измениь данные массива М,если выбераем 3,8,10 и 16?

[evg_m]

берем два листка рисуем на них два одинаковых квадрата
01 02 03 04
05 06 07 08
09 10 11 12
13 14 15 16
во втором литке на выбранных местах (3 8 10 16) делаем дырки.
накладываем квадраты(листки) второй на первый
1.читаем(выписываем) номера с первого листка которые видны.
2.поворачиваем верхний листок. выписываем.
3.поворачиваем выписываем.
4 поворачиваем выписываем.
массив готов.

З.ы. именно так в оригинале и выглядит процедура расшифрования (накладываем, выписываем, поворачиваем).

[Novenkaja]

это на цифрах,а на словах также?
к прмеру солнце светит ярко

про накладывние я поняла

при 3 8 10 16 выходит 12 15 6 13

[Novenkaja]

а в ране я что должна писать и что он должен выдать?

[evg_m]

массив M это НОМЕРА ячеек квадрата записанные в порядке чтения при расшифровании.
( прочитал повернул прочитал ... )
читаем с нужных мест

   res1[ n + m[j]]:=txt[n + j];//расставляем буквы исходного текста на заданные места
    res2[n+ j]:=res1[n +m[j]]; // берем буквы с заданных мест

это на цифрах,а на словах также?
к прмеру солнце светит ярко

при шифровании первый лист берем пустой(чистый)
накладываем второй( с дырками) вписываем буквы (ставим на нужное место)
с - - -
- - о -
- - - л
- - н -
поворачиваем вписываем
поворачиваем вписываем
поворачиваем вписываем
начинаем новый квадрат (если нужно).

[Novenkaja]

всё ясно,т.е если 3 8 10 16 то
3 8 10 16
6 12 13 15
1 7 9 14
2 4 5 11

так?

[evg_m]

так?

все верно.

[Novenkaja]

спасибо,тогда всё должно работать да?
а в ране тогда я пишу текст или цифры?

непонимаю что там делать? весь м2 я заккоментровала.остаивла тока м,всё компилирует и естть ран,а в нём что писать?

[evg_m]

txt:='раки зимуют в реке';
// res1 зашифровали txt //showmessage( leftstr (res1,len));
// можно посмотреть
// res2 расшифровали res1 //showmessage(leftstr(res2, len));
// можно посмотреть

[Novenkaja]

так если это закоментировать отображаться то это не будет