Шифрование текстового файла

[Dezzy]

Есть текстовый документ, в нём содержится информация о сотрудниках:
Иванов И.И. назначен на должность главный бухгалтер
Петров В.А. назначен на должность главный инженер
Данилов А.В. назначен на должность администратор

Как зашифровать фамилию, имя, отчество и должность, на которую они назначены и сохранить назад в файл? В интернете не нашёл никакой информации.
Я связал делфи и текстовый файл. Вывел эти данные, которые нужно зашифровать. Но как зашифровать не могу понять.

var
f:textfile;
s,d:string;
i,p:integer;
begin
assignfile(f,'spr.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
d:=(copy(s,1,pos(' ',s)+4));
Memo1.Lines.Add(d);
i:=1;
p:=0;
while (i<=length(s))and(p<5) do
 begin
  inc(i);
  if s[i]=' ' then inc(p);
  if p=5 then p:=i;
 end;
s:=copy(s,p,length(s)-p+1);  
Memo1.Lines.Add(s); 
Memo2.Lines.Add(d+s); 
end;
end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

самый простой (и вместе с тем достаточно надёжный) способ шифрации - это XOR с многобайтным ключом.

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

Я связал делфи и текстовый файл.

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

вот, например, посмотрите на эту тему - https://www.programmersforum.ru/showthread.php?t=58277

p.s. это если Вам нужна "самопальная" шифровка. А так можно взять компоненты (в том числе бесплатные) которые реализуют стойкие серьёзные алгоритмы (Rijndael / AES, Blowfish, GOST, NewDES и многие, многие другие) - например, https://github.com/decfpc/DelphiEncryptionCompendium
или можно воспользоваться криптопровайдерами Windows.

[Dezzy]

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

самый простой (и вместе с тем достаточно надёжный) способ шифрации - это XOR с многобайтным ключом.


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

вот, например, посмотрите на эту тему - https://www.programmersforum.ru/showthread.php?t=58277

p.s. это если Вам нужна "самопальная" шифровка. А так можно взять компоненты (в том числе бесплатные) которые реализуют стойкие серьёзные алгоритмы (Rijndael / AES, Blowfish, GOST, NewDES и многие, многие другие) - например, https://github.com/decfpc/DelphiEncryptionCompendium
или можно воспользоваться криптопровайдерами Windows.

Спасибо

[northener]

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

А так можно взять компоненты (в том числе бесплатные) которые реализуют стойкие серьёзные алгоритмы (Rijndael / AES, Blowfish, GOST, NewDES и многие, многие другие)

Из пушки по воробьям, имхо. Серьёзные алгоритмы могут быть нужны для шифрования больших осмысленных текстов.
Для шифрования ТС XOR-а более чем достаточно. А если при шифровании заменять название должности на один символ, то вообще хрен расшифруешь.

[Serge_Bliznykov]

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

Из пушки по воробьям, имхо. Серьёзные алгоритмы могут быть нужны для шифрования больших осмысленных текстов.
Для шифрования ТС XOR-а более чем достаточно. А если при шифровании заменять название должности на один символ, то вообще хрен расшифруешь.

полностью согласен.
уверен, что XOR с головой хватит. и даже можно не морочить голову с кодированием должности.

А про сильное шифрование я пост потом дописал, когда подумал, что _ВДРУГ_ ему нужно что-то реально серьёзное.

[northener]

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

даже можно не морочить голову с кодированием должности.

"Ну уж если пошла такая пьянка", то особое кодирование должности достаточно важно. Ибо одно дело шифровать фамилии коим легион. И другое дело шифровать должности, которых не более 10.
А чем больше в зашифрованном тексте одинаковых слов, тем легче этот текст расшифровать.

[Dezzy]

При симметричном шифровании шифрую 8 строк, а на выходе получается 7 строк. Мне нужно получить 8 строк. Как это можно исправить?

var
i,a,b,h,x,y:integer;
text,pass,rez:string;
begin
//При нажатии на кнопку зашифровать текст из memo1 прибавляет к себе текст из edit1
//и в итоге получается зашифрованный текст в memo3

text:=Memo1.Text;
pass:=edit1.Text;
x:=length(text);   //x длина текста
y:=length(pass);   //y длина пароля
//Делаем цикл, чтобы хватало пароля для перекрытия текста
//Если размера пароля не будет хватить, то цикл зайдёт  заново
//и добавит пароль к паролю
while x>y do begin
 pass:=pass+edit1.Text;
 y:=length(pass);

 end;

//От первого символа до последнего символа текста берём и приставаиваем
//значения a и b номера в таблице ASCII
for i:=1 to x do begin
 a:=ord(text[i]);
 b:=ord(pass[i]);
 h:=a+b;
 if h>255 then h:=h-255;
 rez:=rez+chr(h);
 Memo3.Text:=rez;
 end;
end;

______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Serge_Bliznykov]

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

При симметричном шифровании шифрую 8 строк, а на выходе получается 7 строк.

шифруй каждую строчку Memo отдельно.

for k:=0 to Memo1.Lines.Count - 1 do begin
  text:=Memo1.Lines.Strings[k];
  ...
  <тут твоя шифрация>

   Memo3.Lines.Append( зашифрованная строчка )
end;

p.s. а зачем ты остановился на сумме символов? XOR же реально проще и удобнее!

[Dezzy]

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

шифруй каждую строчку Memo отдельно.

for k:=0 to Memo1.Lines.Count - 1 do begin
  text:=Memo1.Lines.Strings[k];
  ...
  <тут твоя шифрация>

   Memo3.Lines.Append( зашифрованная строчка )
end;

p.s. а зачем ты остановился на сумме символов? XOR же реально проще и удобнее!

Спасибо

[Serge_Bliznykov]

такой вариант попробуйте

procedure TForm1.Button1Click(Sender: TObject);
var
  i, a, b, h, x, y: integer;
  txt, pass, rez: string;
begi

  Memo3.Lines.Clear; // очистить Memo3

  for k := 0 to Memo1.Lines.Count - 1 do begin
    txt := Memo1.Lines.Strings[k];

    pass := edit1.Text;
    x := length(txt); //x длина текста
    y := length(pass); //y длина пароля
    //Делаем цикл, чтобы хватало пароля для перекрытия текста
    //Если размера пароля не будет хватить, то цикл зайдёт заново
    //и добавит пароль к паролю
    while x > y do begin
      pass := pass + edit1.Text;
      y := length(pass);
    end;

    //От первого символа до последнего символа текста берём и приставаиваем
    //значения a и b номера в таблице ASCII
    rez := '';
    for i := 1 to x do begin
      h := ord(txt[i]) + ord(pass[i]);
      if h > 255 then h := h - 255;
      rez := rez + chr(h);
    end;

    Memo3.Lines.Append(rez);

  end;
end;