سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) + تطبيقات جاهزة للاستخدام
صفحة 1 من اصل 1
سلسلة دروس الحماية ( للمبتدئين , المتوسطين , المتقدمين ) + تطبيقات جاهزة للاستخدام
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في هذا الدرس البسيط أحب إن أعلمكم ابسط طريقة لصناعة كلمة مرور واسم مستخدم مع إمكانية أغيرهما سوف نستخدم في هذه الطريقة الريجستري لتخزين المعلومات واسترجاعها وطرق التعامل مع الريجستري سهله جدا ألان لنبدأ قم بإنشاء زرا أمر ومربعا نص على واجهة المشروع وعلى زر التحقق من كلمة المرور اكتب الكود الأتي
كود PHP:السلام عليكم ورحمة الله وبركاته
في هذا الدرس البسيط أحب إن أعلمكم ابسط طريقة لصناعة كلمة مرور واسم مستخدم مع إمكانية أغيرهما سوف نستخدم في هذه الطريقة الريجستري لتخزين المعلومات واسترجاعها وطرق التعامل مع الريجستري سهله جدا ألان لنبدأ قم بإنشاء زرا أمر ومربعا نص على واجهة المشروع وعلى زر التحقق من كلمة المرور اكتب الكود الأتي
Private Sub Command1_Click()
Dim User_Name As String, PassWord As String
User_Name = GetSetting("Name", "Name", "UserName")
PassWord = GetSetting("Name", "Name", "PassWord")
If Text1.Text = User_Name And Text2.Text = PassWord Then
MsgBox "You Looged In "
Else
MsgBox "Wrong UserName Or Password"
End If
End Sub
في السطر الأول قمنا بالتعريف عن المتغيرات من النوع String التي تخزن قيمة نصية المطلوبة لجلب لتخزين القيم من الريجستري فيها بالنسبة للسطر الثاني فقط جلبنا القيمة من الريجستري بتحديد الجذر والقسم بعدها وبعدها المفتاح الذي يحتوي على القيمة وفي السطر الثاني قمنا بنفس العملية باختلاف أسم المفتاح وهنا أتممنا إسناد القيم إلى المتغيرات أي أصبحت لدنيا ألان كلمة المرور واسم المستخدم فيها بقى علينا مقارنة النصوص التي تم إدخالها من المستخدم مقارنة بالقيم التي جلبناها من الريجستري ومن هنا كتبنا جملة ألاف الشرطية وكان الشرط إذا كان ما مكتوب في مربع النص الأول الذي يطلب كتابة اسم المستخدم فيه = القيمة المخزنة في الريجستري وأيضا كانت كلمة المرور المكتوبة من قبل المستخدم = القيمة التي تم جلبها فيقم بالاتي بعدها كتبنا الكود في حال كتابة اسم مستخدم ولكمة مرور في حال لم يتطابق فيقوم المستخدم بإظهار رسالة تفيد بان كلمة المرور أو اسم المستخدم خطأ بعدها End If نهاية ألاف الشرطية ونهاية الحدث بالنسبة لإنشاء كلمة المرور فلا بد أنك تتساءل ألان كيف نقوم بتخزين قيمة ما أو تغيرها طريقة التغير نفس طريقة التخزين ويتم إيجازها بالكود الأتي
SaveSetting "Name", "Name", "UserName", "the Value"
حيث نستخدم ألداله SaveSetting التي تقوم بخزن قيمة جديدة في حال لم تكن هنالك قيمة في الريجستري أو تعديل القديمة بعد تحديد الجذر والقسم والمفتاح وأخيرا القيمة يمكنك أنشاء واجهة جديدة وكتابة الكود ألأتي لإنشاء كلمة مرور أو تغيرها
Private Sub Command1_Click()
SaveSetting "Name", "Name", "UserName", Text1.Text
SaveSetting "Name", "Name", "PassWord", Text2.Text
MsgBox "done"
End Sub
كما تم الشرح يتم خزن القيم مباشرة يمكنك تجريب المثال ألان وتجربته بكل بساطه بقيت ألان نقطه بسيطة وهي كيفية ترميز النص الموجود داخل الـ TextBox بالرموز *** بكل بساطة يتم ذلك من خلال الخاصية الآتية والكود الأتي
Text2.PasswordChar = "*"
والـ * هي الرمز نهاية الشرح
صانع برامج- المدير العام
- عدد المساهمات : 415
0
تاريخ التسجيل : 05/04/2010
العمر : 40
الموقع : برامج x
مواضيع مماثلة
» سلسلة دروس المحاكاة ( لوحة المفاتيح , الفأرة ,التشفير ) للمبتدئين
» شرايح بوربوينت جاهزة
» الدرس الاول:: للمبتدئين
» طريقة تنزيل الويندز للمبتدئين
» ESET Nod32 Antivirus 4.2.42.3 برنامج الحماية الشهير في نسخة جديدة فرنسية
» شرايح بوربوينت جاهزة
» الدرس الاول:: للمبتدئين
» طريقة تنزيل الويندز للمبتدئين
» ESET Nod32 Antivirus 4.2.42.3 برنامج الحماية الشهير في نسخة جديدة فرنسية
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى