Ну так скажем очень при простенький пример шифрования данных
Код:
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;
для расшифровки текста можно использовать эту же функцию
__________________
Кто знал, тот знал точно. Кто не любит свет, тот и живет ночью.
|