Шифрование файла

[fairplau]

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

procedure TForm5.Button1Click(Sender: TObject);
var
  IniF: TIniFile;
  i, j: Integer;
  V: TVopros;
  s1, s2: String;
begin

  if SaveDialog1.Execute then begin

    IniF := TIniFile.Create (SaveDialog1.FileName);

    IniF.WriteInteger ('Caption', 'Count', ListBox1.Items.Count);
    for i := 1 to ListBox1.Items.Count do begin
      s1 := 'Vopros' + IntToStr(i);
      V := TVopros (ListBox1.Items.Objects[i-1]);
      IniF.WriteString (s1, 'Vopros', V.Vopros);
      IniF.WriteInteger (s1, 'Count', Length (V.Otveti));
      for j := 1 to Length (V.Otveti) do begin
        s2 := 'Otvet' + IntToStr(j);
        IniF.WriteString (s1, s2, V.Otveti[j-1]);
      end;
      IniF.WriteInteger (s1, 'Pravelno', V.Pravelno);
    end;





    IniF.Free;
  end;
end;

[Stilet]

CryptoAPI использовать можно?

[Serge_Bliznykov]

fairplau, Вы всё еще до сих пор не доделали свой тестер? я думал, что Вы давно всё сделали и сдали!

И как срочно Вам нужно добавить шифрацию?

[fairplau]

Сообщение от Serge_Bliznykov

fairplau, Вы всё еще до сих пор не доделали свой тестер? я думал, что Вы давно всё сделали и сдали!

И как срочно Вам нужно добавить шифрацию?

Почти всё)
Осталось сделать шифрацию, я пробывал xor, но чего-то как-то не получилось, времени в обрез осталось

[fairplau]

Сообщение от Stilet

CryptoAPI использовать можно?

Да тут обычную школьную шифрацию сделать и всё, замену букв например другими буквами, я пробывал, но бестолку

[min@y™]

я пробывал, но бестолку

покажи .

з.ы. В твоей стране ЕГЭ в школах сдают?

[Stilet]

замену букв например другими буквами

Могу посоветовать: http://www.programmersforum.ru/showthread.php?t=6819

[fairplau]

Сообщение от min@y™

покажи .

з.ы. В твоей стране ЕГЭ в школах сдают?

Я не в школе и учусь то, сообственно говоря, делал я через xor, в начале юнита вставил функцию всё как положено, а вот когда перед сохранением код вставлял, так он ругается

 listbox1.items.text:=(xXor(listbox1.items.text, 1));

Ой нее, я прочёл, там очень уж сложные системы защиты, мне нужно простенькая, но не как не могу осилить

[min@y™]

Я не в школе и учусь то, сообственно говоря

я не об этом спрашивал.

делал я через xor, в начале юнита вставил функцию всё как положено, а вот когда перед сохранением код вставлял, так он ругается

правильно делает, что ругается!
Не надо XOR, если хранить после шифорования будешь в текстовом файле. И не спрашивай почему, просто доверься мне.

Чтобы всё добро сохранилось в текстовом виде, пройдись по ней XOR-ом (хрен с ним, пусть будет XOR), а потом закодируй полученную строку, ну, скажем, в base64. Вот тебе и детское шифрование.

[R71MT]

Сообщение от fairplau

времени в обрез осталось

..тогда не заморачивайся, а просто спрячь этот файл, например в поток.
Допустим, что вопросы с ответами лежат у тебя в файле "test.txt", тогда прогнав его через ком.строку ты сможешь переписать его в поток таким образом:

C:\Temp> more < test.txt > test.txt:xxx

..теперь, открываеш свой файл "test.txt" и удалив с него все строки, сохраняешь. Размер получается 0 байт. Пусть юзеры ищут его содержимое!

Когда надо будет прочитать его, вводишь имя файла вместе с именем потока (:ххх), и получаешь его содержимое:

C:\Temp> more < test.txt:xxx
This file of the questions for test application.

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

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