تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشفير اسم المستخدم وكلمة المرور
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
الاخوة الافاضل عملت برنامج ويوجد به شاشة لادخال اسم المستخدم وكلمة المرور طبعا مخزنه في قاعدة بيانات اكسس كيف يمكن تشفير اسم المستخدم وكلمة المرور وتخزينها في قاعدة البيانات الاكسس وعند الدخول يدخل المستخدم الاسم وكلمة المرور من غير تشفير واريد كيف يعمل البرنامج تشفير ومقارنتها في المخزنه في قاعدة البيانات الاكسس يرجى من الاخوة الافاضل من يملك القدرة على المساعدة ان يفيدنا بمثال حتى الجميع يستفيد منه ودمتم بخير
الرد }}}}
تم الشكر بواسطة:
#2
أخي الكريم,
السلام عليكم و رحمة الله و بركاته,

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

إقرأ هذه المشاركة:
تشفير كلمة المرور.
الرد }}}}
تم الشكر بواسطة:
#3
بسم الله الرحمن الرحيم
اخي الكريم بارك الله فيك بحثت ولكن ظهرت لي نتائج كثيره وبصراحة ما وصلت الى الذي اريده ولكن بمتابعة المشاركة الموجودة في اعلى تم الاستفادة وهذا ما اريد شكرا لك ربنا ان يجعل هذا العمل في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#4
العفو أخي الكريم,

كلنا هنا من أجل الفائدة العامة لنصل إلى أعلى مستوى في البرمجة بإذن الله Smile
الرد }}}}
تم الشكر بواسطة:
#5
انظر للمثال التالي وهو تشفير كلمة المرور فقط ويمكنك تطبيق نفس الفكرة على اسم المستخدم
كود تشفير (اجتهاد من اخيكم سعود)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#6
بسم الله الرحمن الرحيم
اخي سعود بارك الله فيك بصراحة فكرة جيدة ولكن تحتاج الى تطوير لوحظ في حال كتابة كلمة المرور يمكن قرائتها مباشرة من التشفير وذلك الكود لا يشفر حروف كلمة المرور الدالة على كلمة المرور ولتوضيح اكثر بعد التعديل على الكود ليكون على الصورة التالية
كود :
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 ما اريد هو اخفاء حروف كلمة فيجوال من التشفير بارك الله فيك اخي سعود
الرد }}}}
تم الشكر بواسطة:
#7
طيب مارايك بهاتين الدالتين
كود :
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
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#8
بسم الله الرحمن الرحيم
اخي سعود بارك الله فيك على الرد هذا ما اريد وبعد البحث في الموقع خاصة بمشاركتك بالدالتين وجدت هذا الموضوع
http://vb4arb.com/vb/showthread.php?4725...d+Hash.rar
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد منع المستخدم من تعديل خلية معينة في داتا جريد ؟؟؟ Abdh111 3 160 05-06-16, 09:28 PM
آخر رد: khodor1985
Photo طريقة بحث و إظهار حقل معين من سجلين مختلفين ,, ولكن يتساويا في رقم المستخدم ahmed_elwerfalli 6 429 27-12-15, 03:55 AM
آخر رد: ahmed_elwerfalli
Question بخصوص الاستعلام عن اسم مستخدم وكلمة المرور والصلاحيات في قاعدة بيانات اكسس ahd kfery 2 704 24-06-14, 03:14 AM
آخر رد: ahd kfery
  [سؤال] ماهوا كود تعديل اسم المستخدم وكلمة المرور في البرنامج Ameer syria 11 3,624 29-11-13, 04:37 AM
آخر رد: Ameer syria
  احتاج كود كامل اسم المستخدم و كلمة المرور عبدالعزيز2013 2 850 03-07-13, 01:20 PM
آخر رد: مبرمج بلا حدود
  تشفير المعلومات المدخلة لفاعدة البيانات hoob computer 3 665 22-05-13, 04:53 PM
آخر رد: hoob computer
  تشفير كلمه المرور قبل حفظها داخل سيكوال سيرفر ابو عمر 2 485 03-10-12, 05:51 PM
آخر رد: ابو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم