تشفير كلمة السر و حفظها في الريجستري

أخي الكريم السلام عليكم تفضل الرابط التالي

التشفير الدرس الأول و الثاني للاخ SOLO.NET

Reality كتب:

و كنت أقرأ في أحد المنتديات أن الريجستري طريقة قديمة و أن الأفضل الان هو ملفات XML  .. هل صحيح هذا الكلام ؟  و ما في الفرق ؟

←

ما مدى صحة هذا الكلام ..

ألف شكر أخي was_hal

و هل من جديد بخصوص الـ XML أو الريجستري ؟

السلام عليكم ورحمة الله ..

بخصوص الجزء الثاني وهو حفظ معلومات الدخول في الريجستري

فورم تسجيل الدخول يجب أن يحتوي علي التالي

txtUserName وهو عبارة عن مربع نص لادخال اسم المستخدم

txtPassword وهو عبارة عن مربع نص لادخال كلمة المرور

ChkRememberMe وهو عبارة عن مربع اختيار لتحديد إذا ماكان المستخدم يريد أن يحفظ معلومات الدخول في الريجستري ام لا

بالاضافة طبعا الي زر تسجل الدخول

في الشفرة الخاصة بالفورم :

أولاً يجب استدعاء الفئة Microsoft.Win32

Imports Microsoft.Win32

ثانياً حدد اسم المسار في الريجستري الذي تريد حفظ معلوماتك فيه وهو متغير ثابت عادي من نوع String

 Private Const c_RegistryKey As String = "MAS\ERP-System"

مع ملاحظة أنه يمكنك تغيير المسار كماء تشاء

في الحدث Form_Load يجب عليك أولاً أن تقوم باسترجاع القيم من الريجستري ووضعها في كائنات النموذج إن وجدت

Dim UserName As String = String.Empty
        Dim UserPassword As String = String.Empty
        Try
            Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey(c_RegistryKey)
            If Not regKey Is Nothing Then
                UserName= CType(regKey.GetValue("UserName"), String)
                UserPassword= (CType(regKey.GetValue("UserPassword"), String))
                regKey.Close()
            End If
 If UserName <> String.Empty AndAlso UserPassword <> String.Empty Then
            txtUserName.Text = UserName
            txtUserPassword.Text = UserPassword
            ChkRememberMe.Checked = True
  End If

اما بالنسبة للشفرة الخاصة بتسجيل الدخول للنظام وبعد كتابة شفرة التأكد من معلومات الدخول بالرجوع لقاعدة البيانات قم بكتابة الشفرة التالية والخاصة بحفظ أو مسح معلومات الدخول من الريجستري وذلك علي حسب مايختاره المستخدم (إذا قام باختيار RememberMe يتم الحفظ والعكس)

Dim regKey As RegistryKey = Registry.CurrentUser.CreateSubKey(c_RegistryKey)
                        If cbRemember.Checked Then
                            regKey.SetValue("UserName", txtUserName.Text)
                            regKey.SetValue("UserPassword", txtUserPassword.Text)
                        Else
                            regKey.DeleteValue("UserName", False)
                            regKey.DeleteValue("UserPassword", False)
                        End If
                        regKey.Close()

مع ملاحظة صغيرة أنه يتم حفظ معلومات الدخول للمستخدم (مستخدم الويندوز) فقط أي إذا كان هنالك أكثر من مستخدم للويندوز لا يتم حفظ المعلومات لهم جميعاً

والله الموفق

الله يجزيك ألف ألف خير أخي عمار

ما قصرت