Категории заданий

Доделать программу на PascalABC

Павел Виноградов Исполнитель: Павел Виноградов 
Оценка: 0
Отзыв: 
Стоимость: 100
Категория: Другое
Время выполнения: 27 мин
Поиск кандидата: 0 сек


Подробное описание:

Есть программа. Она должна считывать из файла (Primer1) текст, затем кодировать его по введённому пользователем ключу и в зашифрованном виде записывать в другой файл (Primer2). Однако, сейчас она шифрует столько символов, сколько символов в ключе (к примеру, если исходный текст - 20 букв, а ключ - 5 букв, то выходной файл тоже будет состоять из 5 букв). А надо, чтобы шифровало до того момента, пока не будет зашифрован ВЕСЬ текст. Достигать это с помощью многократного повторения ключа. Вот так оно выглядит пока: Program Gamma2; {Гаммирование с записью в файл} var key: string[80]; len2, i, x, y, z: byte; f1, f2: file of Byte; begin write('Введите ключ: '); readln(key); writeln('Вы ввели: ',key); len2:=length(key); assign(f1,'Primer1.txt'); reset(f1); assign(f2,'Primer2.txt'); rewrite(f2); for i:=1 to len2 do begin Read(f1,x); y:=ord(key[i]); z:=x xor y; write(f2,z); end; close(f1); close(f2); end.

Рассказать друзьям

Подпишитесь на полезные статьи

Примеры заданий и практические советы по аутсорсингу задач

   



На дайджест уже подписалось 555214 читателей!

Присоединяйтесь к нам в соцсетях!