Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Սպանել ինքն իրեն Գտնել նմանատիպ մասնաճյուղեր


T2   (2001-12-14 03:22) [0]

Ինչպես կատարել ծրագիր ինքնասպանություն գործելու համար: Ներկաը չի վերակառուցվում, բայց իրական ժամանակում:



KilkennyCat   (2001-12-14 04:12) [1]

Ինքնասպանություն. Նկատի ունի պտուտակից հանելը:
Նա պարզապես պետք է ապրի հիշողության մեջ, որտեղից էլ հանգիստ մաքրվում է պտուտակից, իսկ հետո ինքն իրեն ասում է.



T2   (2001-12-14 04:32) [2]

Այո, պտուտակից հանելը: Բայց նա չի ցանկանում ինքն իրեն ջնջել. Կոճապղպեղի ֆայլը փակված է (ակնհայտ է, որ դա ոչ բոլորն են նրա հիշողության մեջ, բայց այն բեռնում և պահում է այն բաց) :(



KilkennyCat   (2001-12-14 04:37) [3]

Իհարկե: Եթե ​​ոչ շտապ, ապա ես կգրեմ, թե ինչպես (այժմ զբաղված), մինչդեռ միայն հիշում եմ dosovskih- ի տարբերակների բեկորները «հիշողության մարտից»:



T2   (2001-12-14 05:32) [4]

Լավ, ժամանակ կլինի, գցեք այն gu-gu-gu2@mtu-net.ru վրա կամ գրեք այստեղ:



Milz   (2001-12-14 09:31) [5]

Ես չեմ հիշում, թե որտեղ եմ փորել, դադարեցնում ծրագիրը և պտուտակից հանում:
Ասա ինձ, թե ինչպես է այն աշխատում, ես հատուկ հետաքրքրված եմ, թե ինչպես են տեղի ունենում api զանգերը, ծրագրակազմը ցույց տվեց, որ գոյություն ունի ոչ միայն անցում դեպի գործառույթի հասցե, այլև մի տեսակ այլասերում է միջուկում 32- ում, և հետո api- ն ինքն է անվանում և այլն: ինչ է դա և ինչպես են անցնում պարամետրերը:

uses
պատուհաններ;

ընթացակարգ DeleteSelf;
var hModule: Thandle;
szModuleName: array [0..MAX_PATH] - ից char;
hKrnl32` Thandle;
pExitProcess, pDeleteFile, pFreeLibrary, pUnmapViewOfFile: ցուցիչ;
ExitCode` UINT;
սկսել
hModule: = GetModuleHandle (nil);
GetModuleFileName (hModule, szModuleName, sizeof (szModuleName));
hKrnl32: = GetModuleHandle ("kernel32");
pExitProcess: = GetProcAddress (hKrnl32, "ExitProcess");
pDeleteFile: = GetProcAddress (hKrnl32, "DeleteFileA");
pFreeLibrary: = GetProcAddress (hKrnl32, "FreeLibrary");
pUnmapViewOfFile: = GetProcAddress (hKrnl32, "UnmapViewOfFile");
ExitCode: = system.ExitCode;
եթե ($ 80000000 եւ GetVersion ()) <> 0 ապա
// Win95, 98, Me
ASM
lea eax, szModuleName
հրել դուրս գալու կոդը
հրում 0
մղել eax
մղել pExitProcess
մղել hModule
մղել pDeleteFile
մղել pFreeLibrary
մերժում
վերջ
ուրիշ
սկսել
CloseHandle (THANDLE (4));
ASM
lea eax, szModuleName
հրել դուրս գալու կոդը
հրում 0
մղել eax
մղել pExitProcess
մղել hModule
մղել pDeleteFile
մղել pUnmapViewOfFile
մերժում
վերջ
վերջ
վերջը.



Andrey   (2001-12-14 10:34) [6]

Պարոնայք, ինչու՞ այդքան շատ հնարքներ :) դիմեք ՀՏՀ-ին ՝ http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621694&n=15



paul_shmakov   (2001-12-15 01:14) [7]

2 Andrey:
ՀՏՀ-ն ճիշտ չէ: Բայց Միլզը ճիշտ լուծում տվեց: այստեղ WinApi ֆորումում մենք մանրամասն ուսումնասիրեցինք այս լուծումը:



А вот   (2001-12-15 01:41) [8]

«կոռեկտության» մասին - դուք պետք է խորհրդակցեք Digitman- ի հետ: Իմ կարծիքով, նա հետաքրքրվեց դրանով և փորեց ավելի խորը: Եթե ​​IMHO- ն ուզում է կիսել: Այն, ինչ ես անձամբ կասկածում եմ, քանի որ թեման սայթաքուն է:



paul_shmakov   (2001-12-16 02:13) [9]

2 Եվ ահա.
:) Դե, եթե Digitman- ը չի ցանկանում կիսել, ապա ես կկիսեմ այն:

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1004956210&n=5

տես հղումը, լավ, շատ մանրամասն ՝ Winnt / 2k- ի համար



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.57 ՄԲ
Ժամանակը `0.032 գ
14-22347
roman001
2001-11-06 18:09
2002.01.08
Հոսթինգ


1-22206
T2
2001-12-16 07:11
2002.01.08
Հավասարեցնել դաշտը


1-22074
Bb
2001-12-17 21:28
2002.01.08
ՕԳՆԵՔ !!!!


6-22287
Andrew
2001-08-08 10:35
2002.01.08
Արդյոք որեւէ մեկը աշխատում է WebSnap- ի հետ:


3-21928
kaif
2001-12-04 17:42
2002.01.08
Վերականգնման ժամանակ թվաբանական արտահոսք կամ լարային կրճատում





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский