From C# to Delphi, Calculate MD5

[bitSoft]

ести функ в C# надо зделати в Delphi

public static string a(byte[] A_0)
{
    byte[] buffer = new MD5CryptoServiceProvider().ComputeHash(A_0);
    StringBuilder builder = new StringBuilder();
    int num2 = buffer.Length - 1;
    for (int i = 0; i <= num2; i++)
    {
        builder.Append(buffer[i].ToString("x2"));
    }
    return builder.ToString();
}

вот што у меня получилоси

function TForm1.ha(A_O: Byte): string;
var
 builder : TStringBuilder;
 num2, i : integer;
begin
  buffer  := MD5CryptoServiceProvider.Create.ComputeHash(A_0);
  builder := TStringBuilder.Create;
  num2    := (buffer.Length - 1);
  i := 0;
    while ((i <= num2)) do
    begin
        builder.Append(buffer[i].ToString('x2'));
        inc(i)
    end;
    begin
        Result := builder.ToString;
        exit
    end
end;

но как поступать с этот MD5CryptoServiceProvider, и откуда взять, я незнаю,

MD5CryptoServiceProvider Class From Microsoft...

Спасибо.

[Stilet]

http://www.delphiworld.narod.ru/base/md5.html
http://www.delphiworld.narod.ru/base/hash_md5.html

[bitSoft]

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

http://www.delphiworld.narod.ru/base/md5.html
http://www.delphiworld.narod.ru/base/hash_md5.html

я про это знаю но как будет в моём случе?

Tak?

function h(A_0 : byte) : string;
begin
 Result := MD5DigestToStr(A_0);
end;

[Serge_Bliznykov]

нет, не так...
В C# передаётся МАССИВ байт,
а в вашем коде на Delphi - ОДИН байт

[bitSoft]

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

нет, не так...
В C# передаётся МАССИВ байт,
а в вашем коде на Delphi - ОДИН байт

да вапше как мне поступать?, и как работает это функ

а вот и втарая функ :

public static string c(string A_0)
{
    return ha(Encoding.ASCII.GetBytes("Test..." + A_0));
}

это я зделал :

function TForm1.hc(A_0: string): string;
begin
   Result := ha(Ord(Concat('Test...', A_0)))
end;

[Stilet]

как будет в моём случе?

В твоем случае никак ибо MD5CryptoServiceProvider это .NET класс.
Разве что ты будешь работать в Delphi.NET

[bitSoft]

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

В твоем случае никак ибо MD5CryptoServiceProvider это .NET класс.
Разве что ты будешь работать в Delphi.NET

а зделать аналогичную функу?, здесь оно делает MD5 но не панимаю этот цикл :

while ((i <= num2)) do
  begin
        builder.Append(buffer[i].ToString('x2')); // зачем здесь append и '2x'
        inc(i)
  end;