(تطبيق) الحماية بأسلوب الدنكل ( الا شوي )

[محمد ايمن]

السلام عليكم و رحمة الله و بركاته

بسم الله الرحمن الرحيم و الحمد لله رب العاليمن و الصلاة و السلام على سيد المرسلين نبينا محمد ( صلى الله عليه و سلم )

الحمد لله الذي هدانا لهذا و ما كنا لنهتدي لو لا ان هدانا الله اما بعد

اخواني الكرام

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

منها الحماية بزراعة ملف نصي و الحماية عن طريق رقم الهارد إلخ........

وطبعا المعرف ان افضل طريقة للحماية هي عن طريق الدنكل ولكن الدنكل غالي الثمن

اذا كان لابد من ايجاد طريقة للحماية ولكن بسعر رخيص

واقرب شيئ للدنكل هو الفلاش ميموري

ولكن كيف ستطبق الحماية

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

ان هذا الرقم يتغير عند اجراء تهيئة للفلاش ( فورمات ) اذا فهذه الطريقة ضعيفة :wallbash:

ولكن ماذا اذا حصلت على الرقم التسلسي الاصلي الذي لا يتغير ابدا :smile:

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

اترككم مع المرفقات و ارجو ابداء الرأي حول الموضوع

ملاحظة البرنامج ليس مجاني انما مأجور و الأجرة هي الدعاء للاستاذ الكبير نارت لبزو ( ابو آدم )

استخراج رقم الفلاش ميموري 4.rar

تم تعديل أبريل 20, 2012 بواسطه محمد ايمن

[arthouse2010]

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

[أبو آدم]

أخي العزيز محمد أيمن

شكراً لك لهذا الثناء الطيب ، الذي إنما ينّمُ عن طيب أصلك ومنبتك ، وعلى أنك طالب علم حقيقي

وما لي من فضل ، إن الفضل إلا لله

والله من وراء القصد ... وهو حسبي

................

[محمد ايمن]

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

وانا بانتظر النتائج من الاخوة

[أبو آدم]

شهادتي بما قدّمت مجروحة

ولكن التطبيق يعمل بشكل ممتاز ويحقق الغاية وقابل للتطوير ...

شكراً

[عبدالله المجرب]

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

وللاخ محمد أيمن مثل ذلك

بارك الله فيكم ونفع بعلمكم

[محمد ايمن]

شهادتي بما قدّمت مجروحة

؟؟؟؟؟؟؟

[أبو آدم]

أنا دائم المتابعة لمواضيعك

وأنت ربطت إسمي بتطبيقك ... فإن أكثرت أنا المديح ، ... قد يساء الفهم

هذه هي ترجمة

شهادتي بما قدّمت مجروحة

مع تقديري لمواظبتك وحماسك

................

[محمد ايمن]

استاذي و معلمي نارت

انا لي الشرف و كل الشرف بان اضع اسمك على احد برامجي

[محمد ايمن]

رفم مستوى الحماية الى ثلاث مستويات :

بسم الله الرحمن الرحيم و به نستعين

اخواني الاكارم

البرنامج السابق و كما قلت يستخرج الرقم الاصلي للفلاش ميموري و هو رقم ثانت لا يتغير ابدا

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

هل هذا يعني ان المستخدم سيملك نسخة ثانية من البرنامج ؟؟؟؟؟

طبعا

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

المستوى الاول : رقم الفلاش ميموري

المستوى الثاني : ملفات موجودة ضمن الفلاش ميموري

المستوى الثالث : رقم موجود ضمن احد هذه الملفات

نبدأ على بركة الله

في البداية و قبل كل شيئ قم بازالة جميع الاجهزة الموصولة بمنافذ usb

ضع الفلاش ميموري التي تريد استخراج الرقم الاصلي لها

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

الكود الاول موجود سابقا ولن اتطرق الى شرحه

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

Set fso = CreateObject("Scripting.FileSystemObject")

        Set dc = fso.Drives

        With CreateObject("Scripting.FileSystemObject")

            For Each d In .Drives

            xx = d.driveletter & ":"

            Next

                If .FileExists(xx & "\Dummy_Protector_File.ldf") And .FileExists(xx & "\domin.ldf") Then

Else

                MsgBox "خطأ في ملفات دارة الحماية"

                Exit Sub

                End If

        End With

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

Open xx & "\" & "Domin.ldf" For Input As #1

                Do While Not EOF(1)

                Line Input #1, y

                Loop

                Close #1

                    If [y] <> "66cfe929b73cd1b8" Then

                    MsgBox "الرقم التسلسي للنسخة غير صحيح"

                    End If

                Exit Sub

و الآن يجب الربط الكودات الثلاثة فتصبح النتيجة

Dim d, fso, dc As Object

Dim chek, xx As String

Dim objWMIService, objItem, colItems, strComputer, IDD

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive")


For Each objItem In colItems

    If objItem.InterfaceType = "USB" Then

    chek = objItem.PNPDeviceID

        If chek <> "USBSTOR\DISK&VEN_GENERIC&PROD_USB_FLASH_DISK&REV_0.00\01AF0000000003EA&0" Then ' غير هذا الرقم الى رقم الفلاش الخاص بك

        MsgBox "الرقم غير صحيح"

        Exit Sub

        Else

        Set fso = CreateObject("Scripting.FileSystemObject")

        Set dc = fso.Drives

        With CreateObject("Scripting.FileSystemObject")

            For Each d In .Drives

            xx = d.driveletter & ":"

            Next

                If .FileExists(xx & "\Dummy_Protector_File.ldf") And .FileExists(xx & "\domin.ldf") Then ' غير اسماء الملفات و امتداها

                Open xx & "\" & "Domin.ldf" For Input As #1

                Do While Not EOF(1)

                Line Input #1, y

                Loop

                Close #1

                    If [y] <> "66cfe929b73cd1b8" Then '  غير هذا النص

                    MsgBox "الرقم التسلسي للنسخة غير صحيح"

                    End If

                Exit Sub

                Else

                MsgBox "خطأ في ملفات دارة الحماية"

                Exit Sub

                End If

        End With

        End If

    End If

Next


MsgBox "قم بتوصيل دارة الحماية"

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

اسم البرنامج Dummy File creator برنامج بسيط جدا يعطي ملف يحجز كامل مساحة الفلاش ميموري و الشرح موجود في الصور

الآن انا بانتظار تجربتكم و نتائجكم و آرائكم

Dummy File creator.rar

استخراج رقم الفلاش ميموري 5.rar

تم تعديل أبريل 21, 2012 بواسطه محمد ايمن

[أبو آدم]

جاري التحميل ... وقيد النظر

...............

[محمد ايمن]

اخواني الاكارم

السلام عليكم و رحة الله و بركاته

بعد التجريب و الفحص الدقيق تبين وجود خطأ في الكود السابق

الخطأ هو ان الكود يقوم بفحص اول جهاز usb يصادفه فاذا لم يكن الرقم مطابق يخرج من البرنامج

هذه مشكلة كبيرة فهل معنى هذا ان المستخدم سيضطر الى نزع كافة الاجهزة ليعمل البرنامج ؟؟؟؟ من المؤكد لا

الحل هو تغيير ترتيب الحماية

المستويات في الكود السابق كانت كالآتي

1 التاكد من صحة الرقم

2 التأكد من ملفات ضمن الفلاش

3 التأكد من رقم ضمن احد هذه الملفات

اما المستويات الحالية

1 التأكد من ملفات موجودة ضمن الفلاش ( وهذه الطريقة تضمن الدخول الى الفلاش الصحيح للبرنامج )

2 التاكد من الرقم التسلسي للفلاش

3 التاكد من رقم ضمن احد هذه الملفات

وانا بانتظار تجربتكم و آرائكم

استخراج رقم الفلاش ميموري 6.rar

تم تعديل أبريل 21, 2012 بواسطه محمد ايمن

[محمد ايمن]

انا بانتظار النتائج

[محمد ايمن]

؟؟؟؟؟؟؟

[أبو آدم]

يبدو أن الكثيرين غير مهتمين بمشاريع الحماية .. !!؟؟؟

...........

[محمد ايمن]

انما زكاة العلم نشره

والله من وراء القصد

[أبو آدم]

أحسنت ، أحسن الله اليك

تابع ولا تتعب من البذل و العطاء ، إنما العطاء جزاؤه عند الله

...........

[أحمد خلف]

اخي ابو ادم

اخي محمد ايمن

السلام عليكم ورحمة الله وبركاته

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

النموذج يأخذ رقم البروسيسور واسمه ويقوم بمطابقته بالرقم الموجود.

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

فاذا كانت هذه الطريقه تناسبك اخي محمد فأنا بأنتظار ردك.

والله الموفق.

[محمد ايمن]

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

هل تقصد الحماية عن طريق رقم المعالج ؟؟؟؟

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

ولكن فكر معي

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

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

وطبعا الفلاشة سهلة الحمل و خفيفة الوزن

[ابو ياسر]

السلام عليكم ورحمة الله وبركاته

شكرا لكم اخوتي الكرام على هذا المجهود وهذا العمل البديع ، وعندي ملاحظة لابد ان تؤخذ بعين الاعتبار ؛ فالنفرض ان الفلاشة ضربت ( تلفت ) وهذا يحدث كثيرا فكيف المخرج ؟

[أحمد خلف]

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

[محمد ايمن]

كما اوضحت لك اخي احمد

الفكرة كالآتي

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

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

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

[ابو ياسر]

السلام عليكم ورحمة الله وبركاته

شكرا لكم اخوتي الكرام على هذا المجهود وهذا العمل البديع ، وعندي ملاحظة لابد ان تؤخذ بعين الاعتبار ؛ فالنفرض ان الفلاشة ضربت ( تلفت ) وهذا يحدث كثيرا فكيف المخرج ؟

للرفع لاكمال الفائدة

[محمد ايمن]

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

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

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

[saef005]

اخوكم سيف ماهر

اشكر الاخ محمد ايمن على المجهود الرائع وعلى العلم الواسع

هذا الموضوع جدا مهم وقد بحثت كثيرا وان شاء الله وجدت الحل عند الاخ محمد ايمن

ارجوا التواصل والمواصلة في هذا الموضوع الهام جدا للفائدة الكبيرة والكثيرة

شكرا وتقبلوا تحياتي