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

[♥~>H̷T̷L̷R̷3̷0̷5̷<~♥]

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

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

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

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





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


اكتشفت الطريقه بمجهودي الشخصي
يوجد اكثر من طريقه للتخطي واعرف 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)