Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];
Вниз
Удаление файла без возможности восстановления. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
