تعديل علي الاكواد لاستبدال تشفير بأخر

[السبيل1]

الأخوة الكرام مع الشكر والتقدير مقدما 
الملف المرفق يعمل بنظام تشفير للاسم وكلمة المرور مصدره الموديول UserModule
والمطلوب استبداله بنظام التشفير الذي مصدره المويول Protection
وذلك علي الأكواد الموجود بكائنات الملف حتي تعمل بنجاح حسب نظام التشفير الذي تم استبداله  

encoder replacement.rar

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

[ناقل]

تفضل المستخدم ناقل والباس 123

 

encoder replacement.rar

[السبيل1]

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

والله لقد أتعبتني محاولات أستبدال الكلمات (علي سبيل المحاكاة دون فهم لها) ولكن لم تضبط معي كل مرة يعطي رسالة خطأ بالكود أعتقد أن الإشكال يكمن ربما في تقديم أو تأخير أو استبدال بعض الرموز مثل علامات التنصيص والفاصلة أو الأقواس

ارجو إن كان لديك وقت يسمح بشرح طريقة التغيير حتي أتعلم ذلك

وأكرر شكري لمشاركتك الإيجابية ومجهودك الطيب

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

[ناقل]

25 دقائق مضت, السبيل1 said:

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

والله لقد أتعبتني محاولات أستبدال الكلمات (علي سبيل المحاكاة دون فهم لها) ولكن لم تضبط معي كل مرة يعطي رسالة خطأ بالكود أعتقد أن الإشكال يكمن ربما في تقديم أو تأخير أو استبدال بعض الرموز مثل علامات التنصيص والفاصلة أو الأقواس

ارجو إن كان لديك وقت يسمح بشرح طريقة التغيير حتي أتعلم ذلك

وأكرر شكري لمشاركتك الإيجابية ومجهودك الطيب

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

 

 

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

[السبيل1]

شكرا أستاذ @ناقل علي حسن استجابتك

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

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

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

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

[ابو جودي]

10 دقائق مضت, السبيل1 said:

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

بعد اذن استاذى العزيز الاستاذ @ناقل 

اولا الية التشفير واحدة فى كلا الحالتين ولم تتغير ولو يتم التغير على اى شئ فى الاكواد

ثانيا الاستاذ ناقل جزاه الله خيرا وضع الاتى 

1- شرط التاكد من عدم وجود مستخدمين مسجلين بالجدول 

2- عند تنفيذ وتحقيق الشرط بعدم وجود اى مستخدمين تشغيل استعلام الحاق ببيانات المستخدم الادمن والحاق رقم المستخدم واسماء النماذج التى تخص الصلاحيات

3- عند الانتهاء من الشرط وتحقيقه ان لم يكن هناك اى مستخدم تجد المستخدم الجديد تم انشاءه لذلك تستطيع الولوج ببيانات المستخدم

[ناقل]

16 دقائق مضت, السبيل1 said:

شكرا أستاذ @ناقل علي حسن استجابتك

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

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

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

تفضل .... لاني كنت مقفل كود عند الفتح .....

 

encoder replacement.rar

[السبيل1]

3 دقائق مضت, ناقل said:

تفضل .... لاني كنت مقفل كود عند الفتح .....

تمام أخي هذا ما لم أنتبه له شكرا جزيلا لكرمك

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

[jjafferr]

السلام عليكم 🙂

 

اخي الفاضل @السبيل1 ، رجاء اختيار مشاركة اخونا ناقل كأفصل إجابة ، حيث تمت الاجابة على السؤال 🙂

 

جعفر

[السبيل1]

وعليكم السلام أستاذ @jjafferr

لا أعلم كيف يتم ذلك 

[السبيل1]

عذرا أخي @ناقل 

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

ارجو منك مشكورا استكماله بالتعديل إلي التشفير الجديد لأن قدرتي علي التعديل وحدي بصراحة مازالت غير جيدة

 

[ناقل]

بل عدله انت ... وقم مشكورا بنشره هنا .... لتتعلم

الطريقة .... نعم بالمحاولة تستطيع ذلك وبالنظر في التعديلات السابقة تستطيع معرفة التعديل المطلوب .... دائما وكنصيحة لك حاول قراءة الكود ... ومع التكرار تصبح استاذا لي ... بارك الله فيك ... واذا لم تصل لنتيجة . ابشر ...

[السبيل1]

شكرا علي كلامك المشجع نعم حاولت ولم أستطع وربما قد نالني الارهاق ولهذا أعدك أن أستمر في المحاولة غداً والله المستعان

[jjafferr]

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

وعليكم السلام أستاذ @jjafferr

لا أعلم كيف يتم ذلك 

 

تفضل :

تحت كل مشاركة ، هناك سطر يمكنك النقر عليه "إختر كأفضل إجابة" (وكما هو موضح في الصورة التاليه بالدوائر الحمراء) :

 

جعفر

[Eng.Qassim]

بارك الله في جهودك ومثابرتك اخي العزيز @ناقل

[ناقل]

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

بارك الله في جهودك ومثابرتك اخي العزيز @ناقل

منكم نتعلم .... جزاك الله خيرا

[ناقل]

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

شكرا علي كلامك المشجع نعم حاولت ولم أستطع وربما قد نالني الارهاق ولهذا أعدك أن أستمر في المحاولة غداً والله المستعان

....؟

[السبيل1]

أخي بصراحة أنا مشتت بين عدة أمور 

مازالت عند وعدي بالمحاولة نسأل الله التيسير 

[ناقل]

5 دقائق مضت, السبيل1 said:

أخي بصراحة أنا مشتت بين عدة أمور 

مازالت عند وعدي بالمحاولة نسأل الله التيسير 

امين .... وان ارت الكود فهو جاهز بغيت انزلها بس لما شفت ردك توقفت ...

 

[السبيل1]

هذا ما قمت به اخي @ناقل

      UN = XORDecryption(DLookup("[UName]", "Users", "ID_User = " & Nz(OpenArgs, 0)), "User")
      UN2 = XORDecryption(DLookup("[fname]", "Users", "ID_User = " & Nz(OpenArgs, 0)), "User")

ارجو الإفادة لأني لا أعلم إن كان صحيحاً أم لا ؟

[ناقل]

ما شاء الله تبارك الله ..... باقي خطوة وتصل ..... طيب ...

الكود كما ذكرنا سابقا عبارة عن ثلاث مكونات :

اسم الفانك : (متغيرنص التشفير , متغير الحقل المشفر )decode

متغير نص التشفير

متغير الحقل المشفر

في الكودين يظهر كالتالي

الكود القديم :::::::::::::::::::::::::::::::::: والكود الجديد :::::::::::::::::::::::::::::::::::::::::::

 

تفضل الكود ....

Private Sub Form_Open(Cancel As Integer)
   If Nz(OpenArgs, "") = "Add" Then
      Me.Caption = "إضافة مستخدم جديد"
   Else
      UNUM = OpenArgs
      UN = XORDecryption("User", DLookup("[UName]", "Users", "ID_User = " & Nz(OpenArgs, 0)))
      UN2 = XORDecryption("User", DLookup("[fname]", "Users", "ID_User = " & Nz(OpenArgs, 0)))
      oldusr = UN
   End If
End Sub

 

[السبيل1]

ما شاء الله أخي الاستاذ @ناقل علم و خلق و إبداع

جزاك الله عني خيرا 

[ناقل]

17 دقائق مضت, السبيل1 said:

ما شاء الله أخي الاستاذ @ناقل علم و خلق و إبداع

جزاك الله عني خيرا 

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