Hallo,
hier im Forum habe ich folgenden Code gefunden um aus einem String einen ELF-Hash zu erzeugen. Kann ich diese Funktion mit Delphi 2009 und
Unicode nutzen? Es lässt sich ohne Probleme compilieren, doch ob das auch logisch richtig ist, kann ich nicht prüfen, da mir das Wissen dazu fehlt. Danke!
Delphi-Quellcode:
Function HashFromStr(Const Value: String): Cardinal; // ELF-Hash
Var
i: Integer;
x: Cardinal;
Begin
Result := 0;
For i := 1 To Length(Value) Do Begin
Result := (Result Shl 4) + Ord(Value[i]);
x := Result And $F0000000;
If (x <> 0) Then
Result := Result Xor (x Shr 24);
Result := Result And (Not x);
End;
End;