Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Дешифрование с помощью RC6

Автор: TEO 5.6.2015, 16:32

Добрый день.

Шифрую файл base.txt с помощью алгоритма RC6 все нормально, на выходе получаю base_Encrypt.txt

Цитата

var
Str1, Str2 : TFileStream;
begin
Str1 := TFileStream.Create('base.txt', fmOpenRead);
Str2 := TFileStream.Create('base_Encrypt.txt', fmCreate);
EncryptCopy(Str2, Str1, Str1.Size, 'dldj4nfif');
Str1.Free;
Str2.Free;
end;

Текстовый файл вот такого плана

Цитата

!Холодильники
Samsung,10
Nord,14
Ariston,23
!Телевизоры
Sony,15
Philips,12
Электрон,8
!Телефоны
Apple,5
Asus,3
HTC,29
Lenovo,43
LG,20
Nokia,11
Samsung,42
Sony,18

Не зашифрованный файл я гружу в TreeView вот так:

Цитата

var
  i, j, z: Integer;
  Tree: TTreeNode;
  Str: TStringList;
begin
  try
    j := 0;
    Tree := nil;
    Str := TStringList.Create;
    if FileExists('base_Encrypt') then
    begin
      Str.LoadFromFile('base_Encrypt');
    end;

    for i := 0 to Str.Count - 1 do
    begin
      if Str.Strings[i][1] = '!' then
      begin
        Tree := TreeView1.Items.Add(nil, Copy(Str.Strings[i], 2, 255))
      end
      else
      begin
        j := j + 1;
        SetLength(mas, j);
        mas[j - 1].Название := Copy(Str.Strings[i], 1,
        Pos(',', Str.Strings[i]) - 1);
        TreeView1.Items.AddChild(Tree, mas[j - 1].Название).StateIndex := j - 1;
        end;
      end;
    FreeAndNil(Str);
  except
  end;
end;

Вопрос, а как правильно загрузить зашифрованный файл в TreeView

Алгоритм RC6 брал отсюда: http://delphiworld.narod.ru/download/rc6_encryption.html

В нем есть функции:
function DecipherBlock(var Block): Boolean;
function DecryptCopy(DestStream, SourseStream : TStream; Count: Int64;
function DecryptStream(DataStream: TStream; Count: Int64; Key: string): Boolean;

Автор: Illusion Dolphin 5.6.2015, 19:06

Цитата

Вопрос, а как правильно загрузить зашифрованный файл в TreeView

1) Расшифровать
2) Сделать те же действия, что и для не зашифрованного

Ваш КЭП

Автор: TEO 5.6.2015, 22:34

Цитата(Illusion Dolphin @ 5.6.2015, 19:06)

Цитата

Вопрос, а как правильно загрузить зашифрованный файл в TreeView

1) Расшифровать
2) Сделать те же действия, что и для не зашифрованного

Ваш КЭП

Если бы я знал, я наверное бы не задавал вопрос на форуме.

А Ваш ответ из разряда спама больше.

Добавлено через 1 минуту и 6 секунд
Не знаю как применить функцию Decrypt

Автор: Illusion Dolphin 5.6.2015, 23:08

Цитата

Не знаю как применить функцию Decrypt

Ну вот, видите, со второго раза и вопрос задали совсем другой smile

Где-то так

Цитата

var
  Str1 : TFileStream;
  Str2 : TMemoryStream;
  Str: TStringList;
begin
Str1 := TFileStream.Create('file_name', fmOpenRead);
try

   Str2 := TMemoryStream.Create();
   try

     DecryptCopy(Str2, Str1, Str1.Size, 'pass');

     Str2.Seek(0, soFromBeginning);
     Str := TStringList.Create;
     try
       Str.LoadFromStream(Str2);
       //use it here, bro
     finally
       Str.Free;
     end;

   finally
    Str2.Free;
   end;
finally
   Str1.Free;
end;
end;

Автор: TEO 6.6.2015, 10:56

Большое спасибо. То что надо, работает.