potrzebuje algorytmu kasowania plikow

Witam potrzebuje jakiegos algorytmu dzieki ktoremu mozna skasowac pliki w taki sposob zeby na 100% nie dalo sie ich juz odzyskac.Potrzebuje kodu w delphi albo c++.Jak ktos by mial to prosze o pomoc :)

Taki jak np. wykorzystuje TuneUp Utilities? Stary gdybym ja taki stworzył to bym to sprzedał jakiejś firmie albo co :d

Nie musi byc tak bardzo zaawansowany :) ale zeby byl dosc skuteczny.Albo chociaz jak ktos by mi to opisal co taki algorytm musi robic w poszczegolnych krokach zeby byl skuteczny

Proponuję: http://www.swissdelphicenter.ch/en/showcode.php?id=2267

oraz drugi przykład:

procedure WipeFile(FileName: string);
var
  buffer: array [0..4095] of Byte;
  max, n: LongInt;
  i: Integer;
  fs: TFileStream;

  procedure RandomizeBuffer;
  var
    i: Integer;
  begin
    for i := Low(buffer) to High(buffer) do
      buffer[i] := Random(256);
  end;
begin
  fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
  try
    for i := 1 to 3 do
    begin
      RandomizeBuffer;
      max := fs.Size;
      fs.Position := 0;
      while max > 0 do
      begin
        if max > SizeOf(buffer) then
          n := SizeOf(buffer)
        else
          n := max;
        fs.Write(Buffer, n);
        max := max - n;
      end;
      FlushFileBuffers(fs.Handle);
    end;
  finally
    fs.Free;
  end;
  Deletefile(FileName);
end;