Шифратор/дешифратор

@Испаша · Регистрация: 19.05.2012

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

(буду благодарна всем, кто поможет)

Шифратор.
На вход поступает произвольная последовательность символов, заканчивающаяся символом$ (не входит в последовательность).
Программа формирует на выходе зашифрованную последовательность, в которой коды всех исходных символов сдвинуты на фиксированную величину (величина сдвига определяется внутри программы).

Дешифратор.
На вход поступает последовательность символов, являющихся зашифрованным (с помощью шифратора) сообщением. Последовательность заканчивается символом $ (не входит в последовательность). Программа выдает исходную (расшифрованную) последовательность символов.

З.Ы. Программа должна быть простой как сибирский валенок, т.к. первый год изучаю Pascal. Заранее спасибо.

@Г.Р. · 19.05.2012, 18:19

Pascal

var
 c:char;
begin
 read(c);
 while(c<>'$')
 begin
  c:=(ord(c)+10) mod 256 +1;//цикличный сдвиг( всего 255 символов)
  write(c);//выведем измененное
  read(c);//прочтем новое число
 end:
end.

дешифровка
просто поставь у 10 знак минус. Должно сработать

@Испаша · 19.05.2012, 19:14 **[ТС]**

Спасибо большое.)

@Испаша 0 / 0 / 0 Регистрация: 19.05.2012 Сообщений: 3
		1
	Шифратор/дешифратор 19.05.2012, 14:48. Показов 2969. Ответов 2 Метки нет (Все метки) (буду благодарна всем, кто поможет) Шифратор. На вход поступает произвольная последовательность символов, заканчивающаяся символом$ (не входит в последовательность). Программа формирует на выходе зашифрованную последовательность, в которой коды всех исходных символов сдвинуты на фиксированную величину (величина сдвига определяется внутри программы). Дешифратор. На вход поступает последовательность символов, являющихся зашифрованным (с помощью шифратора) сообщением. Последовательность заканчивается символом $ (не входит в последовательность). Программа выдает исходную (расшифрованную) последовательность символов. З.Ы. Программа должна быть простой как сибирский валенок, т.к. первый год изучаю Pascal. Заранее спасибо. 0

@Испаша 0 / 0 / 0 Регистрация: 19.05.2012 Сообщений: 3
	19.05.2012, 19:14 [ТС]	3
	Спасибо большое.) 0

Шифратор/дешифратор

Решение