VPF::Дешифрование с помощью RC6 - Форум программистов

TEO

Дата 5.6.2015, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.5.2005

Репутация: нет
Всего: нет

Добрый день.

Шифрую файл 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 брал отсюда: Алгоритм шифрование RC6

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

Это сообщение отредактировал(а) TEO - 5.6.2015, 17:11

Illusion Dolphin

Дата 5.6.2015, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

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

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

Ваш КЭП

Это сообщение отредактировал(а) Illusion Dolphin - 5.6.2015, 20:26

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

TEO

Дата 5.6.2015, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.5.2005

Репутация: нет
Всего: нет

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

Цитата

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

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

Ваш КЭП

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

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

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

Illusion Dolphin

Дата 5.6.2015, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

Не знаю как применить функцию 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.5.2005

Репутация: нет
Всего: нет

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »