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

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

Форум программистов > Delphi: Общие вопросы > Зашифровать TMemoryStream

Автор: Keeper89 8.12.2009, 01:35

Доброго времени суток!

Пытаюсь зашифровать TMemoryStream с помощью DCPrypt, в TMemoryStream загружается файл (большой ~ 250 Мб). Хотелось бы иметь процедуру/функцию, в которую передается мой экземпляр TMemoryStream и возвращается обратно зашифрованным.

1) Как это лучше сделать (какой выбрать алгоритм, наиболее важна скорость);
2) Как вообще зашифровать TMemoryStream (в примерах идут только файлы); smile

Заранее спасибо.

Автор: kami 8.12.2009, 08:47

Цитата(Keeper89 @ 8.12.2009, 01:35

)

(какой выбрать алгоритм, наиболее важна скорость

На моей машине самым быстрым оказался TDCP_Blowfish

Цитата(Keeper89 @ 8.12.2009, 01:35

)

Как вообще зашифровать TMemoryStream (в примерах идут только файлы);

А какая разница? И TFileStream и TMemoryStream это наследники Tstream, а у TDCP_Cipher есть метод EncryptStream.

Автор: Keeper89 8.12.2009, 17:57

kami, а как лучше работать с этим классом? В примерах к исходникам - один способ, в нашей http://forum.vingrad.ru/articles/topic-219951/kw-dcpcrypt-delphi-%D1%88%D0%B8%D1%84%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5-%D1%85%D1%8D%D1%88-%D0%BA%D1%80%D0%B8%D0%BF%D1%82%D0%BE%D0%B3%D1%80%D0%B0%D1%84%D0%B8%D1%8F/hl/dcrypt+%25D1%2581%25D1%2582%25D0%25B0%25D1%2582%25D1%258C%25D1%258F/index.html - другой.

Автор: kami 8.12.2009, 19:14

Цитата(Keeper89 @ 8.12.2009, 17:57

)

В примерах к исходникам - один способ, в нашей винградовской статье - другой.

Вот честно - кроме как в использовании различных потомков TDCP_Cipher (соответственно - реализующих разные алгоритмы шифрования) разницы в примерах не увидел.
Что значит - как лучше работать? Имхо, как будет тебе лучше/понятнее/короче, так и нужно работать.
Единственный совет - объявлять все классы для шифрования как TDCP_Cipher, а уже непосредственно при создании указывать конкретного потомка, например

Код


var
  Cipher:TDCP_Cipher;
//
Cipher:=TDCP_Blowfish.Create;

Автор: Keeper89 8.12.2009, 23:12

Цитата(kami @ 8.12.2009, 19:14

)

Что значит - как лучше работать?

Я имел ввиду по синтаксису, например ставить блок try или нет, включать хеш-функцию (как в демках) или нет.

Сделал так, вроде бы работает (этот фрагмент для дешифрования):

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  g_MyStream: TMemoryStream;
begin
  g_MyStream := TMemoryStream.Create;
  try
    g_MyStream.Clear;
    g_MyStream.LoadFromFile('1.txt');

    Cipher := TDCP_Blowfish.Create(Self);
    try
      Cipher.InitStr(MY_PASSWORD_STRING, TDCP_sha1);
      Cipher.Decrypt(g_MyStream.Memory^, g_MyStream.Memory^, g_MyStream.Size);
      Cipher.Burn;
    except
      Cipher.Free
    end;

    Memo1.Lines.LoadFromStream(g_MyStream);
  finally
    g_MyStream.Free;
  end;
end;

Вот, остался вопрос по аргументам InitStr:
1) с первым понятно - это наша строка для шифрования;
2) а вот во втором какой лучше класс выбрать?

Автор: kami 9.12.2009, 01:23

Цитата(Keeper89 @ 8.12.2009, 23:12

)

ставить блок try или нет, включать хеш-функцию (как в демках) или нет.

Тут вариантов 2 - или ставить, или нет smile

По "классике" скорее всего нужно, но я на практике ни разу не сталкивался с исключениями при Encrypt|Decrypt. Правда, "ручками" отслеживаю наличие самого Cipher-а, его проинициализированность и валидность буферов. Вот при использовании FastZLib да, какая-то комбинация байт вызывала исключение (выловил при сжатии файлов).

Цитата(Keeper89 @ 8.12.2009, 23:12

)

а вот во втором какой лучше класс выбрать?

ХЗ. Я тоже взял sha1.

P.S. "я ..." в большей степени читать как imho. smile

Автор: Keeper89 9.12.2009, 12:48

kami, спасибо, пока тему прикрою.