MD5 auf Steuerzeichen

anno2007 · Beiträge: 68 Win 7, Ubuntu Delphi XE

Hey,
ich lese eine Datei als String ein, und übergebe dann einen Teil des Strings an diese Funktion:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function MD5String(const Input:string):string;
var
    IDMD5:TIdHashMessageDigest5;
begin
    IDMD5:=TIdHashMessageDigest5.Create;
    try
        Result:=LowerCase(IDMD5.HashStringAsHex(Input));
    finally
        IDMD5.Free;
    end;
end;

Leider sind in den Strings Steuerzeichen drin und es kommt irgendwie ein anderer MD5 Hash dabei raus, als PHP liefert.
Irgendwie werden die Zeichen anders interpretiert als in PHP.
Hat da jemand ne Idee?

Danke,
anno2007 :)

Moderiert von Narses: Topic aus VCL (Visual Component Library) verschoben am Mo 03.01.2011 um 22:50

Gausi · Verfasst: Mo 03.01.11 21:39

Ich tippe eher darauf, dass da was mit Delphi XE und Unicode durcheinander kommt. Schau dir mal die MD5-Methoden an - die müsstest du auf AnsiString umschreiben, damit PHP dasselbe liefert wie das neue Delphi.

_________________
We are, we were and will not be.

anno2007 · Beiträge: 68 Win 7, Ubuntu Delphi XE

Hmm,
ok danke.

Ich weis nicht ob ich das hinbekomme da was umzuschreiben weil ich zu wenig Ahnung davon habe.
Naja ich probiere es.

Danke für die Antwort.

/Edit:

Hier hab ich übrigens die Lösung gefunden (falls jemanden noch interessieren sollte):
stackoverflow.com/qu...shing-in-delphi-2009

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

uses Types, MessageDigest_5;

procedure TForm16.Edit1Change(Sender: TObject);
var
  MD5: IMD5;
begin
  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(Edit1.Text)), Length(RawByteString(Edit1.Text)));
  Edit2.Text := LowerCase(MD5.AsString);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme