MD5 Implementation für Delphi 2009

[hitzi]

Hallo,

ich reihe mich mal hier mit ein.
Unter Delphi 2009 und den Units von Gammatester bekomme ich nicht den richtigen CRC.

Hier ist mein Beispielprogramm:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, md5, hash, mem_util;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    edt2: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function HexString(const x: array of byte): string;
  {-HEX string from memory}
begin
  Result := HexStr(@x, sizeof(x));
end;

procedure TForm1.btn1Click(Sender: TObject);
var MD5Context   : TMD5Digest;
begin
  MD5Full(MD5Context, @edt1.Text[1], length(edt1.Text) * SizeOf(Char));
  edt2.Text := HexString(MD5Context);
end;

end.

Beispieltext ist

Zitat:

Thomas

Vergleichsresultat von http://www.hashgenerator.de/: ef6e65efc188e7dffd7335b646a85a21
Das falsche Resultat von meinem Testprogramm: e7153adbc66d908704b472c4d58e96d3

Liegt garantiert an der Unicode Geschichte. Wie kann ich nun unter Delphi 2009 einen MD5 Hash aus einem String errechnen lassen?

Viele Grüße