![]() |
|
[تمرين] الكل يسأل و الكل يجيب - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16) +--- الموضوع : [تمرين] الكل يسأل و الكل يجيب (/showthread.php?tid=1107) |
[تمرين] الكل يسأل و الكل يجيب - STRELiTZIA - 11-08-2009 و عليكم السلام و رحمة الله إقتباس :الشرح عام ومبسط جيد جدا :Cup: ماذا لو اردنا اغلاق Process معين ؟ :g: [تمرين] الكل يسأل و الكل يجيب - o15s19 - 11-08-2009 STRELiTZIA كتب :ماذا لو اردنا اغلاق Process معين ؟ :g: شرح مبسط كود : TerminateProcess(hProcess,0)و hProcess نحصل عليها بواسطة كود : OpenProcess(PROCESS_TERMINATE,binheritHandle,dwProcessID)و dwProcessID نحصل عليها من TProcessEntry32.th32ProcessID [تمرين] الكل يسأل و الكل يجيب - STRELiTZIA - 20-08-2009 AvimimuS كتب :السلام عليكم السلام عليكم و رحمة الله كل من حمل و جرب المرفق الخاص بالمشاركة : http://www.delphi4arab.net/forum/showpost.php?p=9604&postcount=20 يقوم بفحص جهازه... المرفق ملوث بفيروس : W32/Induc-A http://www.delphi4arab.net/forum/showthread.php?p=9745#post9745 بالتوفيق ان شاء الله [تمرين] الكل يسأل و الكل يجيب - AvimimuS - 23-08-2009 إقتباس :المرفق ملوث بفيروس : W32/Induc-Aوعليكم السلام ورحمة الله وبركاته بالنسبة لمرفق اسف لم اكن علي علم بانه ملوث بهذا الفيروس :monster2: [تمرين] الكل يسأل و الكل يجيب - TF6M - 27-08-2009 عملت مثال ZwCreateFile بطريقتين : 1- طريقة xxagri من موقعKmD 2- طريقة STRELiTZIA لكن المشكل عند فتح الدريفر بـ Cff أجد أن المثال الدي أرفقه STRELiTZIA يحمل 17 دالة أما : (1) يحمل دالتين . (2) يحمل 3 دوال . - عند تجريب كل منهما يطفأ الجهاز و الحمد لله نجوت من BSOD :oops: . أنتظر ملاحظاتكم ؟؟؟ . [تمرين] الكل يسأل و الكل يجيب - STRELiTZIA - 27-08-2009 السلام عليكم و رحمة الله إقتباس :- عند تجريب كل منهما يطفأ الجهاز و الحمد لله نجوت من BSODمبروك عليك اول BSOD لقد اختنق الجهاز :monster2:نعم طريقة تحليلك صحيحة 100% المشكل في الــ Imports. هل استعملت السروس الذي وضعته في هذه المشاركة ؟ كيف قمت باضافة دالة ZwCreateFile الى المكتبة الأصلية ؟ هل في Make اظهر لك رسالة تتحدث على انشاء الدريفر بــ Force و اخبرك انه ممكن ان لا يعمل ؟ بالتوفيق ان شاء الله [تمرين] الكل يسأل و الكل يجيب - TF6M - 27-08-2009 مبروك عليك اول BSOD لقد اختنق الجهاز :monster2: العقوبة للجميع :tong:هل استعملت السروس الذي وضعته في هذه المشاركة ؟ : نعم !!!! . كيف قمت باضافة دالة ZwCreateFile الى المكتبة الأصلية ؟ : كود : Function ZwCreateFile(FileHandle:PHANDLE; DesiredAccess:ACCESS_MASK;ObjectAttributes:POBJECT_ATTRIBUTES;
IoStatusBlock:PIO_STATUS_BLOCK ;AllocationSize:PLARGE_INTEGER ;
FileAttributes,ShareAccess,CreateDisposition,CreateOptions:ULONG ;
EaBuffer:PVOID;EaLength:ULONG):NTSTATUS;StdCall;implementation كود : Function ZwCreateFile; external NtKernel name '_ZwCreateFile';هل في Make اظهر لك رسالة تتحدث على انشاء الدريفر بــ Force و اخبرك انه ممكن ان لا يعمل ؟ : نعم !!!! . بارك الله فيك ,, [تمرين] الكل يسأل و الكل يجيب - STRELiTZIA - 27-08-2009 إقتباس :هل في Make اظهر لك رسالة تتحدث على انشاء الدريفر بــ Force و اخبرك انه ممكن ان لا يعمل ؟ : نعم !!!!جيد... هناك رسائل تخص انواع البرامترات... عن ماذا كانت تتحدث ؟ بعد اضافة الدالة الى المكتبة الأصلية قل قمت بعمل آخـــــــــر و نقل الناتج الى المجلد include ؟ [تمرين] الكل يسأل و الكل يجيب - TF6M - 27-08-2009 1 - بعد التعديل أصبح يحمل 4 دوال فقط أظفت '_' ZwCreateFile . 2- لم أظف أي شيء أو أعمل تعديلات .. لكن عندما بدلت Dcu لم يتغير شيء نفس النتيجة . 3- ممكن لأني أظفت : كود : Procedure InitializeObjectAttributes; external NtKernel name '_InitializeObjectAttributes';كود : Procedure InitializeObjectAttributes(InitializedAttributes:OBJECT_ATTRIBUTES ;
ObjectName:PUNICODE_STRING;Attributes:ULONG ;RootDirectory:HANDLE ;
SecurityDescriptor: PSECURITY_DESCRIPTOR); stdcall;:cryss: [تمرين] الكل يسأل و الكل يجيب - STRELiTZIA - 27-08-2009 غير ملف ntoskrnl.dcu الذي عندك بالذي في المرفق و جرب من جديد... لتعرف مكان الخطأ في المكتبة او في الأوامر التي تعاملت معها... الملفات المصدرية ساضعها لاحقا حينما انتهي من بعض التعديل عليها... جرب الآن.... حالا...... و اخبرني
|