Beliebig große leere Dateien erzeugen

[freak4fun]

Hallo ,
ich möchte eine Datei erzeugen, die den gesammten freien Platz auf der Festplatte ausfüllt. Dabei soll, wenn man die Datei wieder löscht nur Nullen auf der Festplatte(Hardware) zurückbleiben. Die Datei muss keine spezielle Endung haben. Kann mir da einer weiterhelfen? Oder kann man vielleicht auch anders den gesammten freien Speicherplatz mit Nullen auffüllen?

Wenn das zu unklar ist ist bitte fragen.

MfG
freak

[Vjay]

Hallo Christian,

herausfinden wieviel Platz verfügbar ist: GetDiskFreeSpace

Ich habe nie versucht mit TFileStream eine Datei > 2/4 GB zu erzeugen, weiß also nicht ob dies funktionieren wird. Ansonsten createFile verwenden und mit writeFile solange schreiben bis die gewünschte Größe erreicht ist.

Beachten solltest du, dass ein einfaches setzen der Größe nicht ausreicht, um wirklich Nullen auf die Festplatte zu schreiben.
Die Win32API-Hilfe sagt nämlich dazu

Zitat:

SetEndOfFile: This function can be used to truncate or extend a file. If the file is extended, the contents of the file between the old EOF position and the new position are not defined.

TFileStream nutzt ebenfalls diese Funktion.
Sie dient eher dem Dateisystem die Datei im voraus möglichst optimal anzuordnen. Somit bräuchtest du den freien Speicher eigentlich garnicht ermitteln - du schreibst einfach so lange bis es nicht mehr geht. Beachte aber die Maximalgrößen für Dateien der unterschiedlichen Systeme.

Ich ahne übrigens was du vor hast, dir soll versichert sein, dass ein einmaliges Überschreiben ein professionelles Labor nicht davon abhalten wird, deine Daten zu rekonstruieren. Ein einfaches Undelete-Programm dürftest du allerdings aus dem Tritt bringen.

Dennoch solltest du dir überlegen, ob du an die Sache nicht doch anders rangehst, denn eine bis auf das letzte Byte gefüllte HD dürfte dir so ziemlich jedes OS und Programm verübeln.

Ein globaler Funktionshook auf deleteFile/setEndOfFile wäre imho viel schöner, du könntest dann alle gelöschten Files in eine Liste aufnehmen und später wenn die HD idle ist mehrfach mit 1 und 0 überschreiben. MST Defrag macht vor, dass so etwas funktioniert.

[freak4fun]

Hallo Vjay ,
danke für die schnelle Antwort.

Zitat von Vjay:

Ich ahne übrigens was du vor hast...

Daran solltest du noch arbeiten. Aber ich hätte wahrscheinlich die gleiche Schlussfolgerung gezogen. Mir geht es aber um etwas Anderes. Und zwar arbeite ich mit VMs. Wenn man diese nun kopiert wird der gesammte freie Speicher mit kopiert. Das passiert allerdings nicht, wenn der freie Speicherplatz auf der VM-Festplatte mit Nullen gefüllt ist. Dadurch wird dann die kopierte VM kleiner.

MfG
freak

[Vjay]

Arbeitest du mit VM-Ware? Dort gibt es jedenfalls die Shrink-Funktion, diese kümmert sich auch darum, daß die Dateien an den Anfang der virtuellen Platte verschoben werden.

[freak4fun]

Zitat von Vjay:

Arbeitest du mit VM-Ware? Dort gibt es jedenfalls die Shrink-Funktion, diese kümmert sich auch darum, daß die Dateien an den Anfang der virtuellen Platte verschoben werden.

Ja, ich arbeite mit VM-Ware. Wo finde ich denn die Shrink-Funktion? Macht diese Funktion das, was ich machen will?

Ich bin leicht verwirrt. Das Programm ist ja nicht direkt für mich. Ich kenne mich mit VM eigentlich nicht so gut aus. Ich wurde halt darum gebeten. Wenn es natürlich eine einfache schon vorhandene Funktionalität gibt wäre das auch ok.

MfG
freak

[freak4fun]

Ok, ich weiß jetzt wie ich den freien Speicher bekomme. Wie kann ich jetzt alle Bits (Heißen die so? ) auf Null setzen? Was auch schön wäre, wenn man das noch prüfen könnte, ob die Null sind (Ist aber nur optional ).

@Vjay: Mein Kollege meint das Verschieben alleine reicht nicht.

MfG
freak

[Vjay]

Arbeitest du/er mit dynamischen oder statischen Containern? In den VM-Ware Tools die auf dem Guest-System installiert sind, bzw. wenn du in die Eigenschaften der VM gehst und die HD anklickst.

Zitat:

Wie kann ich jetzt alle Bits (Heißen die so? ) auf Null setzen?

Ja die heißen so. Indem du ein #0 in die Datei schreibst, setzt du 8 Bits auf 0

Zitat:

Was auch schön wäre, wenn man das noch prüfen könnte, ob die Null sind (Ist aber nur optional ).

Sicher, indem du die Datei wieder öffnest und einliest.

[freak4fun]

Ich erzeuge eine Datei mit:

Delphi-Quellcode:

AssignFile(f, AFileName);
  try
    Rewrite(f);
  finally
    CloseFile(f);
  end;

und schreibe dann mit:

Delphi-Quellcode:

var
  lBuffer: array [0..524287] of Byte;
begin
  ...
  lFileStream.WriteBuffer(lBuffer, SizeOf(lBuffer));

Geht das Schreiben irgendwie schneller?

MfG
freak

[Cicaro]

TFileStream wäre vielleicht eine Hilfe zum Erzeugen von Dateien, die keine besondere Bedeutung haben.

[freak4fun]

Zitat von Cicaro:

TFileStream wäre vielleicht eine Hilfe zum Erzeugen von Dateien, die keine besondere Bedeutung haben.

lFileStream := TFileStream.Create(AFileName, fmOpenWrite); Das mach ich schon.

MfG
freak