Удаление файлов

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Paul K.
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 15.01.2004 (Чт) 0:07
Откуда: Санкт-Петербург

Удаление файлов

Сообщение Paul K. » 28.05.2004 (Пт) 15:51

Здравствуйте.

У меня возник такой вопрос:
Можно ли из VB6 удалить файл без возможности восстановления, как, например, это делает norton wipeinfo? Причем именно затереть, чтобы проги для восстановления файл даже не видели?

Заранее спасибо.

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 28.05.2004 (Пт) 16:01

Забить нулями и/или мусором в режиме побайтовой записи (желательно - двух-трехпроходной), а потом удалить стандартными средствами VB.
Моду создают модоки, а распространяют модозвоны.

Scuder
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 334
Зарегистрирован: 17.08.2002 (Сб) 13:18
Откуда: Moscow, Russia

Сообщение Scuder » 28.05.2004 (Пт) 16:02

Полагаю, что можно просто "затереть" его.. Другой информацией..

Код: Выделить всё
Open "c:\file.txt" for output as #1


И записать в него много мусора. Затем можно и удалить. В итоге любая прога для восстановления восстановит именно твой мусор. :-)

Но это вряд ли спасёт от программ восстановления винчестера, т.к. твой мусор скорее всего запишется в другую часть диска..

Scuder
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 334
Зарегистрирован: 17.08.2002 (Сб) 13:18
Откуда: Moscow, Russia

Сообщение Scuder » 28.05.2004 (Пт) 16:03

Эх, опередили.. :-)

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 28.05.2004 (Пт) 16:06

Вот для этого, Scuder, не
Код: Выделить всё
For Output As #1

а
Код: Выделить всё
For Binary Write As #1
:P
Моду создают модоки, а распространяют модозвоны.

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 28.05.2004 (Пт) 16:10

For output, For binary write...
Все равно никто и никогда не сможет гарантировать, что переписывается именно нужный сектор. Покуда посекторного доступа к диску нет, можно даже не пытаться.
Берите уж тогда сразу быка за рога - DeviceIOControl()...

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 28.05.2004 (Пт) 16:13

Как я посмотрел на декларацию... стало страшно.
Пока не поздно, надо отказаться от этой идеи 8)

- Может не надо?
- Надо, Федя, НАДО!
(c) MSDN Platform SDK
Моду создают модоки, а распространяют модозвоны.

Scuder
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 334
Зарегистрирован: 17.08.2002 (Сб) 13:18
Откуда: Moscow, Russia

Сообщение Scuder » 28.05.2004 (Пт) 16:54

Эх, опередили.. :-)

Paul K.
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 15.01.2004 (Чт) 0:07
Откуда: Санкт-Петербург

Сообщение Paul K. » 29.05.2004 (Сб) 17:30

Это я и раньше знал, и пробовал... Но почему то это прокатывает только с текстовыми файлами, а например, *.jpg не хотят. Даже в двоичном режиме.

Scuder
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 334
Зарегистрирован: 17.08.2002 (Сб) 13:18
Откуда: Moscow, Russia

Сообщение Scuder » 31.05.2004 (Пн) 10:12

Сразу вспомнилась тема про "запись exe в txt и обратно".. :-)

Какая разница, что содержится в файле? В любом случае это набор символов. И какой файл открывать путём "open 'file.any' for output" - тоже без разницы.

Код: Выделить всё
Open "c:\123.jpg" For Output As #1
For i = 1 To 65000
Print #1, Chr$(CInt(Rnd * 255))
Next i


После выполнения этого кода, файл c:\123.jpg будет содержать 195000 байт отборного мусора..

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 31.05.2004 (Пн) 10:56

Нет ни каких гарантий что созданный тобой файл разместится на томже месте где был удален другой...

Scuder
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 334
Зарегистрирован: 17.08.2002 (Сб) 13:18
Откуда: Moscow, Russia

Сообщение Scuder » 31.05.2004 (Пн) 11:04

Z-zzz, прочитай 3-й и 6-й ответы сверху..

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 31.05.2004 (Пн) 11:24

Scuder писал(а):Z-zzz, прочитай 3-й и 6-й ответы сверху..

Забей... :D не надо умничать, ну пропустил, не дочитал... с кем не бывает :D

Paul K.
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 15.01.2004 (Чт) 0:07
Откуда: Санкт-Петербург

Сообщение Paul K. » 01.06.2004 (Вт) 17:29

Ладно, я все понял, буду забивать файлы мусором.
Спасибо все ответившим.

Tamahawk
Обычный пользователь
Обычный пользователь
 
Сообщения: 78
Зарегистрирован: 03.02.2004 (Вт) 22:11

Сообщение Tamahawk » 01.06.2004 (Вт) 21:29

Фарматнуть ВИНТ :lol:

natcap
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 234
Зарегистрирован: 25.06.2003 (Ср) 13:15
Откуда: Москва

Сообщение natcap » 01.06.2004 (Вт) 21:38

не, форматирование не выход - восстановить можно, а вот убить разделы, да плюс низкоуровневое, а еще лучше винт разобрать и гвоздиком блины, гвоздиком.. ;)))

А на самомо деле действительно забивать файл левой фигней а потом стирать :) а чтгобы и из кусков файла ничего восстановить было нельзя, то создавать файл равный свободному месту на диске, забить его тем же и потом тоже стереть :)
Медленно переезжаю с 6.0 на 2008 .... задавая тонны глупых вопросов :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList  
cron