Also ich weiss nicht, woher Ihr Eure Weisheiten habt, das 'professionelle Datenretter' eine Datei auch nach dem überschreiben wieder restaurieren können, oder das 3,6 oder 99 Schreibvorgänge ausreichen... früher war das vielleicht so. Ih habe das Gegenteil gelesen: Wie oft überschrieben wird, ist egal. 1x Überschreiben ist futsch.
Aber ursprünglich ging es um den Code von koller, und der ist noch verbesserungswürdig
Die Zeile
zahl := random(1);
liefert doch immer 0, oder hab ich was verpasst? Also entweder gleich 'zahl := 0' oder eben:
Delphi-Quellcode:
zahl := random (maxint);
if odd (random(2) then zahl := -zahl;
Das liefert hinreichend gleich verteilte Zahlen über die gesamten 32 bit.