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

[Wanderer1977]

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

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

Видел...Пробовал...
Почему-то не получилось...Попробую еще раз на свежую голову...

[GunSmoker]

Эй, погоди, ты же TIdHashMessageDigest5 используешь. Как это ты умудрился использовать явно неправильный HashBytesAsHex, но не увидеть метода HashBytes?

[Wanderer1977]

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

Эй, погоди, ты же TIdHashMessageDigest5 используешь. Как это ты умудрился использовать явно неправильный HashBytesAsHex, но не увидеть метода HashBytes?

в хэлпе его не увидел...

[GunSmoker]

Он унаследованный. Может не там смотрел.

[Wanderer1977]

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

Он унаследованный. Может не там смотрел.

Возможно

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


----------------------------------
var
 str1,str2:String;
 md5_all: String;
 str1_md5,str2_md5:UTF8string;
 str1_md5_arr,str2_md5_arr,str1_byte,str2_byte: TBytes;

begin
 
 str1_byte:=TEncoding.UTF8.getbytes(str1);
  str1_md5_arr:=MD5(str1_byte);
  str1_md5:=TEncoding.UTF8.getString(str1_md5_arr);

а str1_md5,str2_md5 должны быть UTF8string ?

[GunSmoker]

а str1_md5,str2_md5 должны быть UTF8string ?

По первой прикидке - да.

[Wanderer1977]

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

По первой прикидке - да.

странно...

str1_md5_arr:=MD5(str1_byte); равен (159, 46, 177, 28, 188, 204, 227, 177, 197, 56, 116, 195, 41, 92, 35, 56)

str1_md5:=TEncoding.UTF8.getString( str1_md5_arr); - почему-то пустой...Не выполняется получение строки...

Не подскажете в чем может быть проблема?