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

[Аватар]

Опять Юра-орхиватор. Не надоело ерунду нести?

[Вадим Мошев]

ХЗ, может он по теме отвечает... он обещал не шуметь вроде как... кстати, пишет теперь более менее грамотно...

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

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

Мне почему-то вспомнился школьник, который там какой-то мощный антивирус создал, он то же собирался писать революционный архиватор)))

[Utkin]

Если напишу всё-таки архиватор с распаковкой то свисну.

Чудесно, надеюсь до этого волшебного момента мы про него не услышим (не увидим/не узнаем), а то Ваша одержимость начинает вызывать раздражение.

[Вадим Мошев]

Меня радует, что сообщение у него стали более менее грамотными...
но

Если напишу всё-таки архиватор с распаковкой то свисну.

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

[Stilet]

который там какой-то мощный антивирус создал

Бабушкин. Был такой крендель.

[Алексей_2012]

Ребят, вот функции шифровки/расшифровки файла...спасибо BDA ))

При сохранении файл шифруется с ключом и сохраняется с моим расширением (*.xtst), при открытии-расшифровывается файл, но сначала ищутся все файлы *.xtst

function encrypt(const text, key: string): string;  
var
  i, p1, p2, len: integer;
  s: string;
begin
  s := text;
  len := length(key);
  for i := 1 to length(text) do
  begin
    p1 := pos(text[i], alp);
    if p1 = 0 then
      continue;
    p2 := pos(key[(i - 1) mod len + 1], alp);
    s[i] := alp[(p1 + p2 - 1) mod alplen + 1];
  end;
  result := s;
end;



function decrypt(const text, key: string): string;   
var
  i, p1, p2, len: integer;
  s: string;
begin
  s := text;
  len := length(key);
  for i := 1 to length(text) do
  begin
    p1 := pos(text[i], alp);
    if p1 = 0 then
      continue;
    p2 := pos(key[(i - 1) mod len + 1], alp);
    s[i] := alp[(p1 - p2 - 1 + alplen) mod alplen + 1];
  end;
  result := s;
end;

Дак вот, вопрос: все-таки как лучше сделать:

записать контрольную сумму в последнюю строку файла перед сохранением, а при открытии одного из файла извлекать сумму из последней строки, в числовую переменную
Перезаписать в память расшифрованный файл без контрольной суммы (Он уже расшифрован и находится в TstringList).
Сохранить содержимое стринглиста в файл, применить ту же функцию, которая записала контрольную сумму при создании файла, записать во вторую переменную
Удалить файл, который использовался, но не трогать исходный
Сравнить две переменных
Вывод сообщение об ошибке.

С предложением удалить файл или продолжить с ним работу на страх и риск препода :D

Вот как-то так? Если не прав-поправьте. Прошу объяснить все максимально доступно...

По коду, который выше, вот этому:
1. зачем там массив от 0..500? Что если будет выход за рамки (пытаюсь понять код, копипасту не приветствую).

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;

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

function Tform1.GetCheckSum(FileName: string): DWORD;-возникает ошибка

[Stilet]

Я бы в файле ответ первые 8-10 или сколько там нужно байт под контрольную сумму (или правильнее назвать это подписью), и перезаписывал бы туда.

[Алексей_2012]

А с ошибкой как быть? Не компилируется почему-то.

[Аватар]

Ну видимо в описании формы не прописана - в паблике пропиши. А еще лучше вынести в отдельный юнит её и ей подобные если есть