btsh قام بنشر يوليو 22, 2020 قام بنشر يوليو 22, 2020 (معدل) مع برنامج عرضه في السابق واليوم اقوم بحمايته الخطوات التي اتبعتها ١.خفاء شاشة اكسس ٢.عمل نموذج للشفت ٣.عمل فترة تجربيه للبرنامج ٤.الحمايه بمعرفة رقم الهارد والبرسوسر ٥. عمل رقم سري للفجول هل ده كافي ولا في حاجه تاني ممكن اعمله كل ماسبق من خطوات تم بمساعدتكم كلها موجوده علي موقع اوفيسنا وشكري لكل من ساهم في وضع معلومه ومعرفه علي الموقع اوفيسنا تم تعديل يوليو 22, 2020 بواسطه btsh 1
محمد أبوعبدالله قام بنشر يوليو 22, 2020 قام بنشر يوليو 22, 2020 السلام عليكم اضف للبرنامج صلاحيات للمستخدمين اذا كان المستخدم اكثر من مستخدم تحياتي
Matin_Murad قام بنشر يوليو 22, 2020 قام بنشر يوليو 22, 2020 (معدل) يكفي الحمايه برقم الهارد فقط على كل نماذج تم تعديل يوليو 22, 2020 بواسطه Matin_Murad
sandanet قام بنشر يوليو 23, 2020 قام بنشر يوليو 23, 2020 (معدل) اخواني الكرام اعتقد ان موضوع حماية البرنامج برقم الهارد او المعالج او اي قطعة اخرى قد تمت مناقشته طويلاً وما توصلنا اليه هو ان جميع ارقام القطع تتغير بتغير نظام التشغيل وهذا الامر لا ترغب به كصاحب برنامج لانك لاتستطيع منع المستخدم من اعادة تثبيت نظام التشغيل وستجد نفسك ملزما بإعطاءه كود تفعيل جديد في كل مرة لذلك قمنا بالعديد من التجارب للتوصل الى حلول منطقية حول هذا الامر ووجدنا انه يمكننا استخدام اسم المعالج بدلاً من رقمه حيث ان اسم المعالج لايتغير بعد الفورمات كما ان اسم المعالج يحتوي على ارقام بطبيعة الحال لذلك ارتأينا انه يمكن استخلاص تلك الارقام من اسم المعالج لانها ستكون بالتأكيد ثابته ولا تتغير. طبعاً بعد التعمق في الموضوع اكثر وجدنا انه يمكن تغيير اسم المعالج من الريجستري وهي حالة نادر مايقوم بها احد لكن للحصول على حماية اكبر وإغلاق الثغرة السابقة كان لابد لنا من البحث اكثر عن شيء اخر يمكن استعماله لزيادة الأمان فوجدنا ان رقم UUID لأي جهاز كومبيوتر لايتغير بعد الفورمات وكان الاختبار قد تم اجراءه من قبل احد الاخوة جزاه الله خيرا لذلك قررنا انه سيكون التحقق عن طريق استخدام اسم المعالج مع رقم الـ UUID فإذا وجد تطابق فهذا يعني ان الجهاز مصرح له وان البرنامج يجب ان يعمل عند المستخدم ولا يطالبه بكود تفعيل جديد. المرفق التالي هو اخر ماتوصلنا إليه ملاحظة: هنالك طريقة لحماية البرنامج اون لاين وهي طريقة فعالة ايضاً لكنها تتطلب اتصال انترنت مستمر عند المستخدم - الطريقة مشروحة هنا تحياتي key_maker.mdb protection_sandanet.accdb تم تعديل يوليو 23, 2020 بواسطه sandanet 1
btsh قام بنشر يوليو 23, 2020 الكاتب قام بنشر يوليو 23, 2020 شكرا استاذ / sandanet (علي الرد فكره جميله الحمايه عن طريق النت لكن ماذا افعل لو العميل لا يمتلك نت) شكرا استاذ /matin_murad(رقم الهارد علي كل نموذج ؟؟ ممكن توضج اكتر ولو بمثال ) شكرا استاذ / محمد ابو عبد الله (لبرنامج يوجد به صلاحيات للمستخدمين) ممكن احد يشرح لي ارفع ملف ازاي علي الموقع لان ملف الحمايه بعد الضغط كبير
sandanet قام بنشر يوليو 23, 2020 قام بنشر يوليو 23, 2020 14 دقائق مضت, btsh said: لكن ماذا افعل لو العميل لا يمتلك نت اذا كان برنامجك لايتطلب الاتصال بالانترنت فاستخدم الطريقة التي اعلاه وهي الحماية عن طريق اسم المعالج ورقم الـ uuid 1
Cap Mohammed Ali قام بنشر أغسطس 11, 2020 قام بنشر أغسطس 11, 2020 السلام عليكم .... اتمنى من حضرتك لو تشير لينك فيديو تشرح فى هذه الاكواد وطريقة تصميمها حتى يستفيد من هم اصحاب المستوى المتوسط
محمد التميمي قام بنشر أغسطس 11, 2020 قام بنشر أغسطس 11, 2020 في ٢٣/٧/٢٠٢٠ at 13:14, sandanet said: اذا كان برنامجك لايتطلب الاتصال بالانترنت فاستخدم الطريقة التي اعلاه وهي الحماية عن طريق اسم المعالج ورقم الـ uuid السلام عليكم استاذ sandanet نعم بالفعل اخي الكريم كل الارقام تتغير بتغيير الانظمة هذا ما ثبت لديكم ولدي بالتجربة والامثل حماية الاكسس رقم الـ UUID استاذ sandanet لماذا تغيب علينا كثيراً انا احب اطروحاتك وافكارك بار الله بك
sandanet قام بنشر أغسطس 11, 2020 قام بنشر أغسطس 11, 2020 10 ساعات مضت, محمد التميمي said: لماذا تغيب علينا كثيراً انا احب اطروحاتك وافكارك اخي الكريم أنا متواجد معكم يومياً تقريباً فلم أتغيب إلا قليلاً بسبب انشغالي بأعمال أخرى .. وإن شاء الله متواجد للرد على أي استفسار او سؤال بخصوص مواضيع الحماية في الكسس تحياتي
عزالدين المنصوري قام بنشر أغسطس 15, 2020 قام بنشر أغسطس 15, 2020 في ٢٣/٧/٢٠٢٠ at 01:37, btsh said: مع برنامج عرضه في السابق واليوم اقوم بحمايته الخطوات التي اتبعتها ١.خفاء شاشة اكسس ٢.عمل نموذج للشفت ٣.عمل فترة تجربيه للبرنامج ٤.الحمايه بمعرفة رقم الهارد والبرسوسر ٥. عمل رقم سري للفجول هل ده كافي ولا في حاجه تاني ممكن اعمله كل ماسبق من خطوات تم بمساعدتكم كلها موجوده علي موقع اوفيسنا وشكري لكل من ساهم في وضع معلومه ومعرفه علي الموقع اوفيسنا السلام عليكم استاذ اين هي الخطوات هذه فقط عناوين في اي مكان اجد الشرح لتلك العناوين الف تحية .....
أفضل إجابة AJSRPREGID قام بنشر أغسطس 16, 2020 أفضل إجابة قام بنشر أغسطس 16, 2020 شكرا جزيلا لكم على التوضيح كل التقدير و الاحترام
btsh قام بنشر أغسطس 17, 2020 الكاتب قام بنشر أغسطس 17, 2020 ده لنك خطوات الحمايه http://www.mediafire.com/file/vesc77h8fl8wpz4/27.7.2020.rar/file
naseralmaky قام بنشر أغسطس 20, 2020 قام بنشر أغسطس 20, 2020 في ٢٣/٧/٢٠٢٠ at 05:12, sandanet said: اخواني الكرام اعتقد ان موضوع حماية البرنامج برقم الهارد او المعالج او اي قطعة اخرى قد تمت مناقشته طويلاً وما توصلنا اليه هو ان جميع ارقام القطع تتغير بتغير نظام التشغيل وهذا الامر لا ترغب به كصاحب برنامج لانك لاتستطيع منع المستخدم من اعادة تثبيت نظام التشغيل وستجد نفسك ملزما بإعطاءه كود تفعيل جديد في كل مرة لذلك قمنا بالعديد من التجارب للتوصل الى حلول منطقية حول هذا الامر ووجدنا انه يمكننا استخدام اسم المعالج بدلاً من رقمه حيث ان اسم المعالج لايتغير بعد الفورمات كما ان اسم المعالج يحتوي على ارقام بطبيعة الحال لذلك ارتأينا انه يمكن استخلاص تلك الارقام من اسم المعالج لانها ستكون بالتأكيد ثابته ولا تتغير. طبعاً بعد التعمق في الموضوع اكثر وجدنا انه يمكن تغيير اسم المعالج من الريجستري وهي حالة نادر مايقوم بها احد لكن للحصول على حماية اكبر وإغلاق الثغرة السابقة كان لابد لنا من البحث اكثر عن شيء اخر يمكن استعماله لزيادة الأمان فوجدنا ان رقم UUID لأي جهاز كومبيوتر لايتغير بعد الفورمات وكان الاختبار قد تم اجراءه من قبل احد الاخوة جزاه الله خيرا لذلك قررنا انه سيكون التحقق عن طريق استخدام اسم المعالج مع رقم الـ UUID فإذا وجد تطابق فهذا يعني ان الجهاز مصرح له وان البرنامج يجب ان يعمل عند المستخدم ولا يطالبه بكود تفعيل جديد. المرفق التالي هو اخر ماتوصلنا إليه ملاحظة: هنالك طريقة لحماية البرنامج اون لاين وهي طريقة فعالة ايضاً لكنها تتطلب اتصال انترنت مستمر عند المستخدم - الطريقة مشروحة هنا تحياتي key_maker.mdb 360 kB · 54 تنزيلات protection_sandanet.accdb 688 kB · 83 تنزيلات صباح الخير كل عام وانتم بخير بمناسبة السنة الهجرية الجديدة اشكرك جدا على طريقة الحماية فهي فعلا جميلة ولكن توجد مشكلة عند اخفاء الجداول المرتبطة لايمكن اظهارها مرة أخري هل توجد طريقة لاظهار الجداول المرتبطة ملاحظة : في المرفق الي حضرتك اشتغلت عليه يوجد كود لاخفاء الجداول واخر لاظهارها ولكن عند اخفاء الجداول المرتبطة ومحاولة اظهارها بالكود الاخر لاتظهر نهائيا وتظهر فقط الجداول المحلية وجداول النظام
naseralmaky قام بنشر أغسطس 20, 2020 قام بنشر أغسطس 20, 2020 (معدل) 55 دقائق مضت, naseralmaky said: صباح الخير كل عام وانتم بخير بمناسبة السنة الهجرية الجديدة اشكرك جدا على طريقة الحماية فهي فعلا جميلة ولكن توجد مشكلة عند اخفاء الجداول المرتبطة لايمكن اظهارها مرة أخري هل توجد طريقة لاظهار الجداول المرتبطة ملاحظة : في المرفق الي حضرتك اشتغلت عليه يوجد كود لاخفاء الجداول واخر لاظهارها ولكن عند اخفاء الجداول المرتبطة ومحاولة اظهارها بالكود الاخر لاتظهر نهائيا وتظهر فقط الجداول المحلية وجداول النظام حدث عند النقر On Error Resume Next '========================= اخفاء الجداول المرتبطة =========================== Dim tdf As TableDef Dim db Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next End Sub 6 دقائق مضت, naseralmaky said: ايه الكود الي يظهر الجداول المرتبطة تم تعديل أغسطس 20, 2020 بواسطه naseralmaky
sandanet قام بنشر أغسطس 21, 2020 قام بنشر أغسطس 21, 2020 (معدل) في ٢٠/٨/٢٠٢٠ at 09:32, naseralmaky said: ايه الكود الي يظهر الجداول المرتبطة جرب الكود التالي Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If left(tdf.Name, 4) <> "msys" And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If If tdf.Attributes = 1073741825 Then tdf.Attributes = 0 Next tdf Set dbs = Nothing Application.SetOption "Show Hidden Objects", 1 Application.SetOption "Show System Objects", 1 تم تعديل أغسطس 21, 2020 بواسطه sandanet
naseralmaky قام بنشر أغسطس 21, 2020 قام بنشر أغسطس 21, 2020 5 ساعات مضت, sandanet said: جرب الكود التالي Dim dbs As Database, tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs If left(tdf.Name, 4) <> "msys" And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If If tdf.Attributes = 1073741825 Then tdf.Attributes = 0 Next tdf Set dbs = Nothing Application.SetOption "Show Hidden Objects", 1 Application.SetOption "Show System Objects", 1 جزاك الله خير ممتاز وتم حل المشكلة جزيتم خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.