Стирание файла -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.218.234.83]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Стирание файла , Как программе стереть саму себя?

Domino	Сообщ. #1 , 29.04.04, 23:15
Master Профиль · PM Поощрения: 11 Dgm Рейтинг (т): 101	Как описать в программе команду на самоуничтожение?

Testudo	Сообщ. #2 , 30.04.04, 02:02
Master Профиль · PM Рейтинг (т): 105	Имхо, только создать доп. программку, которая при вызове будет получать ID запущенной проги и по ее завершении уничтожать исполняемый модуль.

Anatoly Podgoretsky	Сообщ. #3 , 30.04.04, 05:18
Master Профиль · PM Поощрения: 2 Dgm Рейтинг (т): 110	Самоуничтожение программы не возможно

Song	Сообщ. #4 , 30.04.04, 05:23
Unregistered	Denny, в смысле на удаление exe файла?

Vit

Сообщ. #5 , 30.04.04, 11:38

Guru

Профиль · PM

Поощрения: 16 Dgm

Рейтинг (т): 181

Uses ShellApi;

procedure TForm1.FormDestroy(Sender: TObject);

var f:textFile;

FileName:String;

begin

FileName:=changefileext(paramstr(0),'.bat');

assignFile(f,FileName);

rewrite(f);

writeln(f,':1');

writeln(f,format('Erase "%s"',[paramstr(0)]));

writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));

writeln(f,format('Erase "%s"',[FileName]));

closefile(f);

ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide);

end;

p_kolya

Сообщ. #6 , 30.04.04, 13:06

Master

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 43

Можно с помощью сообщения WM_TIMER приказать другому приложению исполнить такой-то код, в данном случае затереть прогу

А перед этим вырубить эту прогу, чтобы не возмущалась!

ЗЫ: Сначала надо будет код стирания передать некому приложннию, которое будет тереть прогу. Для этого есть много уязвимостей в виндусе, которые ты и могешь использовать

Вот здесь посмотри:
http://securitylab.ru/?ID=1671&Search_String=WM_TIMER
Принцип тотже, только тебе надо затирать прогу

Можешь еще на http://www.securityfocus.com/ и на других сайтах по безопасности. Поищи по строке "WM_TIMER"

Сообщение отредактировано: p_kolya - 30.04.04, 13:16

_Art	Сообщ. #7 , 30.04.04, 17:25
Senior Member Профиль · PM Рейтинг (т): 14	Добавляешь в реестр путь проги в ветку RunOnce при следующем запуске винды, прога сотрется, есть в любом FAQ. HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce Сообщение отредактировано: Art4 - 30.04.04, 17:32

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0295 ] [ 16 queries used ] [ Generated: 9.05.24, 01:50 GMT ]