SHA-512 algoritması ile base64 encode edilmesi

[engerex]

3. taraf kütüphaneye gerek olmadan.

uses System.Hash, System.NetEncoding;

function SHA512Base64(const AText: string): string;
begin
Result := TNetEncoding.Base64.EncodeBytesToString(
  THashSHA2.GetHashBytes(AText, SHA512)
);
end;