Usuwanie plików

Siema!
Mam pytanie dotyczące usuwania plików: jak skasować plik tak aby było go bardzo trudno odzyskać. Potrzebny mi jest jakiś kod, bo potrzebny mi jest w moim programie (lub jakiś link)

Dzięki

Nie wiem czy to coś Ci da ale żeby nie dało się odzyskać pliku musisz w jego miejsce wgrać inny plik o takim samym lub większym rozmiarze. (nie chodzi o ten sam katalog)

A gdyby tak na miejsce tego pliku wgrać inny tylko a potem go wywalić normalnie??

zmierz rozmiar pliku i nadpisz jego zawartość jakimiś losowymi liczbami tak ze 20 razy, następnie usuń i masz prawie pewne, że nie odzyskają oryginalnej wersji :-)

Albo po prostu...

procedure del(fname:string);
var f:file;
begin
assign(f,fname);
reset(f,1);
truncate(f);
close(f);
erase(f);
end;

// kasujesz pusty plik, jak go odzyskają, to i tak bedzie pusty... chyba, że boisz się, że ktos bedzie pszeszukiwał dysk sektor po sektorze.

// ale dane i tak wciąż leżą na dysku - ŁF

zmierz rozmiar pliku i nadpisz jego zawartość jakimiś losowymi liczbami tak ze 20 razy, następnie usuń i masz prawie pewne, że nie odzyskają oryginalnej wersji :-)

True, true. To jest dobry sposob :D
Z tego korzysta np. komenda shred w linuxie, z tym, ze tam mozna np. nadpisac plik 20 razy losowa wartoscia, i dobiero potem usunac..