*Edit* Könnte ich nicht auch mit BlockWrite/BlockRead die Datei Stückweise einlesen, diese anhand eines Verfahrens vertauschen und dann speichern? Bevor die Datei mithilfe des Programms zurücksortiert wird wäre sie dann unbrauchbar. Ist selbstverständlich nicht die sicherste Variante, aber das muss es ja wie gesagt auch nicht sein. Meint ihr, das funktioniert?
OMG... Was hat den der
Papa schon in
#3 vorgeschlagen?
Echt jetzt ein Beispiel? Na gut, aber nicht vollständig!
Delphi-Quellcode:
var
A : TBytes;
W : word; // Nur für kleine Dateien :-)
...
begin
....
W := Filesize...
Setlength(A,W+2);
....
Blockread(F,A[2],W); // oder Stream?
Move(W,a[0],2); // Wofür wohl Stichwort mitten im "Stream"?
for i:=2 to high(A) do
begin
A[i] := A[i] XOR $FF; // Version 1.0
A[i] := A[i] XOR byte(I AND $FF); // Version 1.5
end;
...
Blockwrite(F,A[0],W+2); // oder Stream?
...
Mavarik