Aboubaker Nour
2008-10-29, 16:28
بسم الله الرحمن الرحيم
وبه ثقتي
الحمد لله رب العالمين، وصلاته وسلامه على محمد خاتم النبيين، وإمام المتقين، ورسول رب العالمين، وعلى آله وصحبه والتابعين لهم بإحسان إلى يوم الدين،
أما بعد:
في درسنا اليوم سوف نتطرق إلى كيفية إنشاء برنامج 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-nour@hotmail.com (aboubaker-nour@hotmail.com)
وبه ثقتي
الحمد لله رب العالمين، وصلاته وسلامه على محمد خاتم النبيين، وإمام المتقين، ورسول رب العالمين، وعلى آله وصحبه والتابعين لهم بإحسان إلى يوم الدين،
أما بعد:
في درسنا اليوم سوف نتطرق إلى كيفية إنشاء برنامج 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-nour@hotmail.com (aboubaker-nour@hotmail.com)