Я делаю так:
Код:
for key:=1 to length(s) do
begin
t:=ord(s[key]);
t:=t+key;
s[key]:= chr(t);
end;
принцип работы:
Например есть слово "РЕКЛАМА".
при key=1 слово станет СЕКЛАМА, при 2 СЗКЛАМА, при 3 СЗНЛАМА и т.д.
Можно еще и так:
Код:
key:=Random(round(9)); //функция round необходима для того, чтобы не было дробных значений!!
for m:=1 to length(s) do
begin
t:=ord(s[m]);
t:=t+key;
s[m]:= chr(t);
end;
edit1.text:=s+key;
Надеюсь тебе поможет!!!!;
при дешифровании считывай последний символ в строке или слове(смотря куда будешь ключ писать) и пиши t:=t-key;
И будет тебе счастье!!!!
)))))
ПЫ.СЫ. Писал прямо на форуме, поэтому могут быть ошибки!!!