تجربة عدم تغيير اسم القاعدة او نسخها الى جهاز اخر

[ابو جودي]

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

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

DontCopyDB.zip

[عبد اللطيف سلوم]

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

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

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

DontCopyDB.zip 180.96 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

يسعد صباحك يا غالي

نجح الامر

أعطينا الطريقة 

[عبد اللطيف سلوم]

حاولت تغيير اسم القاعدة دون جدوى

[عبد اللطيف سلوم]

وينك يا غالي @ابا جودى

 

بدنا نطبق اللي عملته 

[kanory]

أخي ابا جودي ...... أنظر ...... أكوادك ....

 

[عبد اللطيف سلوم]

33 دقائق مضت, kanory said:

أخي ابا جودي ...... أنظر ...... أكوادك ....

 

انا طلع معي مثل هيك 

لكن ما افهم تاشي من المديول

[kanory]

5 دقائق مضت, عبد اللطيف سلوم said:

انا طلع معي مثل هيك 

لكن ما افهم تاشي من المديول

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

[ازهر عبد العزيز]

ظهرت لي هذه الرسالة

أستاذ  @kanory شلون كدرت تطلع الاكواد الملف محمي من الشفت

[kanory]

13 دقائق مضت, ازهر عبد العزيز said:

ظهرت لي هذه الرسالة

أستاذ  @kanory شلون كدرت تطلع الاكواد الملف محمي من الشفت

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

[kanory]

هذه واحدة منها 

منذ ساعه, عبد اللطيف سلوم said:

برنامج وجدته على النت قبل فترة

وهو مفتوح المصدر 

مضغوط نسختان 

2002/ 2016

تمكين الشفت.rar 77.61 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

 

[ابو جودي]

السلام عليكم

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

اخى الحبيب واستاذى الفاضل استاذ @عبد اللطيف سلوم

دعنا نفكك المرفق 
اولا الماكرو    autoexec

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

ap_DisableShift()

هذا السطر يستدعى كود لايقاف عمل زر الشيفت
الموديول الذى يحتوى على هذه الاكواد باسم UsysmodShift

السطر الثانى داخل الماكرو 
StartForm()

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

وأخيرا بعد ايقاف الشيفت وبعد اخفاء اطار اكسس فتح النموذج UsysfrmSplash

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

If CurrentProject.Name = "DontCopyDB.mde" And Len(CurrentProject.Name) = 14 Then
Else
MyNo = " -  :  0123456789"
MyMesg "يجب عدم تغيير إسم البرنامج لتكون قادر على تشغيله" & vbCrLf _
& "لذلك سوف يتم إغلاق البرنامج حتى يتم تصحيح الإسم أو يجب عليك الإتصال بمصمم البرنامج..", vbOKOnly, "للإتصال بالمبرمج " & MyNo
DoCmd.Quit
End If

وهنا قمت بتغيير الامتداد فقط للتمويه  من mdb  الى mde
 

وعند عداد الوقت استخدمت هذا الكود 
 

Call MacAddressDon

وهذاا يقوم بالنداء على كود داهل موديول باسم UsysmodGetMacAddress

وهذا الكود المستهدم بداخله 

Public Function getMacAddress(Optional strComputer As Variant) As String
Dim oWMIService As Object
Dim oMacs As Object
Dim oMac As Object
Dim strComp As Variant
'if no computer name is passed then use the name of the computer running the code.
If IsMissing(strComputer) Then
    strComputer = "."
End If
      
    Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
    'Win32_ComputerSystem
    For Each oMac In oMacs
       If IsNull(oMac.MacAddress) = False Then
        'Debug.Print oMac.MacAddress
        getMacAddress = oMac.MacAddress
    End If
    Next
End Function

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

MacAddress ان اردت القراءة اكثر عنها 
https://ar.wikipedia.org/wiki/عنوان_التحكم_بالنفاذ_للوسط
 

وحتى لا اطيل عليك فقط قمت بعمل حيلة صغيرة
قمت بعمل موديول باسم UsysmodDon'tCopy

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

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

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

اما اذا رزقكم الله باحد المحترفين مثل الاستاذ @kanory فكل ما سبق ينتهى بغضون ثوان قليلة

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

تم تعديل يوليو 8, 2019 بواسطه ابا جودى

[ابو جودي]

والان المرفق بعد ازاله الماكرو لمنع ايقاف الشيفت او الاخفاء للاطار ليسهل الاطلاع على الكائنات

وهناك حيله نسيت ذكرها 

استخدم فى بداية اسماء الكائنات التى لا اريد اظهارها للمستخدم العادى   Usys

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

DontCopyDB.zip

[ابو جودي]

وهذا لفتح الشيفت او اغلاقه 

من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

[kanory]

أولا : أخي @ابا جودى كل الشكر لك على الشرح

ثانيا : لم أقصد التحدي ولكن عندما رأيت المرفق محول ل mde  قلت امكن تقصده من ضمن الحماية بارك الله فيك

ثالثا : أكرر شكري لك وسعت صدرك

رابعا : 

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

اما اذا رزقكم الله باحد المهترفين مثل الاستاذ @kanory فكل ما سبق ينتهى بغضون ثوان قليلة

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

أنا لست محترف ..... بل هاوي فقط ....... ليه ياعم أنا مليش دعوه في برامج الناس لأن هذا أصلا يعتبر حرام .. والا ايه 

شكرا لك دائما روحك المرحة في موضوعاتك .... بارك الله فيك .... 

أخوك الصغير .... Kanory 

 

[AlwaZeeR]

جميل جدا أستاذ أبا جودي

افكارك دائما رائعة وتخدم المصلحة العامة والكثير الكثير يستفاد منها وانا اولهم 

كلنا نتعلم كل يوم وتأكد تماما ان أي مرفق يتم انزاله من أي شخص في هذا الصرح الرائع 

انا شخصيا أقوم بإنزاله وفي الكثير من الأحيان استفاد منه ولو باليسير

بخصوص الحماية المطلقة فليس هناك حماية مطلقة

ولكن

انا شخصيا وبتجربة لأكثر من عشرين سنة في مجال الاكسس

استخدم حماية كالآتي

حماية بواسطة الأمان لأمنع المتطفلين من التعديل على التصميم 

استخدم نظام الفترة الزمنية لمدة سنة

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

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

عقاب طبعا 🙂

 

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

ولكل من يقدم علماً نافعاً عسى ان يكون في ميزان حسناتنا

 

[مرحبا البي]

ممكن تساعدوني في برنامجي

[ابو جودي]

4 دقائق مضت, AlwaZeeR said:

جميل جدا أستاذ أبا جودي

افكارك دائما رائعة وتخدم المصلحة العامة والكثير الكثير يستفاد منها وانا اولهم 

كلنا نتعلم كل يوم وتأكد تماما ان أي مرفق يتم انزاله من أي شخص في هذا الصرح الرائع 

انا شخصيا أقوم بإنزاله وفي الكثير من الأحيان استفاد منه ولو باليسير

بخصوص الحماية المطلقة فليس هناك حماية مطلقة

ولكن

انا شخصيا وبتجربة لأكثر من عشرين سنة في مجال الاكسس

استخدم حماية كالآتي

حماية بواسطة الأمان لأمنع المتطفلين من التعديل على التصميم 

استخدم نظام الفترة الزمنية لمدة سنة

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

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

عقاب طبعا 🙂

 

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

ولكل من يقدم علماً نافعاً عسى ان يكون في ميزان حسناتنا

 

• العفو منكم استاذى الجليل و معملى القدير و أخى الحبيب الاستاذ @AlwaZeeR 

بل انتم اساتذتى ومنكم انهل واتعلم وما حييت سوف أظل ادين لكم كل الشكر لكم كل الفضل انت وكل اساتذتى الكرام يعد رب العزة سبحانه وتعالى

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

[ازهر عبد العزيز]

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

تم تعديل يوليو 8, 2019 بواسطه ازهر عبد العزيز

[ابو جودي]

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

وتذكر قول الله تعالى

بسم الله الرحمن الرحيم
وفوق كل ذى علم عليم

[ابوآمنة]

بوركت أخي أبا جودى 

وسلمت أناملك ،،،

عمل رائع يسجل في تاريخ إنجازاتك الرائدة .

[ازهر عبد العزيز]

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

سري جدااااا.rar

[ابو جودي]

بس كده هاهاهاهاهاهاها 

سهله جدا جدا جدا جدا جدا لمن يملك البرنامج الذى يقوم بكسر كلمة المرور 

انا لا املكه لذلك لن استطيع

[عبد اللطيف سلوم]

18 ساعات مضت, عبد اللطيف سلوم said:

يسعد صباحك يا غالي

نجح الامر

أعطينا الطريقة 

كيف اعمل برنامجي مثل هيك

يعني مسموح بالاول يشتغل على جهاز ويمنع النسخ لجهاز اخر ؟؟

[ابو جودي]

والله انا شرحت فوق راجع المشاركات وحاول تتبع الاكواد وان استعصى عليك شئ اسال وان شاء الله اجيبك

[عبد اللطيف سلوم]

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

والله انا شرحت فوق راجع المشاركات وحاول تتبع الاكواد وان استعصى عليك شئ اسال وان شاء الله اجيبك

طبقت الاكواد على احد برامجي أعطاني 
اغلاق للبرنامج اعتبره انه منقول من جهاز اخر ههههههههه

 

دبرها يا خال