[РЕШЕНО] keccak-512. Уже все облазил.. Есть ли у кого-то мысли на этот счет?

[darkwellroad]

Привет. Уже все облазил.. Есть ли у кого-то мысли на этот счет?

Все.. Разобрался. Спасибо. Решение ниже:

procedure TAppForm.Button1Click(Sender: TObject);
  procedure keccak_full(kbits: Integer; data: pointer; bytelen: longint; var dig: TKeccakMaxDigest);
  var
    state: thashState;
    i: Integer;
  begin
    i := Init(state, kbits);
    if i = 0 then
      i := keccak_n.Update(state, data, bytelen * 8);
    if i = 0 then
      i := Final(state, @dig[0]);
    if i <> 0 then
      begin
        writeln('Error ', i, ' for kbits=', kbits);
        halt;
      end;
  end;

var
  Digest: TKeccakMaxDigest;
  buf: TBytes;
begin
  buf := TEncoding.UTF8.GetBytes('123');
  keccak_full(512, buf, Length(buf), Digest);
  Memo1.Lines.Add(HexStr(@Digest, sizeof(Digest)));
end;