Составить программу которая по заданным m, n и паролю выполнит шифрование/дешифрование методом Виета

@VerVolf · Регистрация: 27.03.2017

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

Помогите пожалуйста с написанием проги. Прога работает с файлом, в котором дан текст. Есть само задание и код, но в нем я не могу сделать так, чтобы прога обрабатывала весь текст. Она работает только с тем диапазоном, который равен произведению m*n.

Задание:

Маршрутное шифрование.

Этот способ шифрования изобрел выдающийся французский математик и криптограф Франсуа Виет (1540-1603). Пусть m и n – некоторые натуральные числа, каждое больше 1. Открытый текст последовательно разбивается на части (блоки) с длиной, равной произведению mn (если в последнем блоке не хватает букв, можно дописать до нужной длины произвольный их набор). Блок вписывается построчно в таблицу размерности m×n (т.е. m строк и n столбцов). Криптограмма получается выписыванием букв из таблицы в соответствии с некоторым маршрутом. Этот маршрут вместе с числами m и n составляет ключ шифра. Чаще всего буквы выписывают по столбцам, которые упорядочиваются в соответствии с паролем: под таблицей подписывается слово, состоящее из n неповторяющихся букв, и столбцы таблицы нумеруются по алфавитному порядку букв пароля. Например, для шифрования открытого текста, выражающего один из главных принципов криптологии: нельзя недооценивать противника, добавим к его 29 буквам еще одну, скажем а, возьмем m=5, n=6, впишем текст в таблицу 5×6 и выберем в качестве пароля слово п а р о л ь:

н е л ь з я
н е д о о ц
е н и в а т
ь п р о т и
в н и к а а
п а р о л ь

Выписывая теперь буквы по столбцам в соответствии с алфавитным порядком букв в пароле, получаем следующую криптограмму:

ЕЕНПНЗОАТАЬОВОКННЕЬВЛДИРИЯЦТИА (пробелы пропускаются).

Составить программу, которая по заданным m, n и паролю выполнит шифрование/дешифрование методом Виета.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
program Lin_krik;
 
var
F: Text;  
G: Text;
P:array [1..100,1..100] of string;
n,m,c:integer;
phrase,pass,pass_cr,name1,name2,U:string;
 
begin
  
  
  write('введите имя файла для чтения: ');
  readLn(name1);
  assign(F,name1);
  Reset(F);
  
  write('введите имя файла для записи: ');
  readLn(name2);
  assign(G,name2);
  Rewrite(G);
  
  writeln('Введите m и n:');
  readln(m,n);
  writeln('текст в файле должен быть (без пробелов) и содержать',' ',n*m,' ','символов' );
  Readln(F,phrase);
  if length(phrase) = n*m then 
  begin
  
    repeat
      writeln('Введите пароль из ',n,' символов:');
      readln(pass);
    until length(pass)=n;
 
    for var j:=1 to n do
      P[m+1,j]:=pass[j];
 
    pass_cr:=pass;
    for var i := 1 to length(pass_cr)-1 do
    begin
      for var j := i + 1 to length(pass_cr) do
        if pass_cr[j]<pass_cr[i] then 
        begin
          var ch := pass_cr[i];
          pass_cr[i]:=pass_cr[j];
          pass_cr[j]:= ch;
        end;
    end;
          for var j:=1 to n do
            P[m+2,j]:=pass_cr[j];
 
    writeln('Выберите операцию:');
    writeln('1.Шифрование');
    writeln('2.Дешифрование');
    readln(c);
    case c of
    1: begin
           var l:=1;
           for var i:=1 to m do
             for var j:=1 to n do
             begin
              P[i,j]:=phrase[l];
              l+=1;
            end;
        
         writeln('Готово:');
         var s:=0;
         var j:=1;
         l:=1;
         repeat
           if P[m+1,j]=pass_cr[l] then
           begin
             for var i:=1 to m do
             U:=U+P[i,j]; 
             s+=1;
             j:=1;
             l+=1;
           end
             else j+=1;
         until s=n;
         writeln(U);
         Writeln(G,U);
       end;
     
    2:begin
           var l:=1;
           for var j:=1 to n do
             for var i:=1 to m do 
             begin
              P[i,j]:=phrase[l];
              l+=1;
             end;
     
         writeln('Готово:');
         for var i:=1 to m do 
         begin
         var s:=0;
         var j:=1;
         l:=1;
         repeat
           if P[m+2,j]=pass[l] then
           begin
               U:=U+P[i,j];
             s+=1;
             j:=1;
             l+=1;
           end
             else j+=1;
         until s=n;
         end;
         write(U);
         Writeln(G,U);
       end;
    end;
  end
  else writeln('число символов в тексте не равно',' ',m*n);
  Close(F);
  Close(G);
end.

@Hitoku · 01.04.2017, 13:05

Рабочий код без использования файлов

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
var
P:array [1..100,1..100] of string;
n,m,c:integer;
phrase,pass,pass_cr:string;
begin
  writeln('Введите m и n:');
  readln(m,n);
  repeat
    writeln('Введите фразу из ',n*m,' символов (без пробелов):');
    readln(phrase);
  until length(phrase)=n*m;
  repeat
    writeln('Введите пароль из ',n,' символов:');
    readln(pass);
  until length(pass)=n;
 
  for var j:=1 to n do
    P[m+1,j]:=pass[j];
 
  pass_cr:=pass;
  for var i := 1 to length(pass_cr)-1 do begin
    for var j := i + 1 to length(pass_cr) do
      if pass_cr[j]<pass_cr[i] then begin
        var ch := pass_cr[i];
        pass_cr[i]:=pass_cr[j];
        pass_cr[j]:= ch;
      end;
  end;
        for var j:=1 to n do
          P[m+2,j]:=pass_cr[j];
 
  writeln('Выберите операцию:');
  writeln('1.Шифрование');
  writeln('2.Дешифрование');
  readln(c);
  case c of
  1: begin
         var l:=1;
         for var i:=1 to m do
           for var j:=1 to n do begin
            P[i,j]:=phrase[l];
            inc(l);
           end;
        
       writeln('Готово:');
       var s:=0;
       var j:=1;
       l:=1;
       repeat
         if P[m+1,j]=pass_cr[l] then begin
           for var i:=1 to m do
             write(P[i,j]);
           inc(s); j:=1; inc(l);
         end
           else inc(j);
       until s=n;
     end;
     
  2:begin
         var l:=1;
         for var j:=1 to n do
           for var i:=1 to m do begin
            P[i,j]:=phrase[l];
            inc(l);
           end;
     
       writeln('Готово:');
       for var i:=1 to m do begin
       var s:=0;
       var j:=1;
       l:=1;
       repeat
         if P[m+2,j]=pass[l] then begin
             write(P[i,j]);
           inc(s); j:=1; inc(l);
         end
           else inc(j);
       until s=n;
       end;
     end;
  end;
end.

@VerVolf · 01.04.2017, 13:22 **[ТС]**

У меня ведь тот же самый код. Я не могу сделать так, чтобы прога работала с полным текстом. Вот в чем проблема

@Hitoku · 01.04.2017, 13:32

Сообщение от VerVolf

Она работает только с тем диапазоном, который равен произведению m*n

а разве так не должно быть? У вас есть ограничения в виде m и n. Соответственно для шифрования берётся m*n символов. В условии так и написано

@VerVolf · 01.04.2017, 13:37 **[ТС]**

В условии написано, что текст должен разбиться на блоки равные m*n. И каждый такой блок прога должна пройти

@Hitoku · 01.04.2017, 13:47

Попробуем так:

Текст последовательно разбивается на части (блоки)

Блок вписывается построчно в таблицу размерности m×n

Криптограмма получается выписыванием букв из таблицы

Один элемент таблицы (матрицы) - один символ. Количество символов m*n
Для этого даже есть пример:

н е л ь з я
н е д о о ц
е н и в а т
ь п р о т и
в н и к а а
п а р о л ь

Добавлено через 2 минуты
Хотите весь файл - делайте матрицу размером mxn="сумма всех символов текста". И длина пароля должна быть равна n

@VerVolf · 01.04.2017, 13:49 **[ТС]**

Каждый блог должен вписываться в матрицу m*n поочередно

@Hitoku · 01.04.2017, 13:50

Либо, если как именно вы хотите - тогда вводите например k равный количеству блоков в файле. Затем делаете цикл от 1 до k и формируете k матриц m*n, каждая из которых будет шифроваться

@CopyPaste · 02.04.2017, 08:17

Pascal
1
2
3
4
5
while not Eof(FileName) do {пока не достигнут конец файла FileName, делай}
  while not Eoln(FileName) do {пока не достигнут конец очередной строки файла FileName, делай}
    begin
      {группа операторов обработки символов очередной строки}
    end;

еще смотрю твою прогу, не закрываю тему.
условие завершения блока, а не всего файла.

Pascal
1
  if {length(phrase) = m*n }IoResult then

@CopyPaste · 03.04.2017, 15:06

вот алгоритм поменялся

@VerVolf · 04.04.2017, 07:38 **[ТС]**

Не могу открыть файл

Добавлено через 10 минут
Открыть смог

@CopyPaste · 06.04.2017, 20:39

добавил строчек, сейчас стараюсь, пишу только этот файл.

@CopyPaste · 23.04.2017, 17:58

часть работы проделана, продолжение следует.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@VerVolf 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 20
	01.04.2017, 13:22 [ТС]
	У меня ведь тот же самый код. Я не могу сделать так, чтобы прога работала с полным текстом. Вот в чем проблема 0

@VerVolf 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 20
	01.04.2017, 13:37 [ТС]
	В условии написано, что текст должен разбиться на блоки равные m*n. И каждый такой блок прога должна пройти 0

@VerVolf 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 20
	01.04.2017, 13:49 [ТС]
	Каждый блог должен вписываться в матрицу m*n поочередно 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	01.04.2017, 13:50
	Либо, если как именно вы хотите - тогда вводите например k равный количеству блоков в файле. Затем делаете цикл от 1 до k и формируете k матриц m*n, каждая из которых будет шифроваться 0

@VerVolf 0 / 0 / 0 Регистрация: 27.03.2017 Сообщений: 20
	04.04.2017, 07:38 [ТС]
	Не могу открыть файл Добавлено через 10 минут Открыть смог 0