اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر
6 hours ago, عبد اللطيف سلوم said:

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

 

دبرها يا خال

🙂

أبو جودي قاصدها يا أستاذ عبد

هلأ بدك تدفع هههههه

::

  • Like 1
  • Haha 1
قام بنشر
14 ساعات مضت, عبدالرحمن هاشم said:

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

استاذي @عبدالرحمن هاشم بارك الله فيك 
كما ذكر سابقا ليست هناك حماية مطلقة ..... لذلك هي مجرد وضع العراقيل لعملية أو سرعة الوصول الى تلك البيانات .... قد تكون هذه العراقيل بسيطة مثل منع الشيفت وغيرها أو صعبة مثل كتابة بعض الأكود داخل البرنامج ,,,,,,,, وفي النهاية هي مسألة وقت ... وبالمناسبة هناك برامج مدفوعة الثمن لمثل ذلك ... لأن البرامج المكتوبة بلغات برمجة قوية .... يمكن فك تشفيرها ... ( مثل برامج الشركات الكبيرة مثل ميكروسوفت وغيرها ) لأن من يحاول فكها يستخدم البرمجة العكسية وهكذا ...... خلاصة القول ( لكل مبرمج طريقته الخاصة في منع أو تأخير أو تعجيز الوصول لبيانات برنامجه ) 

وهذا يمثل رأي الذي أعتقده والله أعلم ...

  • Like 1
قام بنشر
17 دقائق مضت, kanory said:

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

استاذ kanory & AlwaZeeR

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

هل لنا بأمثلة لبعضاً من هذه العراقيل وليكن بذكر أشهرها من حيث الصعوبة

  • Like 1
قام بنشر
41 دقائق مضت, kanory said:

استاذي @عبدالرحمن هاشم بارك الله فيك 
كما ذكر سابقا ليست هناك حماية مطلقة ..... لذلك هي مجرد وضع العراقيل لعملية أو سرعة الوصول الى تلك البيانات .... قد تكون هذه العراقيل بسيطة مثل منع الشيفت وغيرها أو صعبة مثل كتابة بعض الأكود داخل البرنامج ,,,,,,,, وفي النهاية هي مسألة وقت ... وبالمناسبة هناك برامج مدفوعة الثمن لمثل ذلك ... لأن البرامج المكتوبة بلغات برمجة قوية .... يمكن فك تشفيرها ... ( مثل برامج الشركات الكبيرة مثل ميكروسوفت وغيرها ) لأن من يحاول فكها يستخدم البرمجة العكسية وهكذا ...... خلاصة القول ( لكل مبرمج طريقته الخاصة في منع أو تأخير أو تعجيز الوصول لبيانات برنامجه ) 

وهذا يمثل رأي الذي أعتقده والله أعلم ...

أخي @kanory
هل تستخدم انت شخصيا أي انواع حماية للبرامج التي تصممها ؟؟

اذا كانت الاجابة نعم يا ريت تزودنا ببعض الطرق

 

قام بنشر (معدل)

يجب اظهار الملفات للنظام

access-navigation-pane.png.3e59a4d16679847f403269b7b2690eed.png787d1277115093-how-show-all-system-objects-.jpg.f699fb1adbe6109ecbbb578a9bfd224c.jpg20.thumb.png.47dec8f122326d0e891a3f7f25fa9c67.png

من ضمن طرق الحماية التى انتهجها أن أجعل الاكسيس يعتبر الكائنات التى ترغب باخفائها ضمن نظامه فيخفيها 

وذلك يبدأ الاسم ب

Usys

تم تعديل بواسطه ابا جودى
قام بنشر
في ٨‏/٧‏/٢٠١٩ at 16:49, ابا جودى said:

السلام عليكم

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

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

دعنا نفكك المرفق 
اولا الماكرو    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

وهنا قمت بتغيير الامتداد فقط للتمويه :blink: من 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

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

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

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

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

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

اخي الكريم @ابا جودى

لقد قرأت هذا الشرح المفصل اكثر من 10 مرات

حتى اصبح عندي صداع 

ولم اوفق في الوصول لغايتي

اتحملني 

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

ما هي الامور التي انسخها من القاعدة التي اعددتها واضعها في برنامجي 

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

مش زابطة معي :wallbash::signthankspin::wallbash:

  • Haha 1
قام بنشر
1 دقيقه مضت, عبد اللطيف سلوم said:

اخي الكريم @ابا جودى

لقد قرأت هذا الشرح المفصل اكثر من 10 مرات

حتى اصبح عندي صداع 

ولم اوفق في الوصول لغايتي

اتحملني 

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

ما هي الامور التي انسخها من القاعدة التي اعددتها واضعها في برنامجي 

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

مش زابطة معي :wallbash::signthankspin::wallbash:

شوف بالنسبه لمسألة التحمل  لا تلقى لها بال ولا تقلق ان شاء الله طالما كنا من اهل الدنيا لن امل :biggrin:

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

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

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

تنويه ان كانت القاعدة التى ستسلمها الى العميل ما تم الهمل عليها ولا تعمل لديك فهذا فضل كبير كثير :biggrin: ارفقها كامله واعدل عليها واعيد ارسالها لك بعد بيعها اولا   :yes:

  • Like 1
قام بنشر
7 ساعات مضت, ابا جودى said:

شوف بالنسبه لمسألة التحمل  لا تلقى لها بال ولا تقلق ان شاء الله طالما كنا من اهل الدنيا لن امل :biggrin:

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

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

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

تنويه ان كانت القاعدة التى ستسلمها الى العميل ما تم الهمل عليها ولا تعمل لديك فهذا فضل كبير كثير :biggrin: ارفقها كامله واعدل عليها واعيد ارسالها لك بعد بيعها اولا   :yes:

السلام عليكم 

الله يصبحكم بأنوار النبي

أخي الكريم @ابا جودى

لا اريد موضوع تغيير اسم القاعدة 

فقط اريد كود النقل من جهاز لأخر

اعمل لي شيء مختصر 

واريد النقل مبدأيا وبعدين احلل وأفهم 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information