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

@ulfur · Регистрация: 22.11.2012

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

Доброго всем времени суток! Необходимо в среде FreePascal разработать следующие программы:

шифрование/дешифрование простой заменой или подстановкой;
шифрование/дешифрование шифром-перестановкой;
шифрование/дешифрование с ключевым словом.

Все программы должны получать имя файла с исходным текстом в командной строке. Для работы с командной строкой необходимо использовать функцию ParamStr() языка Pascal.

Шифрование и расшифровка простой заменой или подстановкой и шифром-перестановкой по отдельности имеются.

Вопросы:

Как объединить шифрование и расшифровку в одной программе?
Как работать с функцией ParamStr()?
Как реализовать шифрование/дешифрование с ключевым словом?

Добавлено через 12 часов 26 минут

По отдельности программы шифратора/дешифратора компилируются и запускаются. Сделал так:

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
program cypher;
uses crt;
            
      procedure encoder;
      var input, output: text;
      a, i: integer;
      str: string;
      symbol: array[1..33] of char;
      k, pn, pm: array[1..33] of char;
      begin clrscr;
    assign(input,'input.txt');
    assign(output,'output.txt');
    reset(input);
    rewrite(output);
    repeat
      a:=a+1;
      readln(input,s);
      writeln(s);
      for i:=1 to length(s) do
        begin
          if ord(s[i])+13>256
          then s[i]:=chr(ord(s[i])+13-256)
          else s[i]:=chr(ord(s[i])+13);
        end;
      writeln(output,s);
    until eof(input);
    close(output);
    close(input);
    readln;
    clrscr;
    reset(output);
    repeat
      a:=a+1;
      readln(output,s);
      writeln(s);
    until eof(output);
    close(output);
    //writeln('Press any key to return to the menu');
    readkey;
    //menu; forward;
      end;
      
      procedure decoder;
      var input, output: text;
      a, i: integer;
      str: string;
      symbol: array[1..33] of char;
      k, pn, pm: array[1..33] of char;
      begin clrscr;
    assign(input,'input.txt');
    assign(output,'output.txt');
    reset(input);
    rewrite(output);
    repeat
      a:=a+1;
      readln(input,s);
      writeln(s);
      for i:=1 to length(s) do
        begin
          if ord(s[i])-13>256
          then s[i]:=chr(ord(s[i])-13+256)
          else s[i]:=chr(ord(s[i])-13);
        end;
      writeln(output,s);
      until eof(input);
      close(output);
      close(input);
      readln;
      clrscr;
      reset(output);
      repeat
    a:=a+1;
    readln(output,s);
    writeln(s);
      until eof(output);
      close(output);
      //readln;
      //writeln('Press any key to return to the menu');
      readkey;
      //menu; forward;
     end;
     
     procedure menu;
      var mode: char;
      begin clrscr;
    writeln('Please select mode of work ([E]ncoder/[D]ecoder/[Q]uit:)');
    writeln('[E]ncoder;');
    writeln('[D]ecoder;');
    write('Enter mode of program work ([E]ncoder/[D]ecoder/[Q]uit)?: ')
    readln(mode);
    case mode of
      'E': encoder;
      'e': encoder;
      'D': decoder;
      'd': decoder;
      'Q': halt;
      'q': halt;
      end;
 
begin clrscr;
  menu;
end.

И ничего не работает. Подскажите, что не так делаю?

@orange_rush · 25.11.2012, 00:16

что ж ты не видишь, что у тебя прямо вначале, объявлена переменная str: string; а ты из файла читаешь в s ?

@ulfur · 25.11.2012, 08:31 **[ТС]**

Спасибо, что-то похоже в час ночи я и правда ничего видел

@ulfur · 25.11.2012, 08:57 **[ТС]**

Внёс изменения - опять упирается:

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

Исходник:

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
program cypher;
uses crt;
 
      procedure encoder;
      var input, output: text;
      a, i: integer;
      str: string;
      //symbol: array[1..33] of char;
      //k, pn, pm: array[1..33] of char;
      begin clrscr;
    a:=0;
    assign(input,'input.txt');
    assign(output,'output.txt');
    reset(input);
    rewrite(output);
    repeat
      a:=a+1;
      readln(input,str);
      writeln(str);
      for i:=1 to length(str) do
        begin
          if ord(str[i])+13>256
          then str[i]:=chr(ord(str[i])+13-256)
          else str[i]:=chr(ord(str[i])+13);
        end;
      writeln(output,str);
    until eof(input);
    close(output);
    close(input);
    readln;
    clrscr;
    reset(output);
    repeat
      a:=a+1;
      readln(output,str);
      writeln(str);
    until eof(output);
    close(output);
    //writeln('Press any key to return to the menu');
    readkey;
    //menu; forward;
      end;
      
      procedure decoder;
      var input, output: text;
      a, i: integer;
      str: string;
      //symbol: array[1..33] of char;
      //k, pn, pm: array[1..33] of char;
      begin clrscr;
    a:=0;
    assign(input,'input.txt');
    assign(output,'output.txt');
    reset(input);
    rewrite(output);
    repeat
      a:=a+1;
      readln(input,str);
      writeln(str);
      for i:=1 to length(str) do
        begin
          if ord(str[i])-13>256
          then str[i]:=chr(ord(str[i])-13+256)
          else str[i]:=chr(ord(str[i])-13);
        end;
      writeln(output,str);
      until eof(input);
      close(output);
      close(input);
      readln;
      clrscr;
      reset(output);
      repeat
    a:=a+1;
    readln(output,str);
    writeln(str);
      until eof(output);
      close(output);
      //readln;
      //writeln('Press any key to return to the menu');
      readkey;
      //menu; forward;
     end;
     
     procedure menu;
      var mode: char;
      begin clrscr;
    writeln('Please select mode of work ([E]ncoder/[D]ecoder/[Q]uit:)');
    writeln('[E]ncoder;');
    writeln('[D]ecoder;');
    write('Enter mode of program work ([E]ncoder/[D]ecoder/[Q]uit)?: ');
    readln(mode);
    case mode of
      'E': encoder;
      'e': encoder;
      'D': decoder;
      'd': decoder;
      'Q': halt;
      'q': halt;
      end;
 
begin            
     menu;
end.

@ulfur · 28.11.2012, 08:43 **[ТС]**

Код исправил, компилируется и работает.

Код

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
program cypher;
uses crt;
var mode: char;
 
      procedure encoder();
      var a, i: integer;
      str, in_filename, out_filename: string;
      source, target:text;
      begin clrscr;
    a:=0;
    write('Enter the name of the input file: ');
    readln(in_filename);
    write('Enter the name of the output file: ');
    readln(out_filename);
    assign(source,in_filename);
    assign(target,out_filename);
    reset(source);
    rewrite(target);
    repeat
      a:=a+1;
      readln(source,str);
      writeln(str);
      for i:=1 to length(str) do
        begin
          if ord(str[i])+13>256
          then str[i]:=chr(ord(str[i])+13-256)
          else str[i]:=chr(ord(str[i])+13);
        end;
      writeln(target,str);
    until eof(source);
    close(target);
    close(source);
    readln;
    clrscr;
    reset(target);
    repeat
      a:=a+1;
      readln(target,str);
      writeln(str);
    until eof(target);
    close(target);
    readkey;
      end;
      
      procedure decoder();
      var a, i: integer;
      str, in_filename, out_filename: string;
      source, target:text;
      begin clrscr;
    a:=0;
    write('Enter the name of the input file: ');
    readln(in_filename);
    write('Enter the name of the output file: ');
    readln(out_filename);
    assign(source,in_filename);
    assign(target,out_filename);
    reset(source);
    rewrite(target);
    repeat
      a:=a+1;
      readln(source,str);
      writeln(str);
      for i:=1 to length(str) do
        begin
          if ord(str[i])-13>256
          then str[i]:=chr(ord(str[i])-13+256)
          else str[i]:=chr(ord(str[i])-13);
        end;
      writeln(target,str);
      until eof(source);
      close(target);
      close(source);
      readln;
      clrscr;
      reset(target);
      repeat
    a:=a+1;
    readln(target,str);
    writeln(str);
      until eof(target);
      close(target);
      readkey;
     end;
 
begin clrscr;
      writeln('Please select mode of work ([E]ncoder/[D]ecoder/[Q]uit:)');
      writeln('[E]ncoder;');
      writeln('[D]ecoder;');
      write('Enter mode of program work ([E]ncoder/[D]ecoder/[Q]uit)?: ');
      readln(mode);
      if ((mode='E') or (mode='e')) then encoder()
      else if ((mode='D') or (mode='d')) then decoder()
      else if ((mode='Q') or (mode='q')) then halt;
end.

Программа работает через меню, а требуется также возможность задания имени файла и режима работы в командной строке следующим образом:
cypher -encode <filename>
cypher -decode <filename>

@ulfur · 29.11.2012, 14:31 **[ТС]**

Ещё раз спасибо orange_rush за помощь. Код доработал. Вопрос для меня неактуален. Тему прошу закрыть.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@orange_rush 142 / 148 / 116 Регистрация: 15.11.2012 Сообщений: 537 Записей в блоге: 2
	25.11.2012, 00:16
	что ж ты не видишь, что у тебя прямо вначале, объявлена переменная str: string; а ты из файла читаешь в s ? 1

@ulfur 18 / 18 / 1 Регистрация: 22.11.2012 Сообщений: 62
	25.11.2012, 08:31 [ТС]
	Спасибо, что-то похоже в час ночи я и правда ничего видел 1

@ulfur 18 / 18 / 1 Регистрация: 22.11.2012 Сообщений: 62
	29.11.2012, 14:31 [ТС]
	Ещё раз спасибо orange_rush за помощь. Код доработал. Вопрос для меня неактуален. Тему прошу закрыть. 1