Как защитить информацию в файле?

[Stilet]

и отрывый нафиг этот переключатель

Расточительно )
Проще CD+R финализированный сделать

[Алексей_2012]

Ребят, вы посмотрите программу саму) там максимум флешка либо почта (архивация)

Про шифр замены-спасибо BDA.

Искал реализацию контрольных сумм на делфи для текстовых файлов-не нашел. Можете привести пример кода?

[ДралсяСошибками]

Сложи все байты текстового файла, вот те и контрольная сумма)))

[Алексей_2012]

function GetCheckSum(FileName: string): DWORD;
var
  F: file of DWORD;
  P: Pointer;
  Fsize: DWORD;
  Buffer: array[0..500] of DWORD;
begin
  FileMode := 0;
  AssignFile(F, FileName);
  Reset(F);
  Seek(F, FileSize(F) div 2);
  Fsize := FileSize(F) - 1 - FilePos(F);
  if Fsize > 500 then
    Fsize := 500;
  BlockRead(F, Buffer, Fsize);
  Close(F);
  P := @Buffer;
  asm
     xor eax, eax
     xor ecx, ecx
     mov edi , p
     @again:
       add eax, [edi + 4*ecx]
       inc ecx
       cmp ecx, fsize
     jl @again
     mov @result, eax
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetCheckSum('c:\Autoexec.bat')));
end;

Это подойдет? А как выполнить проверку с контрольной суммой? Ведь если записать результат в тот же файл, то не исключено то, что символ тд изменят в контрольной сумме.

[Serge_Bliznykov]

Искал реализацию контрольных сумм на делфи для текстовых файлов-не нашел

шутите?! Для вычисления контрольной суммы используются байты. А что они кодируют - текстовый файл или картинку или видеофильм - это алгоритму совсем безразлично!

[Serge_Bliznykov]

да, скорее всего подойдёт.
хотя я бы взял CRC32 (например, отсюда)

Ведь если записать результат в тот же файл, то не исключено то, что символ тд изменят в контрольной сумме.

ну и что. изменят. Вы это обнаружите и сообщите - файл повреждён, использовать его нельзя.
Вам же как раз про это и пытаюстя сказать - что защититься от внесения изменений практически НЕРЕАЛЬНО. Но абсолютно просто и реально обнаружить это вмешательство и отказаться использовать фальсифицированные данные.

[ДралсяСошибками]

Обычно, контрольную сумму записывают в проверяемый файл, либо в начало, либо в конец, а потом считают контрольную сумму текста без записанной суммы, то есть, пусть содержимое файла:
123456789045
где 10 символов(1234567890) - инфа, 2 символа(45) - контрольная сумма.

[IliaIT]

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

[Stilet]

Искал реализацию контрольных сумм на делфи для текстовых файлов-не нашел

"А молния нашла.":
http://www.programmersforum.ru/showt...oto=nextnewest
http://www.programmersforum.ru/showthread.php?t=213374
...так и помер Митрич

[Stilet]

Это называется "приватный ключ". Автору не это нужно.