السلام عليكم
اخواني كيف يمكنني تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر
وايضا كيف استطيع استرجاعها ؟؟
ارجو ان يتكرم احد الاخوه بوضع مثال يشرح الطريقه
بارك الله فيكم
كود :
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")
اما اعادة التشفير فليس ضروري مع انه موجود لكن لعدم حاجتي له تركته ابحث وستجده
حفظك الله اخي سعود ...
شكرا لك علي الكود