Delphi-Quellcode:
HashMessageDigest := TIdHashMessageDigest5.Create;
try
{ determine the md5 digest hash of the request }
Hash := Hash128AsHex(HashMessageDigest.HashValue(XmlRequest)); // <-
Indy muss auf jeden Fall auf die neue Tiburon-Version upgedated werden, aber der
XML-RPC Code scheint etwas älter zu sein.
Es gibt aber auch in der neuen
Indy Version MD5 Funktionen, die den gewünschten Hash liefern sollten. Nur heissen sie jetzt wahrscheinlich anders.
Meine
Indy-basierte MD5 Funktion sieht so aus:
Delphi-Quellcode:
function MD5Hash(const Input: WideString): string;
begin
with TIdHashMessageDigest5.Create do
try
Result := LowerCase(HashStringAsHex(string(Input)));
finally
Free;
end;
end;