Agmcz
(عضو بفريق مجلة دلفي للعرب)
******

تاريخ الإنتساب : 19-08-2010
تاريخ الميلاد : إخفاء تاريخ الميلاد
التوقيت المحلي : 26-06-2019 في 01:15 PM
الحالة :

Agmcz معلومات المنتدى
إنضم إلينا : 19-08-2010
آخر زيارة (مخفي)
إجمالي المشاركات : 587 (0.18 مشاركات في اليوم الواحد | 1.37 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
اجمالي المواضيع : 31 (0.01 مواضيع في اليوم | 0.37 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
فترة البقاء متصل : (مخفي)
الأعضاء المحالين: 1
Total Thanks Received: 143 (0.04 2.82 per day | 5063 percent of total 2.82)
(Find All Threads Thanked ForFind All Posts Thanked For)
Total Thanks Given: 85 (0.03 1.67 per day | 5083 percent of total 1.67)
(Find All Thanked ThreadsFind All Thanked Posts)
  
معلومات إضافية عن Agmcz
Sex: Male

توقيع Agmcz
سبحان الله وبحمده سبحان الله العظيم

RE: Check if ASLR is enabled 3
Check if ASLR is enabled مصادر دلفي مفتوحة تعليمية
فحص هيدر PE وتحقق من ASLR

[php]
{************************************
* Coded by Agmcz                    *
* Hints by naquadria                *
* Date: 2018-01-07                  *
************************************}

unit uCheckASLR;

interface

uses
 Windows;

function CheckASLR(const FileName: string): Boolean;

implementation

const
 IMAGE_DLLCHARACTERISTICS_DYNAMIC_BASE = $0040;
 IMAGE_DIRECTORY_ENTRY_BASERELOC = 5;

function CheckASLR(const FileName: string): Boolean;
var
 hFile: THandle;
 hMapping: DWORD;
 pMap: Pointer;
 dwSize: DWORD;
 IDH: PImageDosHeader;
 INH: PImageNtHeaders;
 ISH: PImageSectionHeader;
 n: Word;
 dwRelocAddr, dwRelocSize: DWORD;
begin
 Result := False;
 hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
 if hFile <> INVALID_HANDLE_VALUE then
 begin
   dwSize := GetFileSize(hFile, nil);
   hMapping := CreateFileMapping(hFile, nil, PAGE_READONLY, 0, dw...