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ß,