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

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

Форум программистов > Delphi: Для новичков > dcpcrypt2 + sha256 + хеш строки

Автор: chiffa 19.4.2011, 17:52

Добрый день. Возник вопрос. Необходимо взять хеш-строки. По примерам пытался делать так:

Код


var Cipher: TDCP_sha256;
StrR: string;

Cipher:= TDCP_sha256.Create(nil);
  StrR:= Cipher.EncryptString('test');
  Cipher.Burn;
  Cipher.Free;

и ругается на строку: Undeclared identifier: 'EncryptString', понимаю неправильно описываю или нехвататет каких либо параметров... Примеров в сети найти не удалось... Если не затруднит приведите пример как правильно использовать TDCP_sha256?...
Заранее благодарен за помощь!

Автор: kami 20.4.2011, 07:36

Цитата(chiffa @ 19.4.2011, 17:52

)

приведите пример как правильно использовать TDCP_sha256?

в поставке dcpcrypt есть папка docs. там - файл Hashes.html. с примерами.

Автор: chiffa 20.4.2011, 08:36

Код


var Hash: TDCP_sha256;

Hash:= TDCP_sha256.Create(nil);
    Hash.Init;
    Hash.Update('test',100);
    Hash.Final(Output);
    Hash.Free;

ShowMessage(Output);

такой код не сработал... Компилится удачно, но при попытке шифрования пишет "Access violation at address...."

Автор: kami 20.4.2011, 18:26

Цитата(chiffa @ 20.4.2011, 08:36

)

Hash.Final(Output)

эта строка должна выглядеть так:

Код


SetLength(Output, (Hash.HashSize div 8) div SizeOf(Char));
Hash.Final(Output[1]);

только нормального отображения не нужно ждать, там будут в основном неотображаемые символы.
пояснять, почему твой код не сработал - чуть-чуть лень, потому что пишу на виртуальной клавиатуре smile

Автор: chiffa 21.4.2011, 10:33

kami, пасиба!