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

made in programmersforum 4

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

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

2nd
Июл

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

Posted by Chas 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.

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

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

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

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

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.