StringList "verschlüsseln": welche Methode ist am Besten?

[himitsu]

wenn ich hier die Verschlüsselungen abschalte, dann läuft es,

Delphi-Quellcode:

function TRCStreamDecorator.Read(var Buffer; Count: Integer): Integer;
begin
  result := FStream.Read(Buffer, count);
//  case EncodeMode of
//    emEncodeWriting: Decode(Buffer, Buffer, Result); // abstrakter aufruf
//    emEncodeReading: Encode(Buffer, Buffer, Result); // abstrakter aufruf
//  end;
end;

function TRCStreamDecorator.Write(const Buffer; Count: Integer): Integer;
var
  temp:pointer;
begin
  GetMem(temp, count);
//  case EncodeMode of
//    emEncodeWriting: Encode(Buffer, temp^, Count); // abstrakter aufruf
//    emEncodeReading: Decode(Buffer, temp^, Count); // abstrakter aufruf
//  end;
  result := FStream.Write(Buffer{temp^}, count);
  FreeMem(temp, count);
end;

aber wenn sie aktiv sind, dann wirft mir ReadSalt eine Exception zu, daß der gelesene SALT nicht mit dem Errechneten übereinstimmt.

und das sowohl vor, als auch noch nach meinen Unicode-Änderungen.