таки через 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"