منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

KillSelf البحث عن فروع مماثلة


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 ، وأظهر البرنامج أنه لا يوجد مجرد انتقال إلى عنوان الوظيفة ، ولكن هناك نوعًا من الانحراف في kernel32 ، ثم يتم استدعاء api نفسه وهكذا مع كل منها. ما هو وكيف يتم تمرير المعلمات؟

يستخدم
شبابيك؛

الإجراء DeleteSelf ؛
var hModule: THandle؛
szModuleName: صفيف [0..MAX_PATH] من char؛
hKrnl32: THandle ؛
pExitProcess ، pDeleteFile ، pFreeLibrary ، pUnmapViewOfFile: pointer؛
ExitCode: UINT؛
بدأ
hModule: = GetModuleHandle (لا شيء) ؛
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 ، أنا
ASM
ليا eax ، szModuleName
دفع رمز الخروج
دفع 0
دفع eax
دفع pExitProcess
دفع hModule
دفع pDeleteFile
دفع pFreeLibrary
عطن
النهاية
آخر
بدأ
CloseHandle (THANDLE (4)) ؛
ASM
ليا 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 أندري:
التعليمات ليست صحيحة. لكن ميلز أعطى الحل الصحيح. هنا في منتدى 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 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.58 ميغابايت
الوقت: 0.03 ج
14-22355
قضمة الصقيع
2001-11-06 12:39
2002.01.08
ترجمة


4-22461
شاه
2001-10-29 11:08
2002.01.08
مشكلة في LogonUser (ERROR_PRIVILEGE_NOT_HELD)


1-22142
مبتدئ
2001-12-20 10:42
2002.01.08
ReplaceDialog


1-22261
bk
2001-12-17 15:42
2002.01.08
تفوق


3-21948
andre_polt
2001-12-04 16:22
2002.01.08
DB





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский