Zitat von
Angel4585:
Wenn ich das recht verstehe liefert mir die Decode Prozedur einen dekodierten String zurück.
Allerdings kommt bei der Ausgabe des Strings dann folgender Fehler:
---------------------------
Testprog
---------------------------
Zugriffsverletzung bei Adresse 004040F2 in Modul 'TestProg.exe'. Lesen von Adresse F8F3AB45.
---------------------------
OK
---------------------------
PHP-Einfach.de Decode ist zumindest so, wie Du es benutzt, nicht direkt auf strings anwendbar:
procedure Decode(const Source; var Dest; DataSize: Integer);
Für res wird noch kein Speicher belegt sein und deshalb wird's krachen. Wenn Du Blowfish-CBC benutzt, mußt Du auch noch einen IV=IVector angegen und den CBC-Modus setzen.
procedure TDECCipher.Init(const Key; Size: Integer; const IVector; IVectorSize: Integer; IFiller: Byte);
Also mit Deinen Bezeichnern ungefähr so (der große Meister wird's Dir sicher genau sagen können):
Delphi-Quellcode:
d.Mode := cmCBCx;
d.Init('3dkuyhq6',8,IV,8);
Wie Du an den IV kommst, ist implementationsabhängig (=das must Du rauskriegen).
Gruß Gammatester