in delphi 7 den md5 wert der php function md5() erhalten

[Tanc]

Hallo

Also, kann sein das mein Topic etwas wenig Aussagekräftig ist. Mir ist aber in der kürze nichts bessere eingefallen.
Mein Problem ist folgendes: ich erzeuge auf einer php seite einen md5 hash mittels der php function md5(): ( http://de.php.net/md5 ).
Dieser ist dann als String verfügbar.
Ich lade den nun über indy mit http.get runter.
Nun will ich in meinem Delphi Programm mit den selben (!) eingabe Daten wie im php script den selben md5 string bekommen.
Das klappt aber nicht, ich habe zum md5 hash erstellen und umwandeln zuerst die units von hier: http://www.delphipraxis.net/internal...?p=65677#65677
benutzt und dann noch die DEC Units ( http://www.michael-puff.de/Developer...agen_Reddmann/ ) probiert.
Alle liefern mir unterschiedliche Strings für die selben Eingaben.

Mein Ziel ist es, Zu vergleichen ob die Hashes die selben sind, oder ob ein anderer Hash gesendet wurde, obwohl die Ausgangsdaten die gleichen sind.

Die php function bietet noch die Möglichkeit sich die raw daten des md5 hashes auf eine variable speichern zu lassen, da weiß ich aber nicht wie ich sie am besten mit delphi empfange.

Gibt es irgendwie noch andere Units die md5 hashes erstellen ? Oder habt ihr noch eine Idee wie ich das Problem lösen könnte ?
Immerhin werden die md5 hashes ja alle nach dem selben rfc standard erstellt.

Tanc

ps: Sorry falls es im falschen Bereich ist, wusste nicht wo ich das am Besten unterbringe.

[jfheins]

Was bekommst du denn mit dem DEC?

Eigentlich ist MD5 festgelegt, d.h. egal welche implementierung du beutzt, es kommt imer dasselbe raus, ,für die gleichen eingangsparameter.

Was tust du rein? vll. liegt es auch daran

[Tanc]

Hm, also, bei php folgendes zum testen:

<?php
echo md5("abcde");
?>
ergibt als ausgabe: ab56b4d92b40713acc5af89985d4b786

in delphi;
Edit1.Text := THash_MD5.CalcString('abcde'); Ergibt: q1a02StAcTrMWviZhdS3hg==

[Dax]

Edit1.Text := THash_MD5.CalcString('abcde', 16); Mal wild in den Raum geraten.

[Die Muhkuh]

Edit1.Text := THash_MD5.CalcString('abcde', TFormat_Hex); müsste es sein

[Tanc]

Edit1.Text := THash_MD5.CalcString('abcde', 16);

[Fehler] ... : Es gibt keine überladene Version von 'CalcString', die man mit diesen Argumenten aufrufen kann

Edit1.Text := THash_MD5.CalcString('abcde', TFormat_Hex);

[Fehler] ... : Undefinierter Bezeichner: 'TFormat_Hex' uRssRdr1.pas(752


oder mach ich noch was falsch ?

[Die Muhkuh]

DECFormat-Unit einbinden, bin mir nicht sicher, ob sie so heißt, schau mal nach, in welcher Datei die Klassen TFormat_* definiert sind.

[KingIR]

Alternativ die wcrypt2-API-Header-Unit von der Jedi-Seite laden und den Rest Windows überlassen: http://irsoft.de/web/Delphi-MD5 Da gibts definitiv das gleiche Ergebnis wie in PHP, vorausgesetzt natürlich der String is auch aufs Byte genau gleich.

[Tanc]

Danke für eure Hilfe, hat jetzt beides funktioniert.

Ich hatte noch ne alte Version von der DCE, da war zb die Funktion noch mit CalcString, mit 5.1 und DCEFmt.dcu gings dann. Liefert nun auch das selbe wie md5().
Die andere Version ging auch gut

Tanc