صمم برنامج جدار ناري بالدوت نت

[Aboubaker Nour]

بسم الله الرحمن الرحيم
وبه ثقتي
الحمد لله رب العالمين، وصلاته وسلامه على محمد خاتم النبيين، وإمام المتقين، ورسول رب العالمين، وعلى آله وصحبه والتابعين لهم بإحسان إلى يوم الدين،
أما بعد:
في درسنا اليوم سوف نتطرق إلى كيفية إنشاء برنامج Fire Wall إي جدار ناري لحماية One Port إي منفذ واحد من الإختراق بواسطة الفجوال دوت نت...
نبدأ و نتوكل على الله عز و جل
* البرنامج دا تركته مفتوح المصدر لمن يريد تطويره *
صورة الهدف
* أنظر المرفقات الصورة Fire Wall *
مرحلة التصميم:
نقوم بإدراج الأدوات التالية:
Label و نعطيه اسم The Port :
TextBox و نتركه فارغ
Button و نعطيها اسم Protect
ثم ندرج الأداة AxWinsock و هي أداة تستخدم بكثرة في الفجوال بسيك 6.0
ليصبح شكل برنامجنا على الشكل التالي:
* أنظر المرفقات الصورة Tools *
يمكن لأي مبرمج أن يغير اسماء الأدوات و خصائصها على حسب ما يريد حتى تخدمه…
مرحلة كتابة الإكواد:
في برنامجنا نتعمد كليا على AxWinsock و نكتب الإكواد فيها:
الكود الأول: يقوم بتحذير المستخدم في حالة أن أي شخص حاول الإختراق من البورت الذي يحميه برنامجنا

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox("تحذير: شخص ما يريد الإختراق بالبورت" & txtPort.Text)
End Sub

الكود الثاني: يخبر المستخدم بأن البورت أصبح مفتوح
Private Sub Winsock1_Error(ByVal Number As Integer, ByVal Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As Boolean)
MsgBox("تحذير: المنفذ مفتوح", MsgBoxStyle.Critical)
End Sub

ثم على الأداة Button نكتب الكود التالي في الحدث Click

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
If txtPort.Text = "" Then
txtPort.Text = "5110"
End If
If btnOk.Text = "Protect" Then
Winsock1.Close()
Winsock1.LocalPort = txtPort.Text
Winsock1.Listen()
btnOk.Text = "Stop"
Else
Winsock1.Close()
btnOk.Text = "Protect"
End If
End Sub

أي أن كل الإكواد على الشكل التالي:

Public Class frmMain

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
If txtPort.Text = "" Then
txtPort.Text = "5110"
End If
If btnOk.Text = "Protect" Then
Winsock1.Close()
Winsock1.LocalPort = txtPort.Text
Winsock1.Listen()
btnOk.Text = "Stop"
Else
Winsock1.Close()
btnOk.Text = "Protect"
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox("تحذير: شخص ما يريد الإختراق بالبورت" & txtPort.Text)
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, ByVal Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, ByVal CancelDisplay As Boolean)
MsgBox("تحذير: المنفذ مفتوح", MsgBoxStyle.Critical)
End Sub

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

للأمانة: البرنامج دا تم تصميمه بواسكة الفيجوال 6.0 و أنا قمت بتحوبله ليعمل على الدوت نت...
و في الأخير إخوتي المبرمجين تقبلوا منى فائق الشكر و الإحترام * إلى الملتقي * في أمان الله *
أخوكم أبو بكر aboubaker- - البريد الإلكتروني حذف من قبل الإدارة (غير مسموح بكتابة البريد) -

[Aboubaker Nour]

واو
و لا رد
إذا يــــــــــــــــا مشرف أرجوك أقفل الموضوع

[NAIIL]

مشكووووووووووووووووووووووووووور

[سراب_88]

مشكوووووور
للاسف مازلت مادرست هذه لغة

[هزيم الرعد]