Как зашифровать текстовый файл на Делфи?

[Ramal]

Всем привет!
Делаю небольшую программу Тест - Проверка знаний.Хочу признаться что исходник не мой,там все вопросы и ответы сохранены в текстовом файле.Вот и вопрос,как мне его зашифровать чтобы никто не смог увидеть ответы?
Программа почти что готова.

п.с это заказ клиента.Небольшие деньги но все же на сигаретку пивка и на дорогу хватит ребята помогите мне ...спасибо всем

[psycho-coder]

Вот в виде библиотеки. Его можно от туда выдрать. Писал прогу похожую на твою и именно эту либу использовал. Либу писал сам.
Можно один раз пройтись. Можно два ))

library crypt;

uses
  SysUtils,
  Classes;

procedure CryptFile(const fileName: String); StdCall;
var
  fs: TFileStream;
  i, len: Longint;
  c1, c2: Byte;
begin
  try
    fs := TFileStream.Create(fileName, fmOpenReadWrite);
    len := fs.Size;
    for i := 0 to len - 2 do
    begin
      fs.Seek(i, soFromBeginning);
      fs.Read(c1, 1);
      fs.Seek(i+1, soFromBeginning);
      fs.Read(c2, 1);
      c1 := c1 + c2;
      fs.Seek(i, soFromBeginning);
      fs.Write(c1, 1);
    end;
    
    for i := 0 to len - 2 do
    begin
      fs.Seek(i, soFromBeginning);
      fs.Read(c1, 1);
      fs.Seek(i+1, soFromBeginning);
      fs.Read(c2, 1);
      c1 := c1 + c2;
      fs.Seek(i, soFromBeginning);
      fs.Write(c1, 1);
    end;
    fs.Free;    
  except
    fs.Free;
  end;
end;

procedure DeCryptFile(const fileName: String); StdCall;
var
  fs: TFileStream;
  i, len: Longint;
  c1, c2: Byte;
begin
  try
    fs := TFileStream.Create(fileName, fmOpenReadWrite);
    len := fs.Size - 1;
    for i := len downto 1 do
    begin
      fs.Seek(i, soFromBeginning);
      fs.Read(c1, 1);
      fs.Seek(i-1, soFromBeginning);
      fs.Read(c2, 1);
      c1 := c2 - c1;
      fs.Seek(i-1, soFromBeginning);
      fs.Write(c1, 1);
    end;

    for i := len downto 1 do
    begin
      fs.Seek(i, soFromBeginning);
      fs.Read(c1, 1);
      fs.Seek(i-1, soFromBeginning);
      fs.Read(c2, 1);
      c1 := c2 - c1;
      fs.Seek(i-1, soFromBeginning);
      fs.Write(c1, 1);
    end;
    fs.Free;
  except
  end;
end;

exports CryptFile index 10;
exports DeCryptFile index 20;

begin
end.

[Ramal]

блин как мне этот форум нравиться !!! не прошло пол минуты и ответ уже готов) спасибо

[The Best]

psycho-coder, +1.

[Serge_Bliznykov]

То, что проблема решена, это отлично!

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

1) в обычной жизни отлично себя рекомендует обычный xor При достаточной длинной строке ключа шифр получается вполне стойкий даже к частотному анализу и простым методам криптоанализа.
Так что - рекомендую!
Удобство XOR в том, что Символ xor Ключ = Зашифрованный Символ
а затем Зашифрованный Символ xor Ключ = Символ
Только не используйте в качестве ключа ОДИНОЧНЫЙ символ! Такой символ находится быстро!

2) есть отличные бесплатные библиотеки, которые обеспечат шифрацию, стандартными криптоалгоритмами (Rijndael (он же AES) , Blowfish и т.д.)

[Ramal]

Точно,об этом вчера я и читал,но все это мне показалось занудным. Как вы думаете для таких целей подходят готовые компоненты или все через библиотеки надо делать? я вообще в криптографии не разбираюсь,вот уже целый час сижу и разбираюсь исходником от psycho-coder ))

[Stilet]

А я дополню моего уважаемого коллегу, Сержа, сократив код до такого:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;

     function XORString(str:String; XORKey:byte):string;
var e:integer;
begin
 result:='';
    //********* FOR ******************
    for e :=1  to length(str) do
    begin
      result:=result+chr(byte(str[e]) xor XORKey);
    end;
    //******* END FOR ****************{}
end;

begin
 AssignFile(input,'file2.txt');reset(input);
 AssignFile(output,'file3.txt');rewrite(output);
  while not eof(input) do begin
   readln(s);
   write(XORString(s,200));
  end;
 CloseFile(output);
 CloseFile(input);
  { TODO -oUser -cConsole Main : Insert code here }
end.

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

ак вы думаете для таких целей подходят готовые компоненты или все через библиотеки надо делать?

Значения не имеет. Важно каким механизмом шифровать. Ну для студней вот это подойдет

[psycho-coder]

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

А я дополню моего уважаемого коллегу, Сержа, сократив код до такого:
[CODE]program Project1;
...

То есть, если я правильно понял, то Ваш алгоритм с XOR, при первом проходе по файлу шифрует, а при втором расшифровывает его?

[Alter]

Можно ещё пройтись Base64(даже много раз).

[Stilet]

при первом проходе по файлу шифрует, а при втором расшифровывает его?

Угадал. функций обратимых в математике мирриады. Я например раньше пользовался шифрованием SIN-TAN<->ArcTAN-ArcSIN. Тоже крутой шифр получался )