bytes to MD5 ?

[bitSoft]

Zdrastvuite , pomoghite perevesti etot kod iz C# :

byte[] buffer1; //....
byte[] buffer = new MD5CryptoServiceProvider().ComputeHash(buffer1);
   ....

Kak mojna v Delphi zdelati toje takoe.
Spasibo.

[veniside]

в инди есть мд5

uses IdHashMessageDigest, idHash;
 
 //returns MD5 has for a file
 function MD5(const fileName : string) : string;
 var
   idmd5 : TIdHashMessageDigest5;
   fs : TFileStream;
   hash : T4x4LongWordRecord;
 begin
   idmd5 := TIdHashMessageDigest5.Create;
   fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
   try
     result := idmd5.AsHex(idmd5.HashValue(fs)) ;
   finally
     fs.Free;
     idmd5.Free;
   end;
 end;

[Serge_Bliznykov]

или взять на форуме готовый автономный модуль umd5.pas
(например, здесь )

p.s. внимание, если Delphi версия >= 2009, тогда надо брать модуль здесь

[bitSoft]

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

esli kamuto nado ...
Spasibo veniside

[bitSoft]

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

или взять на форуме готовый автономный модуль umd5.pas
(например, здесь )

p.s. внимание, если Delphi версия >= 2009, тогда надо брать модуль здесь

spasibo , uje razbiral, rabotaet kak nujno.
Udachi vsem.