md5.pas bringt anderes Ergebnis als php md5

[tofse]

Hallo,
ich habe verschiedene md5.pas getestet, alle möglichen, die ich im Netz gefunden habe, aber die Funktionen bringen immer ein anderes Ergebnis als die md5 Funktion von php.
Hat da irgendjemand eine Idee?

Delphi-Quellcode:

.....
var
   cryptpass:string;
    i:Integer;
    c:String;
    a,o,n:byte;
begin    
    cryptpass:='';
    for i := 0 to Length(EditPW1.Text)-1 do
    begin
      c:=copy(EditPW1.Text,i+1,1);
      a:=ord(c[1]);
      o:=a-65;
      n:=(177+o+i);
      cryptpass:=cryptpass+chr(n);
    end;
    showmessage(cryptpass+#13+MD5Print(MD5String(cryptpass)));
...

Code:

<?php
$i=$c=$o=$n=$nc="";
$cryptpass=""; 
$test="123abc";      

for ($i=0;$i<strlen($test);$i++) {
      $c=substr($test,$i,1);
      $a=ord($c);            
      $o=($a-65);
      $n=(177+$o+$i);            
      $nc=chr($n);            
      $cryptpass.=$nc;
}
echo $cryptpass."<br>";
echo md5($cryptpass);
?>

Wie man im Anhang sieht, liegt es wirklich nur am md5 Teil, diese For Schleife davor (die übringens nicht von mir ist, die ich aber verwenden muss) erzeugt sowohl in php als auch in Delphi den gleichen String.

Also, vielleicht hat jemand eine md5.pas, die verwendet werden kann oder liegt es an was anderem?

Danke
Christof

[Klaus01]

Hallo,

versuche es mal so...

Delphi-Quellcode:

var
   cryptpass:ansiString;
    i:Integer;
    c:ansiString;
    a,o,n:byte;

Grüße
Klaus

[tofse]

Leider nicht, bringt genau das gleiche wie mit "String"

Christof

[DeddyH]

Klappt es mit der Datei im Anhang?

[tofse]

JAAAAAAAAAAAAA, super

LowerCase(MD5DigestToStr(MD5String(cryptpass))) Funktioniert !
Vielen Dank

[sx2008]

Bei Hashfunktionen sollte man immer eine Selbstest-Funktion mit an Bord haben!
Testvektoren findet man auf Wikipedia.
Also ungefähr so:

Delphi-Quellcode:

procedure MD5Selftest;
begin
  if MD5DigestToStr(MD5String('Franz jagt im komplett verwahrlosten Taxi quer durch Bayern')) <>
    'a3cca2b2aa1e3b5b3b5aad99a8529074' {bitte alles in Goßbuchstaben, bin gerade zu tippfaul} then
    raise Exception.Create('MD5 Selftest failed');
end;

[CCRDude]

Zitat von sx2008:

{bitte alles in Goßbuchstaben, bin gerade zu tippfaul}

Dafür vergleiche ich Hashes gerne per AnsiCompareText, dann ist das upper/lowercase egal (nicht weil ich keine Konventionen bzgl. des cases hätte, sondern weil es spätestens beim Testen anderer Algo-Implementierungen dann doch wieder übersehen wird und zu Fehlersuche führt).

[Zacherl]

Hatte letztens ein ähnliches Problem. Eine MD5 Unit, die ich vor Ewigkeiten mal hier im Forum gefunden hatte, hat unter XE4 auf einmal mehr oder weniger zufällige Hashs produziert. Konnte das Problem leider nicht identifizieren, aber vermute, dass es am eingestreuten Assembler Code lag.

[Namenloser]

Zitat von sx2008:

Bei Hashfunktionen sollte man immer eine Selbstest-Funktion mit an Bord haben!
Testvektoren findet man auf Wikipedia.
Also ungefähr so:

Delphi-Quellcode:

procedure MD5Selftest;
begin
  if MD5DigestToStr(MD5String('Franz jagt im komplett verwahrlosten Taxi quer durch Bayern')) <>
    'a3cca2b2aa1e3b5b3b5aad99a8529074' {bitte alles in Goßbuchstaben, bin gerade zu tippfaul} then
    raise Exception.Create('MD5 Selftest failed');
end;

Für solche Tests sind eigentlich Assertions prädestiniert – das ist schöner als if und raise Exception.

[sx2008]

Zitat von NamenLozer:

Für solche Tests sind eigentlich Assertions prädestiniert – das ist schöner als if und raise Exception.

Kommt drauf an...
Hier habe ich if und raise verwendet, weil ich möchte dass die Prüfung auch in der Releaseversion der Software stattfindet um Manipulationen an sicherheitsrelevanten Funktionen vorzubeugen.
Ansonsten hast du natürlich recht.