Ich wollte jetzt nicht wieder einen extra Thread aufmachen, also frag ich einfach nochmal hier nach.
Erstmal muss ich sagen das
DEC ist einfach super! Gut das es Leute gibt die sich die Arbeit machen und sowas zusammenstellen.
Ich habe allerdings nochmal eine Frage. Und zwar rufe ich die decrypt-function schon in der FormCreate auf. Jetzt bekomme ich allerdings eine
Exception von der Funktion:
Delphi-Quellcode:
function DECClassByIdentity(Identity: LongWord; ClassType: TClass): TDECClass;
function DoFind(Identity: LongWord; ClassType: TDECClass): Boolean;
begin
Result := ClassType.Identity = Identity;
end;
begin
Result := DECEnumClasses(@DoFind, Pointer(Identity), ClassType);
if Result =
nil then
raise EDECException.CreateFmt(sClassNotRegistered, [IntToHEX(Identity, 8)]);
//Hier die Exception
end;
Die Funktion "DECClassByIdentity" wird ja so ziemlich am Anfang der decrypt-function aufgerufen.
Da muss wohl erst irgendeine Klasse registriert werden, aber welche? Und vor allem wie registriere ich diese.
Vieleicht habe ich ja irgendwas übersehen, aber ich finde den Fehler einfach nicht.
Gruß
[EDIT] Man bin ich ein Trottel!
Ich weiß was ich vergessen hab!
Delphi-Quellcode:
SetDefaultCipherClass(TCipher_Rijndael);
SetDefaultHashClass(THash_SHA1);
IdentityBase := $84485225;
RegisterDECClasses([TCipher_Rijndael, THash_SHA1]);
ich sollte mir mal angewöhnen erst zu denken und dann zu schreiben
