غير مصنف

Shred (delete w/o traces) files in delphi

// Shred (delete w/o traces) files // ——– // Example: // ——– ShredderAndDeleteFile(Edit1.Text); procedure ShredderFile(FileName: string); const Buffer = 1024; Counttowrite = 34; FillBuffer: array[0..5] of Integer = ($00, $FF, $00, $F0, $0F, $00); var […]