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

Возьми и напиши... Чего раскомандовался? Ты поиском-то пользовался, прежде чем постить? Нет... С чего бы... Вот иди и пользуйся... И определи понятие "хороший", такого ни в математике ни в программировании НЕТ... Есть "быстрый", есть "устойчивый"... А вот "хороших" шифров не бывает...

Вот те..Это самый простой вариант.. ВООБЩЕ, если память не изменяет, 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.

Извините но я пользовался поиском набрал "шифратор" и выдало только одну ссылку шифр в целе цикла что-то такое. И я имел именно устойчивый шифр наплевать на время.

Ну а в FAQ никак? Шифрование

Спасибо!!!