+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ (/showthread.php?tid=6640)
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - سعود - 22-10-12
دالة في موديول
كود :
Function isyes(ByVal us As String, ByVal pass As String) As Boolean
If us = "admin" And pass = "admin2010" Then
Return True
Else
Return False
End If
End Functionوكود ضمن زر امر
كود :
If isyes(TextBox1.Text, TextBox2.Text) Then
MsgBox("welcome here my bb", MsgBoxStyle.Information, "")
Else
MsgBox("ERROR Sorry", MsgBoxStyle.Critical, "")
End Ifهل هذا هو المسمى الاجراءات المحزنة؟؟؟؟
وهل استعلمت بالدالة من جدول بقاعدة بيانات نفس الشي؟
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - amgadtamer - 22-10-12
اذا كنت تقصد عدم حدوث ما يسمى sql injection فالمقصود تمرير النص في جملة الاستعلام دون استخدام بارميترز
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - سعود - 22-10-12
بارك الله فيك
كيف يمكن صياغة جملة الاستعلام باستخدام البارمترات؟ الاضافة والتعديل سهلة لكن الاستعلام عن اسم مستخدم وكلمة مرور شلون؟ كيف اعدل على الجملة هذي
كود :
dim sql as string = "select * from tb where tname='" & textbox1.text & "' and pass=" & val(textbox2.text) & ""هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - سعود - 22-10-12
عدلت على الدالة لتكون هكذا
كود :
Function isyes(ByVal us As String, ByVal pass As String) As Boolean
Dim cm As New OleDb.OleDbCommand("select * from tb where tname='" & us & "' and pass='" & pass & "'", con)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
If dr.Read Then
Return True
Else
Return False
End If
End Functionهل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - amgadtamer - 22-10-12
PHP كود :
Function isyes(ByVal us As String, ByVal pass As String) As Boolean
Dim cm As New OleDb.OleDbCommand("select * from tb where tname=@n and pass=@pass", con)
cm.parameters.add(@n,oledb.char).value=us
cm.parameters.add(@pass,oledb.char).value=pass
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
If dr.Read Then
Return True
Else
Return False
End If
End Function
ثم عند تسجيل الدخول تستدعى الدالة وتمرر لها مربعى نص اسم المستخدم وكلمة المرور
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - mr_mgm - 22-10-12
[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته
كيف الحال اخي سعود
تفضل التعديل
كود :
Function isyes(ByVal us As String, ByVal pass As String) As Boolean
Dim cmd As New SqlCommand("select * from Users where UserName=@UserName and Password= @Password", con)
Dim dr As SqlDataReader
cmd.Parameters.Clear()
cmd.Parameters.AddWithValue("@UserName", us)
cmd.Parameters.AddWithValue("@Password", pass)
If con.State = ConnectionState.Closed Then con.Open()
dr = cmd.ExecuteReader
If dr.Read Then
dr.Close()
Return True
Else
dr.Close()
Return False
End If
End Functionالاستدعاء
كود :
MsgBox(isyes(TextBox1.Text, TextBox2.Text))بالتوفيق
[/COLOR]
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - rinawi - 23-10-12
أعتذر عن التأخير و شكرا لأخواني الذين سبقوني
PHP كود :
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Try
With cmnd
.Connection = conn
.CommandType = CommandType.Text
.CommandText = "select * from users where uname = @uname and pword = @pword"
With .Parameters
.Clear()
.AddWithValue("@uname", OleDbType.VarChar).Value = tb_user.Text.Trim
.AddWithValue("@pword", OleDbType.VarChar).Value = tb_pword.Text.Trim
End With
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
redr = cmnd.ExecuteReader
If redr.Read Then
redr.Close()
MsgBox("Done")
Form1.Show()
Else
MsgBox("Wrong Username Or Password")
redr.Close()
End If
conn.Close()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
هل هذا المثال هو الموصى به للحماية من الاختراق؟؟ - سعود - 23-10-12
بارك الله فيكم جميعا اخواني
الان عرفت الطريقة والحمدلله.
لم اكن اتصور انها هكذا؟