Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Авг

Зашифровать текстовый файл

Posted by micher under Delphi

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

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.