الحماية _ تشفير الجداول

[ابوخليل]

مشاركة معكم احبتي

يوجد حل آخر للحماية  بشروط ، او هي شرطين :

الاول ان من يعمل على البرنامج لا يشمله الحجب ( لأنه حين يكون متصلا بالجدول من داخل البرنامج ، يمكنه نسخه)

الثاني ان تكون الحماية على على الحقول النصية في الجدول فقط

الطريقة هي تشفير الجدول عند غلق البرنامج

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

حماية تشفير.mdb

تم تعديل نوفمبر 17 بواسطه Moosak
نقل المرفق للمشاركة الأولى

[الحلبي]

12 ساعات مضت, ابوخليل said:

الطريقة هي تشفير الجدول عند غلق البرنامج

سيخنا الجليل ومعلمنا الجدير / ابو خليل

طب ماشى نجرب طريقة تشفير الجداول هو ممكن نشوف مثال صغير على التشفير

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

[ابوخليل]

تفضل

حماية تشفير.mdb

[الحلبي]

منذ ساعه, ابوخليل said:

تفضل

الله عليك سيخنا الجليل فكرة جميلة جدا (فكرة تشفير الجداول) ياخى العزيز انت عندك افكار فى منتهى العبقرية

شوف استاذى المثال الذى ارفقته يعمل جيدا لحالة (لوحدة) ـ ولكن عند ارفاف الاكواد فى برنامجى عند شاشة الدخول اجد الجداول كلها وعددها حوالى 15 جدول لا تكون مشفرة

انا غير قادر على ادخال الاكواد الى برنامجى (طبعا من غير كلمة سرـ لفتح التشفير) فكيف نستخدم هذه الاكواد فى مرفقك الى برنامجى كثير الجداول

خصوصا فى شاشة الدخول التى تشتمل على كلمة سر واسم المستخدم .

جزاك الله خير

[الحلبي]

استاذى ومعلمنا الجليل / @ابوخليل

كيف يمكن التطبق على برنامجى

[ابوخليل]

14 ساعات مضت, الحلبي said:

 وعددها حوالى 15 جدول 

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

ومع ذلك يمكنك تشفير 100 جدول بضغطة زر

المهم ان الحقول الرقمية لا يتم تطبيق التشفير عليها .. فقط الحقول التي نوعها نصي

تفضل تم تعديل الملف ليتعامل مع الجداول مباشرة بدلا من النموذج

زر واحد للتشفير وفك التشفير .. نقرة واحدة للتشفير (انظر الجداول) والنقرة الأخرى لفك التشفير (انظر الجداول )

الكود بسيط عبارة عن دالة واحدة تشفر وتفك التشفير .. ضعها في المكان المناسب بدلا من الزر

ويمكنك عمل متغيرات كشروط احتياطية عند التشفير وعكسه

حماية تشفير2.rar

[محمود حموده]

 

السلام عليكم

تم تعديل نوفمبر 16 بواسطه محمود حموده
م

[الحلبي]

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

ويمكنك عمل متغيرات كشروط احتياطية عند التشفير وعكسه

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

هل فيه تغيير غير اضافة كود الجدول الجديد عند الزر

حماية تشفير2.mdb

[Foksh]

24 دقائق مضت, الحلبي said:

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

هل فيه تغيير غير اضافة كود الجدول الجديد عند الزر

حماية تشفير2.mdb 660 kB · 2 downloads

مداخلة ، وقد سبقني اليها معلمنا @ابوخليل ، كنت اعمل على فكرة تقوم بتشفير جميع سجلات الجداول مرة واحدة بشكل مختلف قليلاً ويتيح للمستخدم تغيير مفتاح التشفير مع الإحاطة بأكثر من أمر أثناء عملية التشفير .

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

 

والموضوع الآخر هو أن الملف المرفق في مشاركة معلمي ومشاركتك أخي @الحلبي يعملان بشكل طبيعي عندي .

 

1 ساعه مضت, محمود حموده said:

 

السلام عليكم

وعليكم السلام ورحمة الله وبركاته أخونا @محمود حموده .

تم تعديل نوفمبر 16 بواسطه Foksh

[ابوخليل]

2 ساعات مضت, Foksh said:

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

والموضوع الآخر هو أن الملف المرفق في مشاركة معلمي ومشاركتك أخي @الحلبي يعملان بشكل طبيعي عندي .

 

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

ويمكنك فتح موضوع خاص بك ان احببت .

[الحلبي]

3 ساعات مضت, Foksh said:

وأرجو من صديقنا @الحلبي / نقل الحوار لموضوع جديد .

تمام تمام سوف انقل السؤال فى مشاركة جديدة

[الحلبي]

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

استاذى ومعلمى / @ابوخليل

الان فقط تم تشفير الجدول الجديد المسمى master لانى استخدم نفس المثال المعمول على اوفيس 2003

وعند استيراد قاعدة البيانات على اوفيس 2010 لا يعمل التشفير فى الجدول الثالث

جرب حضرتك وشوف هل انا مصبوط ام الخلل من عندى

[Foksh]

2 ساعات مضت, الحلبي said:

تمام تمام سوف انقل السؤال فى مشاركة جديدة

تم انشاء موضوع جديد ، تجده هنا 

[Moosak]

البساطة والجمال والإتقان .. 😊🌼
شكرا ألف ..

ولكن يبقى الإشكال والتساؤل نفسه والذي طرحته في موضوع الأستاذ فادي @Foksh >> وهو عندما يفتح البرنامج أكثر من مستخدم كيف ستكون النتيجة ؟؟

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

[ابوخليل]

45 دقائق مضت, Moosak said:

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

 

نعم صح

وازيدك من الشعر بيت "فيما لو فرضنا ضبط المسألة بطريقة ما" ..

لما يكون احد المستخدمين فاتح البرنامج ..

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

[Moosak]

32 دقائق مضت, ابوخليل said:

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

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

[الحلبي]

3 ساعات مضت, ابوخليل said:

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

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

 

3 ساعات مضت, Moosak said:

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

 

فعلا كلام استاذنا ومعلمنا الاستاذ / موسى مصبوط وهذا ما حصل عندما عمل المستخدمين على البرنامج فى وقت واحد

انا متأكد ان الاستاذ / فادى سوف يجد الحل ان شاء الله

[hanan_ms]

On 11/17/2024 at 9:29 AM, Moosak said:

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

استاذ @Moosak 

User جرب من جدول

بشرط SQL  حقل واحد ونسمية رقم الملف للتحديث نفترض على سبيل المثال بعد رقم ملف قبل الدخول الى الفورم كود يحديث  رقم ملف  

وهذا الشرط 

يتأكد من جدول المستخدمين ان رقم الملف محجوز او غير محجوز وعدد المسموح من المستخدمين للدخول وفتح الفورم 

IF Dcount("[]","[]") = 0 then

docmd.openform ""

else

msgbox " User INTO Form PLZ Wiat "

exit sub

end if

واذا كان للادمن عدل على دالة 

if Dcount("[]","[]","[]"=[])=0 then

 بما يخص دخول المستخدم لرقم الفريد كان لرقم ملف او مدني قومي او لاي اصل فريد

وتقدر تزيد عدد بتغير 0 الى 2 او 3 او 4 او 5

بس

قريبا تحديث نطاق  الجغرافي المرحلة الثانية مع المستخدمين وصلاحيات + حسابات وفواتير + اسكانر ماسح الضوئي لمفات لخاص بالارتبطات القواعد والى العام بسنوات والانواع طباعة + اعدادة اضافية لاعدادة الربط بالقواعد + رقم عام فاخترة رقم ملف + تعين وتغير رقم المرور للقواعد 

BE ......

يفترض لهذا الكود 

sub HL

Dim tg2 As String
Dim LH_Tablet As String
LH_Tablet = "رقم_الملف"

end sub 

HL

Dim tg2 As String
Dim LH_Tablet As String
LH_Tablet = "رقم_الملف"
Dim xyx00 As String
Dim sexx00 As String

xyx00 = DLookup("[" & DLookup("[B_tablet1]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'")
sexx00 = DLookup("[" & DLookup("[B_tablet2]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", "[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]='" & [Forms]![ID_File_word]![SHX] & "'")



If DLookup("[" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "]", "[File_M]", " [" & DLookup("[B_tablet3]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "] Like'" & [Forms]![ID_File_word]![SHX] & "' ") = [Forms]![ID_File_word]![SHX] Then

tg2 = DLookup("[path_drive_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & DLookup("[Folder_db]", "[folder_Link2]", "[Sys_Line]='" & LH_Tablet & "'") & "\" & xyx00 & "\" & sexx00 & "\File_" & [Forms]![ID_File_word]![SHX] & "\" & [Forms]![ID_File_word]![SHX]

'===================================

 ما يحتاج تشفير مادام عندك الخوادم او وحدات التخزين لان من مميزات التشفير من الجهاز للملفات قوي + صعوبة الوصول 

وما في احد يشفر 😏💯 

ما فهمت