Показать сообщение отдельно
  #8  
Старый 10.02.2009, 12:36
Фантик Фантик вне форума
Прохожий
 
Регистрация: 05.02.2009
Сообщения: 8
Репутация: 10
Радость

Ну так скажем очень при простенький пример шифрования данных
Код:
function code(s: string; key: integer): string;
var
   t: integer;
begin
for t:=1 to length(s) do s[t]:=chr(ord(s[t]) xor key);
result:=s;
end;

для расшифровки текста можно использовать эту же функцию
__________________
Кто знал, тот знал точно. Кто не любит свет, тот и живет ночью.
Ответить с цитированием