Проблема с переносом из .net на Delphi

[Wanderer1977]

День добрый!
Возникла необходимость перенести метод, реализованный на Embarcadero Prism на Делфи 2009.

method GenPassword:String;
var
 str1, str2, str1_md5, str2_md5: String;
 str_byte, str1_md5_arr, str2_md5_arr:array of Byte;
 utf8_str:= new UTF8Encoding;
 md5_sum: MD5;  
begin
 md5_sum:=md5.Create;
 md5_sum.Initialize;

 str1:='< Solt1 >';
 str_byte:=UTF8_str.getbytes(str1);
 str1_md5_arr:=md5_sum.ComputeHash(str_byte);
 str1_md5:=utf8_str.GetString(str1_md5_arr);

 str2:='< solt2 >';
 str_byte:=UTF8_str.getbytes(str2);
 str2_md5_arr:=md5_sum.ComputeHash(str_byte);
 str2_md5:=utf8_str.GetString(str2_md5_arr);

 result:=str1_md5+str2_md5;
end;

на делфи получилось вот что:

function MD5(const Bytes : TBytes) : String;
var
   idmd5 : TIdHashMessageDigest5;
begin
   idmd5 := TIdHashMessageDigest5.Create;
   try
     result :=LowerCase(idmd5.HashBytesAsHex(Bytes));
   finally
     idmd5.Free;
   end;
end;


procedure TForm1.Button1Click(Sender: TObject);

var
 str1,str2:String;
 str1_md5,str2_md5:String;
 md5_all: String;
 str1_byte,str2_byte,Str_byte: TBytes;

begin

  str1:='< solt1 >';
  str1_byte:=TEncoding.UTF8.getbytes(str1);
  str1_md5:=MD5(str1_byte);

  str2:='< solt2 >';
  str2_byte:=TEncoding.UTF8.getbytes(str2);
  str2_md5:=MD5(str2_byte);

  md5_all:=(str1_md5+str2_md5);

А дальше полный ступор: не могу понять как сделать кодировку как в Призме. Там на выходе получается строка в кодировке utf8, которая в отладчике выглядет

0�a�"d���G�e�F%3��ʧ¨�y���

[GunSmoker]

Вас не смущает, что в варианте под .NET вы MD5 получаете как двоичное значение, а в варианте под Delphi - как строку?

Там на выходе...

"Там" - это где?

[Wanderer1977]

Сообщение от GunSmoker

Вас не смущает, что в варианте под .NET вы MD5 получаете как двоичное значение, а в варианте под Delphi - как строку?

Насчет двоичных значений не понял...

HashAlgorithm.ComputeHash - метод (Byte[])
Вычисляет хэш-значение для заданного массива байтов.

Параметры
Тип: System.Byte[] Входные данные, для которых вычисляется хэш-код.
Возвращаемое значение
Тип: System.Byte[] Вычисляемый хэш-код.

http://msdn.microsoft.com/ru-ru/library/s02tk69a.aspx

Сообщение от GunSmoker

"Там" - это где?

на выходе метода, который выполняю в отладчике Prism

[GunSmoker]

Насчет двоичных значений не понял...

Prism:

str1_md5_arr: array of Byte;
str1_md5_arr:=md5_sum.ComputeHash(str_byte);

Delphi:

str1_md5: String;
str1_md5:=MD5(str_byte);

Либо Prism, либо Delphi надо менять.

[Wanderer1977]

Сообщение от GunSmoker

Prism:

str1_md5_arr: array of Byte;
str1_md5_arr:=md5_sum.ComputeHash(str_byte);

Delphi:

str1_md5: String;
str1_md5:=MD5(str_byte);

Либо Prism, либо Delphi надо менять.

не, в призме менять нельзя... Там работает все правильно...Мне надо в Делфи как-то это повторить...

з.ы.
Мне казалось, что это не так важно т.к. значение md5 в результате должно быть одинаковое. Да и в Призме потом массив байтов все равно собирается в строку, только кодировка utf8

[GunSmoker]

Мне надо в Делфи как-то это повторить...

Тогда нужен MD5, который будет возвращать двоичное значение.

Мне казалось, что это не так важно т.к. значение md5 в результате должно быть одинаковое. Да и в Призме потом массив байтов все равно собирается в строку, только кодировка utf8

Не важно - что? Каким образом байты переводятся в строку? Почему это не важно? От этого напрямую зависит результат.

Код Prism переводит байты в строку прямым копированием. Код Delphi вообще не переводит байты в строку. Потому что ему уже возвращают строку. А что в строке? А в строке (скорее всего - тут я угадываю) HEX-представление MD5. А может быть и Base64. Ну, короче, должно быть что-то human-readable (иначе зачем возвращать хэш как строку?).

Надо ли говорить, что кодированное представление двоичной информации - это далеко не то же самое, что прямое копирование данных в строку?

[Wanderer1977]

а есть реализации MD5 в Delphi, которая считала бы md5 для массива байтов и возвращала результат в виде массива байтов?

Что-то типа MD5(TBytes):TBytes

[GunSmoker]

а есть реализации MD5 в Delphi, которая считала бы md5 для массива байтов и возвращала результат в виде массива байтов?

Гугл не пробовал? Говорят помогает.

[Wanderer1977]

Сообщение от GunSmoker

Гугл не пробовал? Говорят помогает.

Пробовал конечно, а потом уж решился тут спрашивать...

[GunSmoker]

Пробовал конечно, а потом уж решился тут спрашивать...

Первая же ссылка в гугле по "MD5 Delphi" (без кавычек).