программа, удаляющая сама себя

← →
LoMaster © (2004-03-25 03:37) [0]

Можно ли запустить программу и она удалила сама себя. Если можно напишите, plz.

← →
Alexander666 © (2004-03-25 03:52) [1]

Сделать можно из под ring0, а можно и через ДЛЛ.

← →
LoMaster © (2004-03-25 03:58) [2]

А исходник напишешь?

← →
RealRascal © (2004-03-25 05:55) [3]

можно через bat-файл, самое простое.

← →
Erik © (2004-03-25 09:43) [4]

procedure DeleteSelf;
var
module: HModule;
buf: array[0..MAX_PATH - 1] of char;
p: ULong;
hKrnl32: HModule;
pExitProcess,
pDeleteFile,
pFreeLibrary: pointer;
begin
module := GetModuleHandle(nil);
GetModuleFileName(module, buf, SizeOf(buf));
CloseHandle(THandle(4));
p := ULONG(module) + 1;
hKrnl32 := GetModuleHandle("kernel32");
pExitProcess := GetProcAddress(hKrnl32, "ExitProcess");
pDeleteFile := GetProcAddress(hKrnl32, "DeleteFileA");
pFreeLibrary := GetProcAddress(hKrnl32, "FreeLibrary");
asm
lea eax, buf
push 0
push 0
push eax
push pExitProcess
push p
push pDeleteFile
push pFreeLibrary
ret
end;
end;

← →
ssk (2004-03-25 09:47) [5]

>Erik [4]

Win98 - из памяти удаляется, с диска нет. этот код для NT?

В FAQ все подробно описано...

← →
TransparentGhost (2004-03-25 10:12) [7]

Sdelaj perenos v korzinu :o)

← →
ssk (2004-03-25 11:10) [8]

>Rouse_ © (25.03.04 09:50) [6]

В FAQ все подробно описано...

В факе написано, как в реестре ключ создать, а тут совсем другое. Либо я не то в факе смотрел %-)

программа, удаляющая сама себя Найти похожие ветки