user level security شخابيط وافكار :تفكيك ( صلاحيات المستخدمين ).. سلسلة شروحات وافكار ومرفقات

[ابو جودي]

بداية دعونا نتفق طالما فكرنا فى الموضوع ده ووصلنا له اذن نريد اضافة حماية لتطبيقاتنا

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

1- كل اسماء الجداول والنماذج والاستعلامات والموديول التى تخص المستخدمين ونظام الحماية سوف تبدأ بالمقطع Usys  حتى يتعامل معها االاكسس على انها من كائنات النظام فيخفيها اليا عن المستخدم العادى

2- تشفير / فك تشفير البيانات التى تخص تطبيق نظام الصلاحيات

وبما اننا سوف نبدأ بتلك الجزئية يستوجب تقديم الشكـر والامتنان لاستاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x 

لاننى ان شاء الله سوف استخدم نظام التشفير الذى تقدم به استاذى الجليل
اولا
ـــــــــ

الروتين المستخدم فى تشفير الكلمات والذى يتم وضعه فى موديول

Function Encoder(ByVal strWordDecrypt As String) As String
Dim iIndex As Integer
Dim iEncoder As Integer
Dim iEncodedVal As Integer

  Randomize
  Encoder = ""
  
    For iIndex = 1 To Len(strWordDecrypt)
    Do
      iEncoder = Int(98 * Rnd + 89)
      iEncodedVal = Asc(Mid(strWordDecrypt, iIndex, 1)) Xor iEncoder
      Loop While iEncodedVal = 1000 Or iEncodedVal < 99
      Encoder = Encoder & Chr(iEncodedVal) & Chr(iEncoder)
    Next iIndex
End Function

ويتم استدعاءه كلاتى

Encoder(text)

حيث ان text هو النص المراد تشفيره
أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد تشفير القيم الموجوده بهم

-------------------

العملية العكسية وهى فك تشفير الكلمات واعادتها الى وضعها الطبيعى

الروتين المستخدم فى فك تشفير الكلمات والذى يتم وضعه فى موديول
 

Function Decodeder(ByVal strWordEncrypt As String) As String
Dim iIndex As Integer
Dim iDecodedVal As Integer

  Decodeder = ""
  
    For iIndex = 1 To Len(strWordEncrypt) Step 2
      iDecodedVal = Asc(Mid(strWordEncrypt, iIndex, 1)) Xor Asc(Mid(strWordEncrypt, iIndex + 1, 1))
      Decodeder = Decodeder & Chr(iDecodedVal)
    Next iIndex
End Function

ويتم استدعاءه كلاتى

	Decodeder(EncoderText)

حيث ان EncoderText هو النص المشفر المراد فك تشفيره
أو انه اسم الحقل ( تيكست بوكس , كمبو بوكس ..) المراد فك تشفير القيم الموجوده بهم

 واخيرا المرفق 

 

Encrypt&Decrypt.mdb

تم تعديل أكتوبر 31, 2021 بواسطه ابا جودى

[abouelhassan]

شكر وتقدير واحترام من اخيك

[Moosak]

رائع ما شاء الله .. تسلم الأيادي

 

[Eng.Qassim]

تابع استاذنا الحبيب @ابا جودى اطروحاتك شيقة ومفيدة

[ابو جودي]

قبل ان اتكلم عن الجداول حابب اعرف راى اساذتى واخوانى واحبائى الكرام عن الاتى 

فلنسمى الجزء النظرى الاتى هو جزء التحليل للنظام ووضع التصور والخارطة التى سوف نكمل دربنا ان شاء الله على خطاها
اولا حابب ابدأ كل اسماء الجداول والاستعلامات والنماذج والموديول ان وجدت بــ  lvl
حتى يكونون مميزين ومرتبين فى العمل مستقبلا
على سبيل المثال 
جدول الـ users
احب ان يكون اسمه 
tbllvlUsers     ان اردنا عدم اخفاء الجدول على انه من جداول النظام 
ان اردنا اخفاء الجدول على انه من جداول النظام يكون   UsystbllvlUsers

وباقى الكائنات على نفس المنوال فما رأيكم على اى درب تحبون ان نسيـــــر
ثانيا 

حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها
ومن جهتكم اى حقول تريدون تشفر بياناتها ؟!

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

 

 

 

تم تعديل نوفمبر 2, 2021 بواسطه ابا جودى

[السبيل1]

مهتم و متابع 

[ابو جودي]

في ١‏/١١‏/٢٠٢١ at 21:39, ابا جودى said:

اولا حابب ابدأ كل اسماء الجداول والاستعلامات والنماذج والموديول ان وجدت بــ  lvl
حتى يكونون مميزين ومرتبين فى العمل مستقبلا
على سبيل المثال 
جدول الـ users
احب ان يكون اسمه 
tbllvlUsers     ان اردنا عدم اخفاء الجدول على انه من جداول النظام 
ان اردنا اخفاء الجدول على انه من جداول النظام يكون   UsystbllvlUsers

وباقى الكائنات على نفس المنوال فما رأيكم على اى درب تحبون ان نسيـــــر
ثانيا 

حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها
ومن جهتكم اى حقول تريدون تشفر بياناتها ؟!

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

 

فى انتظار ارائكم احبابى فى الله..

طرحت المضوع للشرح وللتفنيد والتطبيق جزئية جزئية وخطوة بعد خطوة ..

ولكن يبدو انه لم يلقى قبول على الرغم من طرحى للموضوع بعد ان وجدت تساؤلات عديدة عن ذلك الامر

[السبيل1]

أستاذ @ابا جودى أكمل علي بركة الله وإن شاء الله لك الأجر ولنا النفع

تم تعديل نوفمبر 3, 2021 بواسطه السبيل1

[ابو جودي]

حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها
ومن جهتكم اى حقول تريدون تشفر بياناتها ؟!

كلمة المرور , الاسم الرباعى  , البريد الالكترنى  , الاجابات على الاسئلة 

[السبيل1]

أري وأنتم أدري وأعلم بالمراد الاكتفاء بسؤال أمان واحد وإجابته

[Eng.Qassim]

7 ساعات مضت, السبيل1 said:

أكمل علي بركة الله وإن شاء الله لك الأجر ولنا النفع

اتمنى ان تنشر في كل ساعة موضوعا استاذنا العزيز @السبيل1

استمتع واطرب كثيرا للغتك العربية ولمفرداتك الجميلة

[السبيل1]

أخجلتمونا @Eng.Qassim هذا بعص ما عندكم والمنه من الله وحده وله الفضل والحمد

[ابو جودي]

لا اجد التفاعل بالردود المناسبة على اسألتى على بركة الله اكمل العمل كله كما سوف يترأى لى من وجهة نظرى 

طيب حتى لا يقال لى ان الجداول مستقبلا او النماذج

سوف اتعمدت تسمية كل الكائنات التى تخص الصلاحيات بالبداية Usys

لذلك سوف تعتبر تلك الكائنات تابعة للنظام وسوف تختفى تلقائيا 

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

تعمدت ان تكون ثلاث حتى ان خمن احد المقربين من المستخدم اجابة سؤال وكانت صحيحة يقف امام سؤلاين اخرين 

[محمد سلامة]

21 ساعات مضت, ابا جودى said:

لا اجد التفاعل بالردود المناسبة على اسألتى على بركة الله اكمل العمل كله كما سوف يترأى لى من وجهة نظرى 

طيب حتى لا يقال لى ان الجداول مستقبلا او النماذج

سوف اتعمدت تسمية كل الكائنات التى تخص الصلاحيات بالبداية Usys

لذلك سوف تعتبر تلك الكائنات تابعة للنظام وسوف تختفى تلقائيا 

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

تعمدت ان تكون ثلاث حتى ان خمن احد المقربين من المستخدم اجابة سؤال وكانت صحيحة يقف امام سؤلاين اخرين 

اشكرك ابا جودي علي التحليل الدقيق

 اكمل علي بركة الله

 

[ابو جودي]

المرفق رقم ( 2 )

فى المرفق الاول تحدثنا عن التشفير
هذا المرفق يحتوى فقط على الجداول اللازمة لانشاء نظام الصلاحيات

يختوى المرفق على 

- جدول UsystbllvlControlForms

هذا الجدول الخاص بادراج اسماء النماذج المراد تطبيق صلاحيات الفتح والاضافة والتعديل والحذف عليها

- جدول UsystbllvlGroup

هذا الجدول الخاص باضافة اسماء المجموعات التى نريد عمل الصلاحيات لها 

- جدول UsystbllvlQuestions

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

- جدول UsystbllvlRegistrationUsers

هذا الجدول الذى سوف يتم اضافة بيانات المستخدمين فيه والتى تحتاج قيما بعد لتفعيلها من قبل مسئول النظام

-جدول UsystbllvlUsers

جدول بيانات المستخدمين

 

SecurityLevelGroup.mdb

تم تعديل نوفمبر 4, 2021 بواسطه ابا جودى

[Eng.Qassim]

3 دقائق مضت, ابا جودى said:

هذا المرفق يحتوى فقط على الجداول اللازمة لانشاء نظام الصلاحيات

اين الجداول اخي @ابا جودى؟

[ابو جودي]

8 دقائق مضت, Eng.Qassim said:

اين الجداول اخي @ابا جودى؟

وهذا ما حسبته 
بسبب عدم التفاعل فى المناقشة والرد على اسألتى والاهتمام اصلا بما كتبته مسبقا هذا السؤال سوف يكون النتيجة الحتمية 

قمت ببدأ تسمية الجدوال يا افندم بــ Usys

لذلك سوف يعتبرها الاكسس من جداول النظام وسوف يتم اخفاؤها اليا .... ولذلك هذه خطوة الحماية الأولى 

لتتمكن من رؤية الجدوال لابد من اظهار جداول النظام

تم تعديل نوفمبر 4, 2021 بواسطه ابا جودى

[Eng.Qassim]

🤣والله يا بشمهندس متفاعل معاك وعامل فولدر خاص بعملك هذا وعارف ان الجداول مخفية

لكن كيف اظهرها؟

[ابو جودي]

ههههههههه تغير الكلام من 

27 دقائق مضت, Eng.Qassim said:

اين الجداول اخي @ابا جودى؟

الــى 

11 دقائق مضت, Eng.Qassim said:

وعارف ان الجداول مخفية

لكن كيف اظهرها؟

 

طيب اظهار الجداول

 

تكون النتيجة كالاتى

تم تعديل نوفمبر 4, 2021 بواسطه ابا جودى

[Eng.Qassim]

احسنت @ابا جودى.. كنت افتح النافيكيشن اوبشن لكن كنت انسى التعليم على جداول النظام

[ابو جودي]

الان, Eng.Qassim said:

احسنت @ابا جودى.. كنت افتح النافيكيشن اوبشن لكن كنت انسى التعليم على جداول النظام

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

[ابو جودي]

الان فى المرفق التالى ان شاء الله سوف يتم اضافة الاتى 

- مويول التشفير 

- نموذج اضافة المجموعات 

- نموذج اضافة اسئلة الأمان 

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

 

وبما اننى لا اجد التفاعل المناسب فى الرد على اسألتى وقررت عدم طرح اى اسألة مستقبلا لن يتم العمل كما يترائى للاعضاء وهذا ما احزننى ولم اكن اريده

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

او للمتابع تباعا لما اقدمه

تم تعديل نوفمبر 4, 2021 بواسطه ابا جودى

[Tarekfathallah]

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

[abouelhassan]

تسلم وتعيش ماشاء الله عليك

هل بالامكان اتاحة امكانية تغير الباسورد لليوزر

استاذنا ماشاء الله عليك

ربنا يحفظك يارب

[Ahmed.IQ]

السلام عليكم استاذ ابا جودي ,,

انا لدي استفسار ماهيا فائدة التشفير في حال تم كسر حماية البرنامج ؟

المقصود انه في حال تم كسر مفتاح الشفت وتم كسر باسورد vba فما هيا فائدة التشفير في وقتها ؟