Dateiverschlüsselung mit DEC (5.2)

[Schwedenbitter]

Hallo,

in einer Client-Server-Umgebung möchte ich, dass der Server dem Client eine Datei zur Verfügung stellt. Diese soll verschlüsselt werden. Dem Client werden dann nur der Name/Pfad der verschlüsselten Datei auf einem Fileserver und das Passwort übermittelt. Nun möchte ich aus Sicherheitsgründen auf dem Client die Datei nicht zwischenspeichern, sondern als TMemoryStream weiter verarbeiten.
Ich verwende dazu die DEC und einen stark abgewandelten Code aus der Demo (vergleichbar hiermit).

Das Verschlüsseln klappt. Wenn ich mit dem Server wieder entschlüssele, gibt es kein Problem. Wenn ich aber mit dem Client das Entschlüsseln versuche, bekomme ich eine Exception mit der Fehlermeldung "Class 89504E47 is not registered". Es hat auch nichts gebracht

Delphi-Quellcode:

Initialization
  IdentityBase:=$89504E47;

einzufügen.

Ich gehe der Kommentierung nach davon aus, dass es daran liegt, dass nur ein und dasselbe Programm ver- bzw. entschlüsseln darf. Ich begreife nicht, wie ich den Code abändern kann/muss, damit es klappt. Zudem möchte ich (auch) gern sicherstellen, dass nur der passende Client dechiffriert.

Ich habe die von mir verwendete Unit mal beigefügt. Diese wird sowohl vom Server als auch vom Client verwendet. Es betrifft dort die Funktionen EncryptFile() und DecryptFile().

Danke für die Hinweise, Alex

[cookie22]

registrierst du die algorithmen? z.b. so:

Delphi-Quellcode:

procedure RegisterClasses;
begin
  TFormat_Copy.register;
  TFormat_HEX.register;
  TFormat_MIME64.register;
  TFormat_MIME32.register;

  THash_SHA512.register;
  THash_Whirlpool.register;

  TCipher_Twofish.register;
  TCipher_Rijndael.register;

  SetDefaultCipherClass(TCipher_Rijndael);
  SetDefaultHashClass(THash_SHA512);
  IdentityBase := $84282255;
end;

das mußt du auch auf dem client machen, dann sollte das klappen.

[Schwedenbitter]

Danke für die schnelle Antwort!

Zitat von cookie22:

registrierst du die algorithmen? ...

Ich dachte schon. In einem anderen Beispielcode hatte ich das mal so gesehen. Dort wurde es über globale Variablen gemacht, denen gleich Standardwerte mitgegeben wurden:

Delphi-Quellcode:

Var
   AKDFIndex    : LongWord        = 1;
   ACipherMode  : TCipherMode     = cmCBCx;
   AHashClass   : TDECHashClass   = THash_Whirlpool;
   ACipherClass : TDECCipherClass = TCipher_Rijndael;
   ATextFormat  : TDECFormatClass = TFormat_Mime64;

Oder sind das verschiedene Dinge?

Ich werde Deinen Vorschlag mal ausprobieren. <- klappt leider nicht

[edit]Ich habe auch den - übersehenen - Teil aus dem Codebeispiel jeweils als erste Zeilen so in die Funktionen geschrieben

Delphi-Quellcode:

   SetDefaultCipherClass(TCipher_Rijndael);
   SetDefaultHashClass(THash_SHA1);
   IdentityBase := $84485225;
   RegisterDECClasses([TCipher_Rijndael, THash_SHA1]);

Das klappt leider auch nicht[/edit]
Gruß, Alex

[cookie22]

Zitat von Schwedenbitter:

Danke für die schnelle Antwort!

Zitat von cookie22:

registrierst du die algorithmen? ...

Ich dachte schon. In einem anderen Beispielcode hatte ich das mal so gesehen. Dort wurde es über globale Variablen gemacht, denen gleich Standardwerte mitgegeben wurden:

Delphi-Quellcode:

Var
   AKDFIndex    : LongWord        = 1;
   ACipherMode  : TCipherMode     = cmCBCx;
   AHashClass   : TDECHashClass   = THash_Whirlpool;
   ACipherClass : TDECCipherClass = TCipher_Rijndael;
   ATextFormat  : TDECFormatClass = TFormat_Mime64;

Oder sind das verschiedene Dinge?

Ich werde Deinen Vorschlag mal ausprobieren.

Gruß, Alex

ja sind unterschiedliche dinge.

das wichtige is das registrieren.

THash_Whirlpool.register; das kannst du im oncreate event machen, oder sonst wo bevor du mit dem verschlüsseln anfängst. das mußt du im server sowie auch im client machen.

[Schwedenbitter]

Zitat von cookie22:

das kannst du im oncreate event machen, oder sonst wo bevor du mit dem verschlüsseln anfängst.

Da ich den Code in einer eigenen Unit untergerbacht habe, die wegen 4 Funktionen nicht objektorientiert ist, habe ich kein OnCreate(). Aber ich habe es in der Initialization probiert, was m.E. dasselbe bewirken sollte. Aber es klappt trotzdem nicht.

Zitat von cookie22:

das mußt du im server sowie auch im client machen.

Das ist mir klar. Aus diesem Grunde wird die Unit sowohl beim Server als auch beim Client eingebunden und verwendet.

[cookie22]

kannst du mit dem server entschlüsseln?