ماهو كود البسورد فى الفجول بيسك

اتفضل اخي هيدي الكود :

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

Private Sub Command1_Click()

SaveSetting App.EXEName, "mypass", "password", "123456789"


End Sub

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

Private Sub Command2_Click()

Dim x As String

x = GetSetting(App.EXEName, "mypass", "password")

MsgBox x

End Sub

بس لازم تشفر الرقم قبل ما تحفظه , طريقه تشفير البيانات النصيه عن طريق مكتبه MD5 للأخ GENIUS-IT