Помогите плийз!!!!

← →
555 (2005-10-25 12:00) [0]

ОЧЕНЬ нужно сдулать так, чтобы сохраненные данные в файл были нечитаемы! То есть чтобы пользователь не мог ручками править данные в файлах из других программ.
Сохраняю данные в СтрингЛистах. Никак не получается сделать так чтобы сохранненные данные при открытии получались нечитаемыми. ((
Помогите плииийз! И если можно небольшой примерчик. )

← →
Ega23 © (2005-10-25 12:08) [1]

Помогите плииийз! И если можно небольшой примерчик. )

Да легко! Обращайся на egorov@dedal.dubna.ru

← →
Ega23 © (2005-10-25 12:09) [2]

Да, забыл!
Если можно - немножко денег.

← →
Zhekson (2005-10-25 12:09) [3]

555 (25.10.05 12:00)
прячь файл

← →
WondeRu © (2005-10-25 12:12) [4]

шифрование отменили?

← →
Frozzen (2005-10-25 12:29) [5]

Не канский случаем?
сохраняй его как бинарный, коли шифровать не нужно

простейшая функция хор шифрования;

function koder(keyk:string;strin:string):string; var key,longkey,text,pol: string; i : integer; toto, c,loiuper : char; begin key:=keyk; text:=strin; if key="" then key:=#1; longkey:=""; for i := 0 to (length(text) div length(key)) do longkey := longkey + key; for i := 1 to length(text) do begin /// где-то здесь надо доделать защиту, чтоб при кодировки код символа ////неперевалил за 255 toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR алгоритм pol := pol + toto; end; text:=""; result:=pol; end;

пример вызова

шифрация - дешифрация

s:=function koder(#1#2#3;s);

но ее надо доделать, а то можешь не декодировать

> пользователь не мог ручками править данные в файлах из других
> программ

Это все зависит от уровня пользователя. Еще как вариант - можно файлы зиповать, а затем переставить местами в архиве первые два байта. Или любые два байта из первых 32.

Чтобы шифровать существует бесчисленное количество методов, что бы не могли править только один - размещать на устройстве только для чтения.

Помогите плийз!!!! Найти похожие ветки