Delphi-Quellcode:
procedure TForm1.OverwriteFile(Filename: string; number: integer;);
var stream: TFilestream; i,zahl: integer;
begin
stream := TFilestream.Create(filename,fmOpenWrite);
randomize;
for i := 1 to number do
begin
zahl := random(1);
stream.Write(zahl,SizeOf(zahl))
end;
FreeAndNil(stream);
end;
Habe für ein Programm diesen Algorithmus gschrieben. Er soll eine Datei unleserlich machen. Wenn man eine Datei unter Windows löscht, kann man sie ja normalerweise leicht wiederherstellen. Diese Prozedur soll so eine Datei mit Zufallsdaten überschreiben.
Was haltet ihr von ihr? Optimierungen? Ist das so Quatsch?