تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح)

♥~>H̷T̷L̷R̷3̷0̷5̷<~♥ · منذ /10-07-2013, 07:06 PM

الاكواد, النظام, الوهمي, بلدلفي, تخطي, والشرح)

تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح)

*. ارحب بكم اخواني واخواتي

*. اتمنى ان تكونو في تمام الصحة والعافية.*

*. [ .. الموضوع .. ] .*
*. [ ~..تخطي النظام الوهمي بلدلفي

تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح) 15.gif

.. ~ ] .*

اكتشفت الطريقه بمجهودي الشخصي
يوجد اكثر من طريقه للتخطي واعرف 3 طرق
لاكن هذه اسهل طريقه حسب خبرتي المتواضعه

------------------------------------------------------------------------------

كان عندي وقت فراغ وحللت النظام الوهمي وشفت الفرق
ولقيت درايفرات خاصه بلنظام الوهمي يوجد اكثر من درايفر
وهذه اثنان فقط (يوجد اكثر)

كود:

VBoxSF.sys VBoxMouse.sys

راح نستعمل VBoxMouse.sys

اولا نحتاج ان نحضر مسار مجلد الويندوز
كما نعرف كل شخص يثبت الويندوز ببارتشن مختلف
مثلا
C:\
D:\
E:\

نحن فقط نحتاج المجلد لهذا
نستعمل

GetWinDir

كود:

كود:

 	function GetWinDir: string; var   dir: array [0..MAX_PATH] of Char; begin   GetWindowsDirectory(dir, MAX_PATH);   Result := StrPas(dir); end;

الان وصلنا لمجلد الويندوز

نحتاج كود يوصلنا الى السستم 32
بحيث يكون هكذا

كود:

كود:

GetWinDir+'\system32\drivers\';

لاكن سوف نعمل فونكشن له
ويصبح الفونكشن هكذا

كود:

كود:

function getsystem32drivers:string; begin  result:=GetWinDir+'\system32\drivers\'; end;

الحين كلشي تمام
وصلنا لمجلد الويندوز
وايضا السستم 32
بقى لنا ان نتاكد من الدرايفر اذا موجود او لا
وهذا اسهل جزء بلموضوع راح نستعمل
FileExists

كود:

كود:

 	 if  FileExists(getsystem32drivers+'VBoxMouse.sys') then  ShowMessage('File Exists')   else  ShowMessage('File Not Found'); end.

اذا وجد الملف راح يكتب File Exists
واذا لم يجد الملف راح يكتب File Not Found

-----------------------------------------------------------------

انا استعملت مشروع كونسل
وهذا الكود بلكامل

كود:

كود:

 	program Project2;  {$APPTYPE CONSOLE}  uses     Windows, SysUtils,Dialogs;   function GetWinDir: string; var   dir: array [0..MAX_PATH] of Char; begin   GetWindowsDirectory(dir, MAX_PATH);   Result := StrPas(dir); end;  function getsystem32drivers:string; begin  result:=GetWinDir+'\system32\drivers\'; end;  begin  if  FileExists(getsystem32drivers+'VBoxMouse.sys') then  ShowMessage('File Exists')   else  ShowMessage('File Not Found'); end.

وبحسب خبرتك والي انت تريده
تكتب الكود الي تحتاجه وراح ينفذه لك

*. [ ~ .. في أمان الله .. ~ ] .*

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

jo'd hgk/hl hg,ild fg]gtd (lu hgh;,h] ,hgavp)

King Anonymous · منذ /10-07-2013, 07:11 PM

يشرفني ان اكون اول من يرد

مشكور جاري التقييم

King Anonymous · منذ /10-07-2013, 07:41 PM

للاسف ابو سمعات

معوضة حبيبي

MisterMDE999 · منذ /10-07-2013, 08:04 PM

جزاك الله الالف خير...
/
شرح وافي..

GENERAL AMERICA · منذ /10-07-2013, 08:10 PM

جيد استمر صديقي

somar · منذ /10-08-2013, 03:16 PM

موضوع جميل وصاحبو اجمل

المواضيع المتشابهه للموضوع: تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح)
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
نقاش : ما افضل البًرامج الاختراق المبرمجه بلدلفي وما رايك في التخطيات وما افضل تخطي	♥~>H̷T̷L̷R̷3̷0̷5̷<~♥	قسم إختراق الأجـهـزه والأيـمـيـلات	6	08-22-2013 06:04 PM
النظام الوهمي كيف اسطبه ؟ هل يصل التبليغ الى النظام الاساسي اذا فتحت السرفر من النظام الوهمي ؟	aaqassam	مشاكل وحلول إختراق الأجهزة	1	07-01-2013 09:04 PM
صنع برنامج بلدلفي ثم كسره,كسر برناج مبرمج بلدلفي,الهندسه العكسيه	Mariio	قسم إختراق الأجـهـزه والأيـمـيـلات	10	01-21-2013 06:52 AM
[ مشكله ] النظام الوهمي,No bootable medium Found ! System halted,النظام ما يشتغل لا من السيدي ولا من نسخة ايزو	slo00om	مشاكل وحلول إختراق الأجهزة	9	11-27-2012 07:07 PM

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

تخطي النظام الوهمي بلدلفي (مع الاكواد والشرح)

*. ارحب بكم اخواني واخواتي *. اتمنى ان تكونو في تمام الصحة والعافية.* *. الموضوع .. ] .* *. تخطي النظام الوهمي بلدلفي .. ~ ]

. ارحب بكم اخواني واخواتي . اتمنى ان تكونو في تمام الصحة والعافية.* . الموضوع .. ] . *. تخطي النظام الوهمي بلدلفي .. ~ ]