| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите плийз!!!!
555 © (2005-10-25 12:00:00)ОЧЕНЬ нужно сдулать так, чтобы сохраненные данные в файл были нечитаемы! То есть чтобы пользователь не мог ручками править данные в файлах из других программ.
Сохраняю данные в СтрингЛистах. Никак не получается сделать так чтобы сохранненные данные при открытии получались нечитаемыми. ((
Помогите плииийз! И если можно небольшой примерчик. )
Anatoly Podgoretsky (2005-10-25 14:49:00) [1]Чтобы шифровать существует бесчисленное количество методов, что бы не могли править только один - размещать на устройстве только для чтения.
umbra (2005-10-25 14:38:00) [2]
> пользователь не мог ручками править данные в файлах из других
> программ
Это все зависит от уровня пользователя. Еще как вариант - можно файлы зиповать, а затем переставить местами в архиве первые два байта. Или любые два байта из первых 32.
Gydvin (2005-10-25 14:21:00) [3]простейшая функция хор шифрования;
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);
но ее надо доделать, а то можешь не декодировать
Frozzen (2005-10-25 12:29:00) [4]Не канский случаем?
сохраняй его как бинарный, коли шифровать не нужно
WondeRu (2005-10-25 12:12:00) [5]шифрование отменили?
Ega23 (2005-10-25 12:09:00) [6]Да, забыл!
Если можно - немножко денег.
Zhekson (2005-10-25 12:09:00) [7]555 (25.10.05 12:00)
прячь файл
Ega23 (2005-10-25 12:08:00) [8]Помогите плииийз! И если можно небольшой примерчик. )
Да легко! Обращайся на egorov@dedal.dubna.ru
| |
