Eine Datei mit Zufallsdaten überschreiben

**Koller**

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?

Eine Datei mit Zufallsdaten überschreiben

Eine Datei mit Zufallsdaten überschreiben

Forumregeln