Frage Betreffs einer simplen Verschlüsselung

[Sonic-Y3k]

Hi,
Zunächst erstmal Danke, wusste echt nicht mehr weiter!
An sich gibt es jetzt nur noch ein Problem, das Problem ist dass das Programm nur den halben Key in das File schreibt und es deswegen natürlich nicht funktioniert...

Als Beispiel: Der Key ist 60, dann würde am Anfang der Datei nur 6 Stehen, was ein Decodieren natürlich unmöglich macht.

Delphi-Quellcode:

procedure TMainForm.HandleFile(done:Longint; Filename: String);
const
  BufferSize = 1024;
var
  Stream, WStream: TFileStream;
  Buffer: String;
  adone, datasize: LongInt;
  Key, i: integer;
begin
  Stream  := nil;                       // Falls eine Exception auftritt
  WStream := nil;                       // ist Free auf nil-Pointer zulässig
  try
                                        // SetLength(Buffer, BufferSize);
    Key := GenerateKey;
    Buffer := IntToStr(Key);
    ShowMessage(IntToStr(Key));
    case Key of                         // Key könnte eigentlich im Bereich 0..255 liegen
      0..9:   Buffer := '0' + Buffer;
      10..99: ;                         // durch die Art der Speicherung auf 2stellig beschränkt
    else
      ShowMessage(Format('Key %d liegt nicht im gültigen Bereich', [Key]));
      exit;
    end;

    Stream := TFileStream.Create(Filename, fmOpenRead);
    WStream := TFileStream.Create(Filename+'.backup', fmOpenWrite or fmCreate);

    WStream.Write(Buffer[1], Length(Buffer));  // kompletten Key als Zeichenfolge speichern
    adone := Stream.Size;

    ProgressBar1.Max      := adone;
    ProgressBar1.Position := 0;
    ProgressBar1.Min      := 0;

    while (adone > 0) do
    begin
                                               // Stream.Seek(done, soBeginning);
      datasize := Min(adone, BufferSize);
      SetLength(Buffer, datasize);
      Stream.Read(Buffer[1], datasize);
      Dec(adone, datasize);
      Buffer:= Encode(Buffer, Key);
      WStream.Write(Buffer[1], datasize);

      ProgressBar1.Position := ProgressBar1.Max - adone;
    end;
  finally
    Stream.Free;
    WStream.Free;
  end;
end;

Gruß,