摘要： function EncryptHMACSha512(Input, AKey: String): String; var SHA512 : TIdHMACSHA512; tmp:String; begin SHA512:=TIdHMACSHA512.Create; try SHA512.Key:=TIdDecoderMIME.DecodeBytes(AKey); Result:=TIdEncoderMIME.EncodeBytes(SHA512.HashValue(bytesof(Input))); finally SHA512.Free; end;end;结果与此网址一致：http://ca 阅读全文