[KAHDIDAT]

Помогите составить программу шифрования текстового сообщения. Можно использовать такой способ шифрования. Шифровальщик задает ключ шифровки – целое число, который определяет величину смещения букв русского алфавита, например: ключ = 3, тогда в тексте буква “a” заменяется на “г” и т.д. Используются все буквы русского алфавита. Е считается дважды.

[poli-smen]

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

Шифровальщик задает ключ шифровки – целое число, который определяет величину смещения букв русского алфавита, например: ключ = 3, тогда в тексте буква ”a” заменяется на ”г” и т.д. Используются все буквы русского алфавита. Е считается дважды.

А буква ”я” на что заменяется? И пробелы, цифры, знаки препинания?

[-sanya-]

таки через Ord()

var
i,t,key:integer;
s:string;
begin
key:=3;//ключь
s:='text'; //текст
for i:=1 to length(s) do
begin
t:=ord(s[i]);
t:=t+key;
s[i]:=chr(t);
end;
showmessage(s);
end;

на выходе будет шифрованый текст "wh{w" без кавычек

проверил

key:=-3;//ключь
s:='wh{w'; //текст

если отнять ключь обратно и ввести зашифрованые крокозябры, то получится обратно слово "text"

[KAHDIDAT]

Сообщение от -sanya-

таки через Ord()

на выходе будет шифрованый текст "wh{w" без кавычек

проверил


если отнять ключь обратно и ввести зашифрованые крокозябры, то получится обратно слово "text"

Спасибо, сейчас попробую сделать, что бы всё это через эдит работало.