[ابو عمر]

السلام عليكم

اخواني كيف يمكنني تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر
وايضا كيف استطيع استرجاعها ؟؟

ارجو ان يتكرم احد الاخوه بوضع مثال يشرح الطريقه

بارك الله فيكم

[سعود]

كود :

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

[ابو عمر]

حفظك الله اخي سعود ...
شكرا لك علي الكود