VPF::Зашифровать TMemoryStream - Форум программистов

Keeper89

Дата 8.12.2009, 01:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

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

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

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

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

Это сообщение отредактировал(а) Keeper89 - 8.12.2009, 17:55

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 8.12.2009, 08:47 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(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 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

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

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 8.12.2009, 19:14 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

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

)

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

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

Код


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

Keeper89

Дата 8.12.2009, 23:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(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) а вот во втором какой лучше класс выбрать?

Это сообщение отредактировал(а) Keeper89 - 8.12.2009, 23:45

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

kami

Дата 9.12.2009, 01:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

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

)

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

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

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

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

)

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

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

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

Это сообщение отредактировал(а) kami - 9.12.2009, 01:26

Keeper89

Дата 9.12.2009, 12:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

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

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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