зашифровка и расшифровка данных

[cl0oud]

Чтобы зашифровать текст, записанный с помощью русских букв и знаков препинания, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а)
а) Зашифровать данный текст.
б) Расшифровать данный текст.

[Stilet]

И что? Проходи циклом и шифруй букву по формуле
Буква=CHR(ORD(Буква)+1)

[W0LF]

Написал за 1-2 минуты...

{--- Сообвстенно функция ---}
function CHR_Coder(Text: string; C_D: Boolean): string;
var
  i: integer;
  s: string;
begin
  for i := 1 to Length(Text) do
    if C_D = True then
      S := S + Chr(Ord(Text[i]) + 1)
    else
      S := S + Chr(Ord(Text[i]) - 1);
  Result := s;
end;

Текст в обычном состоянии: Форум программистов
В зашифрованном: УнптлопнвпЯллзрснб

Stilet, почему-то шифрует не на один символ вперед, а на несколько, а бывает и наоборот)
Может луче, если ТС нужно только русский текст и знаки пунктуации, добавить их в массив и уже их заменять?

[Grag]

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

if C_D = True then
S := S + Chr(Ord(Text[i]) + 1)
else
S := S + Chr(Ord(Text[i]) - 1);

[CODE]

Извечная ошибка невнимательности...
Переменная C_D уже содержит логическое значение (true или false).
зачем ее с чем-то сравнивать?
достаточно и так
if C_D
then .........
else ..........

[W0LF]

Да достаточно и без (= True), но это не как не ошибка...

[cl0oud]

а слабо всю прогу написать? я на прогера не учился, не самоучка-прогер, не супер модер сайта программистов и т.д. необходимо товарищу, у которого к сожалению временно не работает инет или комп, или мозг.. заранее спасибо.

[Grag]

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

Да достаточно и без (= True), но это не как не ошибка...

Да я совсем не это имел ввиду... Просто при огромных циклах лишние вычисления приводят к потерям производительности. Сталкивался с такими огрехами при проведении оптимизации кода, теперь обращаю внимание...