Скачать: CL | DM;

Удаление файла без возможности восстановления.   Найти похожие ветки 

← →
Kiril   (2002-05-15 21:56) [0]

Как удалить файл, чтобы его никто не мог восстановить даже с помощью соответствующих программ.

---

← →
S@shka   (2002-05-15 22:03) [1]

:)
Как один из вариантов
Открыть на запись - записать мусор какой-нить, закрыть и стереть
Соответственно даже если востановят - то там хлам :)

---

← →
~Sergius   (2002-05-15 22:06) [2]

удалить файл.
создать файл с таким же именем и таким же размером, как удаленный. Заполнить его, допустим нулями (#00), потом, допустим #FF. Можно несколько раз.
Восстановить можно (далеко не всегда!!!) специальной аппаратурой, которая усиливает слабое магнитное поле на носителе.

---

← →
~Sergius   (2002-05-15 22:08) [3]

прошу извинить. лучше файл перед этим непосредственно не удалять, а просто пересоздать (напр. rewrite)

---

← →
Song ©   (2002-05-15 23:09) [4]

~Sergius (15.05.02 22:08) дело говорит.. но самое надёжное вот:

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;
</code.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c