zum Thema Hash SHA-3_512 habe ich mit Bezug auf W. Ehrhard nachfolgenden Beitrag gefunden:
https://www.delphipraxis.net/194851-...-ehrhardt.html
Das Konsolenprogramm läßt sich compilieren.
Delphi-Quellcode:
program t_dp_ex;
uses
//system.hash,
system.sysutils,
btypes,
mem_util,
hash,
sha3_512;
{$i std.inc}
{$ifdef APPCONS}
{$apptype console}
{$endif}
{-----------------------------------------}
function CreateHash(aString:string):string;
var
Context : THashContext;
Digist : TSHA3_512Digest;
//bytes : Array of Byte;
size : Integer;
Bytes : TBytes;
begin
SHA3_512Init(Context);
size := aString.Length * SizeOf(Char);
Bytes := TEncoding.Default.GetBytes(aString);
SHA3_512Update(Context,bytes,size);
SHA3_512Final(Context,Digist);
result := Base64Str(@Digist,sizeof(Digist));
end;
begin
writeln(CreateHash('Passwort1234567890'));
Readln;