DCPcrypt Hash-Erkennung schlägt fehl

[TheGame1492]

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 :)

[geskill]

Hallo,
diese Zeile sind mir schon irgendwie verdächtig aus:

Delphi-Quellcode:

Hash := TDCP_Hash(TDCP_SHA512);

In Delphi erstellt man neue Klassen eigentlich immer so:

Delphi-Quellcode:

Hash := TDCP_SHA512.Create(nil); // TDCP_SHA512 erbt von TDCP_Hash und das von TComponent

Tipp_ schreib die Variablennamen im einheitlichen Format ;)

Grüße

[Klaus01]

Guten Abend,

hast Du den Quelltext der Klasse, wird dort mit pChar oder String gearbeitet?
Wenn ja, ändere das mal nach pAnsiChar und AnsiString.

Grüße
Klaus

[TheGame1492]

danke euch,

das mit dem .Create funzt nun, obwohl ich das vorher auch schon durchprobiert hatte :roll: