Category: Files
Title: Shred and Delete files without any trace
Date added: 15.03.2006
Hits: 2777


procedure ShredderFile(FileName: string);
const
  Buffer       = 1024;
  Counttowrite = 34;
  FillBuffer: array[0..5] of Integer = ($00, $FF, $00, $F0, $0F, $00);
var
  arr: array[1..Buffer] of Byte;
  f: file;
  i, j, n: Integer;
begin
  AssignFile(f, FileName);
  Reset(f, 1);
  n := FileSize(f);
  for j := 0 to Counttowrite do
  begin
    for i := 1 to n div Buffer do
    begin
      BlockWrite(f, FillBuffer[j], Buffer);
    end;
  end;
  CloseFile(f);
  RenameFile(FileName, ExtractFilepath(FileName) + '$000000.tmp');
  DeleteFile(ExtractFilepath(FileName) + '$temp.tmp');
end;

procedure ShredderAndDeleteFile(const FileName: string);
var
  newname: string;
begin
  newname := ExtractFilepath(FileName) + '$temp.tmp';
  if not RenameFile(FileName, newname) then
    raise
    Exception.CreateFmt('Can''t rename %s', [FileName]);
  ShredderFile(newname);
  DeleteFile(newname);
end;

1. How to append one file to other? (2558 Hits)

2. How to use an Exe Internal Virtual File System @ RunTime? (4769 Hits)

3. How to delete all files within directory? (4648 Hits)

4. How to convert Short filenames to Long filenames? (1444 Hits)

5. How to get the version of a file? (2903 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.