Damit erzeugst du eine (fast) beliebig grosse Datei aufs Byte genau in null-komma-nix. Einfach eine Datei erstellen, mit Fileseek zu deiner gewünschten Dateigrösse-1 springen, und ein Byte schreiben und die Datei schliessen - Fertig.
Die "Daten" von Dateianfang bis Dateigrösse-1 entsprechend den alten Daten die zufällig gerade in den entsprechenden Sektoren auf der Platte stehen. Also unter umständen sind das deine gelöschen (geheimen) Daten. Also für Sicherheitsfanatiker ist das nix.
Delphi-Quellcode:
const
cData: Char = '#';
var
iFileHandle: Integer;
iFileSize: Integer;
sFileName: TFilename;
begin
sFileName := 'c:\test.dat'; // <-- Der Dateiname
iFileSize := 1234567; // <-- Die Dateigrösse
try
iFileHandle := FileCreate(sFileName);
FileSeek(iFileHandle, iFileSize - 1,0);
FileWrite(iFileHandle, cData, 1);
finally
FileClose(iFileHandle);
end;
end;
rantanplan