function Sigma0(x: Int64): Int64;
begin
  Result := (ror64(x, 28) xor ror64(x, 34) xor ror64(x, 39));
end;

function Sigma1(x: Int64): Int64;
begin
  Result := (ror64(x, 14) xor ror64(x, 18) xor ror64(x, 41));
end;

function Gamma0(x: Int64): Int64;
begin
  Result := (ror64(x, 1) xor ror64(x, 8) xor (x shr 7));
end;

function Gamma1(x: Int64): Int64;
begin
  Result := (ror64(x, 19) xor ror64(x, 61) xor (x shr 6));
end;