Hallo Christian,
danke für Deine Hilfe. Ich habe Dein Beipiel angepaßt und es funktioniert. Folgendes ist dabei entstanden:
Delphi-Quellcode:
Function SetBinaryCipher(Modus: Integer; Argument: Pointer; DataSize: Integer; pwKey: String): Pointer;
Var
Buffer: String;
Begin
SetLength(Buffer, DataSize);
CopyMemory(@Buffer[1], Argument, DataSize);
With TCipher_Blowfish.Create(pwKey, NIL) Do Begin
Try
Mode := TCipherMode(0);
Case Modus Of
FBDecode: Buffer := CodeString(Buffer, paDecode, 1); // Entschlüsseln
FBEncode: Buffer := CodeString(Buffer, paEncode, 1); // Verschlüsseln
End;
Finally
Free;
End;
End;
CopyMemory(Argument, @Buffer[1], DataSize);
Result := Argument;
End;
Da auch Gehaltsabrechnungen und sonstige Dokumente in der FreeBase-Datenbank gespeichert werden, ist die Vorgabe, dass die Daten verschlüsselt werden sollen. Da es jetzt bei den Mitarbeiter-Fotos korrekt funktioniert, kann ich die Funktion auch für die Dokumenten-Verschlüsselung verwenden. Nochmals Danke, und eine angenehme Nachtruhe.
Gruss
Amalkotey