hi, Ich hab den Code mal auf das minimalste gekürzt.
Ansonsten ist das nur aus der Demo übernommen, trotzdem gehts einfach nicht.
Es kommt immer eine Zugriffsverletzung:
Code:
program Project1;
{$APPTYPE CONSOLE}
uses
DCPsha512,
DCPCrypt2;
var
Hash : TDCP_Hash;
HashDigest: array of byte;
begin
Hash := TDCP_Hash(TDCP_SHA512);
hash.init;
SetLength(HashDigest,Hash.HashSize div 8);
end.
ab der Init gehts schon schief, steh da wohl grad voll aufm Schlauch
