Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Fragen zu TFileStream

    Delphi
    by Uwe Raabe, 13. Okt 2008
  Da ist noch ein kleiner Fehler drin!
  
  for i := 0 to fxfile.Size -1 do
  ...
  buffer := Chr(Ord(buffer) XOR Ord(keys));
  
  
  Für i=0 unterschreitest du den Array-Bereich von keys!
  
  Ich würde dir auch empfehlen, bei keys und buffers lieber Byte statt Char zu verwenden.
• Forum: Object-Pascal / Delphi-Language

  Re: Fragen zu TFileStream

    Delphi
    by Uwe Raabe, 13. Okt 2008
  So sollte es gehen (übrigens auch mit Delphi 2009):
  
  
  procedure EncryptFile(XFile, KFile: String);
  var
  fkey, fxfile: TFilestream;
  keys: array of Byte; // deine Menge weniger 1
  i: Cardinal;
  buffer: Byte;
  begin