| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление файла без возможности восстановления. [D3, Win95/98]

Kiril ©   (2002-05-15 21:56:00) 

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

---

Song   (2002-05-15 23:09:00) [1]

~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.

---

~Sergius   (2002-05-15 22:08:00) [2]

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

---

~Sergius   (2002-05-15 22:06:00) [3]

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

---

S@shka   (2002-05-15 22:03:00) [4]

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

---

Наверх