Hash mit DEC: wie und welchen

[Sharky]

Hai Davidb,
ich versuche mal deinen Code zu "beurteilen".

[quote="Davidb"]...

Delphi-Quellcode:

procedure TForm1.codierenClick(Sender: TObject);
    var
      PHash: THash_MD5;
      s: string;
      i: Integer;
      j: Integer;
      n: Integer;
      Hpass: string;
      Format: Integer;
begin
    Format :=fmtHEXL; // Was möchtest du mit "Format" machen? Wenn musst Du es deiner Instanz von THash zuweisen
    PHash := THash_MD5.create(nil); // So, hier erzeugst Du keine Instanz von THash.
    PHash.Init; // Init ist okay.
    Hpass := PHash.CodeString(pass, paEncode, Format); //Und jetzt? Du versuchst deiner Instanz  einen Hashstring zu zuweisen.
    Inhalt.Text := eingabe; // Wo kommt den Inhalt her?
    if length(pass) > 10 then begin  /pass ist hier auch nicht vorhanden 
.
.
end;

Zitat:

könnte ja auch sein, dass es an meiner XOR methode liegt.

Warum denn jetzt XOR? Ich dachte Du möchtest die Hash-Funktionen des DEC von Hagen benutzen?