منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
الاخوة الافاضل عملت برنامج ويوجد به شاشة لادخال اسم المستخدم وكلمة المرور طبعا مخزنه في قاعدة بيانات اكسس كيف يمكن تشفير اسم المستخدم وكلمة المرور وتخزينها في قاعدة البيانات الاكسس وعند الدخول يدخل المستخدم الاسم وكلمة المرور من غير تشفير واريد كيف يعمل البرنامج تشفير ومقارنتها في المخزنه في قاعدة البيانات الاكسس يرجى من الاخوة الافاضل من يملك القدرة على المساعدة ان يفيدنا بمثال حتى الجميع يستفيد منه ودمتم بخير

أخي الكريم,
السلام عليكم و رحمة الله و بركاته,

إبحث في المنتدى قبل أن تضع موضوعك, فربما تجد مواضيع تفيدك أكثر و تعطيك أفكار جديدة عن الفكرة التي تريدها و التي لديك.
على العموم, المنتدى وجد للتعاون و المناقشة بين الاعضاء Smile

إقرأ هذه المشاركة:
تشفير كلمة المرور.

بسم الله الرحمن الرحيم
اخي الكريم بارك الله فيك بحثت ولكن ظهرت لي نتائج كثيره وبصراحة ما وصلت الى الذي اريده ولكن بمتابعة المشاركة الموجودة في اعلى تم الاستفادة وهذا ما اريد شكرا لك ربنا ان يجعل هذا العمل في ميزان حسناتك

العفو أخي الكريم,

كلنا هنا من أجل الفائدة العامة لنصل إلى أعلى مستوى في البرمجة بإذن الله Smile

انظر للمثال التالي وهو تشفير كلمة المرور فقط ويمكنك تطبيق نفس الفكرة على اسم المستخدم
كود تشفير (اجتهاد من اخيكم سعود)

بسم الله الرحمن الرحيم
اخي سعود بارك الله فيك بصراحة فكرة جيدة ولكن تحتاج الى تطوير لوحظ في حال كتابة كلمة المرور يمكن قرائتها مباشرة من التشفير وذلك الكود لا يشفر حروف كلمة المرور الدالة على كلمة المرور ولتوضيح اكثر بعد التعديل على الكود ليكون على الصورة التالية

كود :

Function en(ByVal tp As String) As String

        Dim all As String = ""

        Dim txt As String = tp.Trim

        Dim mykey() As String = "1#2#3#4#5#9".Split("#")

        Dim i As Integer = 0

        For Each t In txt

            all &= t & mykey(i)

            i += 1

        Next

        Return all

          End Function

فاذا اردنا تشفير كلمة فيجوال ستظهر في التشفير على الشكل التالي ف1ي2ج3و4ا5ل9 ما اريد هو اخفاء حروف كلمة فيجوال من التشفير بارك الله فيك اخي سعود

طيب مارايك بهاتين الدالتين

كود :

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

    Function Decrypt(ByVal text As String, ByVal key As String) As String

        Dim crp As TripleDESCryptoServiceProvider

        Try

            crp = New TripleDESCryptoServiceProvider

            Dim uEncode As New UnicodeEncoding

            Dim bytCipherText() As Byte = Convert.FromBase64String(text)

            Dim stmPlainText As New MemoryStream

            Dim stmCipherText As New MemoryStream(bytCipherText)

            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 csDecrypted As New CryptoStream(stmCipherText, crp.CreateDecryptor(), CryptoStreamMode.Read)

            Dim sw As New StreamWriter(stmPlainText)

            Dim sr As New StreamReader(csDecrypted)

            sw.Write(sr.ReadToEnd)

            sw.Flush()

            csDecrypted.Clear()

            crp.Clear()

            Return uEncode.GetString(stmPlainText.ToArray())

        Catch ex As Exception

            Throw

        End Try

    End Function

بسم الله الرحمن الرحيم
اخي سعود بارك الله فيك على الرد هذا ما اريد وبعد البحث في الموقع خاصة بمشاركتك بالدالتين وجدت هذا الموضوع
http://vb4arb.com/vb/showthread.php?4725...d+Hash.rar

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

البراء

hoob computer

البراء

hoob computer

سعود

البراء

سعود

البراء