08-04-13, 09:46 PM
فكرت بطريقة مخصصة اغير فيها كلمة المرور قبل حفظها فاجتهدت حتى وجدت حل قد لا يكون مرضيا بمافيه الكفاية لكن المحاولة جيدة
هذه هي الدالة:
كود :
Function en(ByVal tp As String) As String
Dim all As String = ""
Dim txt As String = tp.Trim
Dim mykey() As String = "1a2b3c4d5#e6f7g8h9i#10j11k12l#13m14n15o#16p17q18r1#9s20t2#1u22v23#w24x25y26#z".Split("#")
Dim i As Integer = 0
For Each t In txt
all &= t & mykey(i)
i += 1
Next
Return all
End Function
ولاضافة كلمة المرور مشفرة
كود :
cm.Parameters.AddWithValue("@tpass", OleDbType.VarChar).Value = en(tpass.Text).Trim
كود :
& "' and tpass='" & en(tpass.Text) & "'