Buffer ver-/entschlüsseln mit RCx

[Sko]

Hallo,

ich habe hier eine Socket-Komponente welche mir erlaubt Daten vor dem Senden zu verschlüsseln und nach dem Empfangen zu entschlüsseln TNBFPA. Dafür gibt es die Ereignisse OnEncryptData und OnDecryptData. In diesen Ereignissen möchte ich jetzt die zu sendenden Daten verschlüsseln, dafür hab ich hagens RCx-Unit verwendet, allerdings kommt beim entschlüsseln nicht das raus was beim verschlüsseln rein kommt. So sehen die Ereignisse jetzt aus:

Delphi-Quellcode:

procedure TMainForm.ClientEncryptData(Sender: TObject; PA: TProtocolAdapter;
  var Buffer; const Size: Integer);
var
  ARCx: TRCxContext;
begin
  RCxInit(ARCx,'<Passwort>');
  RCxEncode(ARCx,Buffer,Buffer,Size);
  RCxDone(ARCx);
end;

procedure TMainForm.ClientDecryptData(Sender: TObject; PA: TProtocolAdapter;
  var Buffer; const Size: Integer);
var
  ARCx: TRCxContext;
begin
  RCxInit(ARCx,'<Passwort>');
  RCxDecode(ARCx,Buffer,Buffer,Size);
  RCxDone(ARCx);
end;

Hab ich da nen Fehler drin?