Source position: flcCryptoHash.pas line 220
procedure Digest512XOR8(
var Digest: T512BitDigest;
const A: Byte
);