Hallo
Nach langer Zeit bin auch mal wieder da und benötige gleich mal wieder eure Hilfe.
Und zwar habe ich eine Funktion die in C# programmiert wurde und dich ich gerne in meiner Delphi-Anwendung benutzen möchte.
Die Funktion in C#
Code:
internal static int HttpHash(string[] hashParams) {
int b = -1, i, j;
uint a, c;
if (hashParams.Length == 0)
return -1;
for (i = 0; i < hashParams.Length; i++) {
for (j = 0; j < hashParams[i].Length; j++) {
c = hashParams[i][j];
a = (uint)(c ^ b) + (c << 8);
b = (int)(a >> 24) | (int)(a << 8);
}
}
return System.Math.Abs(b);
}
Und hier ist das was ich bereits habe
Delphi-Quellcode:
function HttpHash(HashParams: String): Integer;
var
b, i, j, a, c: Integer;
begin
b := -1;
if Length(HashParams) = 0 then
begin
Result := -1;
Exit;
end;
for i := 0 to Length(HashParams) do
begin
// Hier komme ich nicht weiter...
end;
end;
Ich hoffe, dass es soweit richtig ist und das jemand mir hilft den Rest auch noch zu übersetzen.
Vielen Dank schon einmal im voraus