Шифр Опции

[Medved]

Дайте какой-нибудь хороший шифр и не удаляйте тему

[Артемий]

Вот те..Это самый простой вариант.. ВООБЩЕ, если память не изменяет, volvo целую тему посвятил этому!

program Project1;

{$APPTYPE CONSOLE}

var
s: string;
i,o: Integer;
ch: Char;
begin
writeln('Введи строку:');
readln(s);
for i:=1 to Length(s) do
begin
ch:=s[i];
o:=ord(ch);
o:=o-23;
write(chr(o));
end;
readln
end.