Dateien verschlüsseln - aber wie?

[daniel-volk]

HIIIILLLFFFEEE!!!!

Ich habs jetzt ja fast geschafft (siehe Quellcode auf der vorherigen Seite). Aber wie kann ich einen String (mit dem Original-Hash-Wert der Datei) in den Dateiheader der verschlüsselten Datei schreiben, diesen dann vor dem Entschlüsseln wieder auslesen und auch wieder entfernen?????
Das ist mein einziges Problem, das es noch gibt.

@ Hagen:
Wenn ich eine Datei wipen will, kann ich das so machen?:

Delphi-Quellcode:

with DefCipherClass.Create('',nil)
                 do begin
                      try
                        InitKey('',nil);
                        CodeFile(Input, Input, paWipe);
                        DeleteFile(Input);
                      finally
                        Free;
                      end;
                    end;

Scheinbar wird die Datei dann überschrieben - aber nur gelöscht, wenn ich noch DeleteFile hinzufüge.
Oder ist es besser, wenn ich das Wipen mit der TRandom-Funktion mache?

THX,
Daniel.