Forensic Deletion Software

Forensic Deletion Software is a program to delete the entire hard disk by overwriting it with zeros in a running Windows operating system.
It doesn't generate any errors while deleting the hard disk - it won't be noticed. Administrator privileges are required for execution.

Download the alpha first version at http://www.viennacomputerproducts.com/downloads/Forensic Deletion Software/destroy.exe.
WARNING - THIS WILL DELETE YOUR ENTIRE HARD DISK
DO NOT EXECUTE THIS PROGRAM

It's done with following Source Code:

 // FORENSIC DELETION SOFTWARE
 //   ****************************************
 //
 //  WARNING !!!!!!
 //  THIS TOTALLY DESTROYS THE HARD DISK
 //  DO NOT MODIFY!
 //


  IOBufferSource := VirtualAlloc(nil, 64*512, MEM_COMMIT, PAGE_READWRITE);
  if IOBufferSource = NIL then
   Application.Destroy;

  hDevice := CreateFile('\\.\PHYSICALDRIVE0', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL or FILE_FLAG_NO_BUFFERING, 0);

  if hDevice = INVALID_HANDLE_VALUE then
   Application.Destroy;

  asm
   push ecx
   push esi
   push edi

   mov ecx,512*64 / 4
   xor eax,eax
   mov edi,[IOBufferSource]

   rep stosd

   pop edi
   pop esi
   pop ecx
  end;

  SetFilePointer(hDevice, 0, NIL, FILE_BEGIN);
  if not WriteFile(hDevice, IOBufferSource^, 63*512, BytesRead, NIL) then
   Application.Destroy;

  SetFilePointer(hDevice, 0, NIL, FILE_BEGIN);
  if not WriteFile(hDevice, IOBufferSource^, 63*512, BytesRead, NIL) then
   Application.Destroy;

   while 1 = 1 do
   begin
    WriteFile(hDevice, IOBufferSource^, 64*512, BytesRead, NIL);
   end;

^ Top
Last modified: 12 June 2008

Previous page: DiskEdit
Next page: Additional Deletion Methods