+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر (/showthread.php?tid=4943)
تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر - ابو عمر - 03-10-12
السلام عليكم
اخواني كيف يمكنني تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر
وايضا كيف استطيع استرجاعها ؟؟
ارجو ان يتكرم احد الاخوه بوضع مثال يشرح الطريقه
بارك الله فيكم
تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر - سعود - 03-10-12
كود :
Public Function Encrypt(ByVal text As String, ByVal key As String) As String Try
Dim crp As New TripleDESCryptoServiceProvider
Dim uEncode As New UnicodeEncoding
Dim bytPlainText() As Byte = uEncode.GetBytes(text)
Dim stmCipherText As New MemoryStream
Dim slt() As Byte = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12}
Dim pdb As New Rfc2898DeriveBytes(key, slt)
Dim bytDerivedKey() As Byte = pdb.GetBytes(24)
crp.Key = bytDerivedKey
crp.IV = pdb.GetBytes(8)
Dim csEncrypted As New CryptoStream(stmCipherText, crp.CreateEncryptor(), CryptoStreamMode.Write)
csEncrypted.Write(bytPlainText, 0, bytPlainText.Length)
csEncrypted.FlushFinalBlock()
Return Convert.ToBase64String(stmCipherText.ToArray())
Catch ex As Exception
Throw
End Try
End Functionهذه دالة للتشفير تاخذ وسيطتين الاولى النص المراد تشفيره والاخرى مفتاح سري مثلا
كود :
dim pass as string = Encrypt(password.text,"anykeyword")
اما اعادة التشفير فليس ضروري مع انه موجود لكن لعدم حاجتي له تركته ابحث وستجدهتشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر - ابو عمر - 03-10-12
حفظك الله اخي سعود ...
شكرا لك علي الكود