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

[Guest محمد ابو صهيب]

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

[ياسر خليل أبو البراء]

بسم الله ما شاء الله عليك أخي الحبيب محمد

الوحيد الذي يدرس الكود ليستفيد منه ..بارك الله فيك وأرجو من الجميع اتباع هذا الأسلوب

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

والحمد لله أن نال الكود إعجابكم

[Guest محمد ابو صهيب]

سمحيني ...جماعة ...يحاول كل واحد فينا التمعن في الكود ...ويدر س منهاجية استعمال ها الكود   او بأخص ينظر محتوى الموديول من تاكتيك ودراسة محكمة من قواعد الفيجوال بيسيك ...هكذا الشغل ولا بلاش ......تقنية محكمة .....والله العظيم ...انا العبد الفقير راني نشوف في الموديول ..راني أتصور الفكرة التي حطت عند صاحب الكود ...لقيته ..انه يستحق التقدير .......وله الخبرة الواسعة والتنقية المحكمة في الفيجوال بيسيك....10/10

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

[ياسر خليل أبو البراء]

أخي الغالي أبو صهيب

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

تقبل تحياتي واشكرك على اهتمامك البالغ بالموضوع

[Guest محمد ابو صهيب]

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

[أبوبسمله]

تسلم يا ابوالبراء

وجزاك الله كل خير بس ياريت لو فيه تبسيط منك للغلابه اللى زيى

 

[ياسر خليل أبو البراء]

أخي الحبيب الفلاحجي ..تبسيط لابه ...

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

تقبل تحياتي

[Guest محمد ابو صهيب]

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

اقرء أحمد الكود وحاول ان تدخل في عقلية صاحب الكود في تفكيره 

في القواعد المستعملة ....

الطريقة أو الفخ  الذي يقع فيها المستخدم   بدون ان يشعر ...وهو START TIMER بالعربي العداد التلقائي ...الكود مضبوط على التوقيت ..وباقي الكود مضبوط على الفخ الذي يقع في المستخدم باستعمال برنامج لكسر الحماية أو يدويا ..فيشتغل العداد تلقائيا بحجة ان المستخدم قد دخل فيما لا يعينه ....فيصبح الحاصل على أن صاحب الكود استخدم سلاح ذو حذين ...أن لو دخل المستخدم فيما لا يعينه لن يحصل على شيء .....بمسح كافة الموديول .....خطة محكمة.....لشارل كومز ...تعرف المحقق CHARLE KOMS...هذه خطته ...أو خطة المحقق كونان الشهير 

[ياسر خليل أبو البراء]

بس للأسف عدم تمكين الماكرو يجعل من الخطة المحكمة خطة ضعيفة ..

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

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

أبحث عن طريقة وما زال البحث مستمراً

[أبو قاسم]

جميل سلمت يداك

[أبوبسمله]

18 دقائق مضت, ياسر خليل أبو البراء said:

بس للأسف عدم تمكين الماكرو يجعل من الخطة المحكمة خطة ضعيفة ..

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

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

أبحث عن طريقة وما زال البحث مستمراً

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

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

ويبقا كده اتصعبت اكتر على الهكرز ؟

بس برضه وفوق كل ذى علم عليم والله أعلى وأعلم

وجزاك الله كل خير على الموضوعات الشيقه

تقبل تحياتى ومرورى

3 ساعات مضت, وائل الاسيوطي said:

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

ياريت ياعم وائل تذكرلنا طريقه ولا 2

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

تقبل تحياتى

[خالد الشاعر]

استاذ ياسر

تسلم ايدك

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

[الصـقر]

الاخ والاستاذى الحبيب / ياسر خليل

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

موضوع رائع جدا ويستحق ان نشكرك عليه 

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

ان شاء الله احاول ان اجد الوقت لفهمه بأذن الله

وكان لى محاوله بسيطه من سنه تقريبا على الرابط التالى

 

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

ويمكن الوصول الى المحرر لو كتبت فى الخليه A1  بشيت رقم 3  رقم 1 ستخدل محرر الاكواد بدون اغلاق الملف

اشكرك كل شكر واسال الله تعالى ان يجعل كل ما تقدمه فى ميزان حسناتكم

ملحوظه بخصوص تفعيل الماكرو فى كود يقوم بذالك وايضا لو تم تحويل الملف الى تنفيذى لا يحتاج الى تفعيل الماكرو وبكدا اعتقد انها حمايه الى حد ما ومقدرش اقول 100

لانى اجهل تمام امور الهكر 

تقبلوا تحياتى جميعا

اخوكم حسام

تم تعديل مارس 27, 2016 بواسطه الصـقر

[محمد حسن المحمد]

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

الأكواد في حدث المصنف WorkBook

Option Explicit

Private Sub Workbook_Open()
    'Test To Ensure Access Is Allowed (For 2002 Onward)
    If Application.Version > 9 Then
        Dim VisualBasicProject As Object
        On Error Resume Next
        Set VisualBasicProject = ActiveWorkbook.VBProject
        If Not Err.Number = 0 Then
            MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook        " & vbNewLine & _
                 " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _
                   "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _
                 " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _
                 "    1. Select Tools - Macro - Security." & vbNewLine & _
                 "    2. Click The 'Trusted Sources' Tab" & vbNewLine & _
                 "    3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _
                 "    4. Save - Then Close And Re-open The Workbook", vbCritical
        End If
    End If
    
    'Disable The Esc Key And Start Timer
    Application.EnableCancelKey = xlDisabled
    Run "StartTimer"
End Sub

'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head
'Of The Code And Run "StartTimer" At The End As Per The Examples Below.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Run "DisableTimer"
    Run "StartTimer"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Run "DisableTimer"
    Run "StartTimer"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Run "DisableTimer"
    Run "StartTimer"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Run "DisableTimer"
    Run "StartTimer"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Run "DisableTimer"
End Sub

أما الموديول:

Option Explicit

Public IdleTime As Date

Private Sub DeleteAllVBA()
'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time
'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal
'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These
'Three Procedures When Finished.
'------------------------------------------------------------------------------------
    With ThisWorkbook
        If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then
        
            'In This Case Both Passwords Are Entered Correctly, So
            'The Timer And The Rest Of This Procedure Are Redundant
            Run "DisableTimer"
            Exit Sub
        Else
            If .VBProject.Protection = 0 Then   'Unlocked
                Run "DisableTimer"

                'Use Late Binding So No GUID Reference Is Needed
                Dim Component As Object

                'Delete All VBA
                For Each Component In .VBProject.VBComponents
                    With Component.CodeModule
                        .DeleteLines 1, .CountOfLines
                    End With
                Next Component

                'Save And Close To 'Fix' The Changes
                .Save
                
                MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)"
                Workbooks.Open (.FullName)    '< Open 2nd Instance Of Saved Book
                .Close                        '< Close The 1st Instance
            Else
                'Restart The Timer If The Project's Locked
                Run "StartTimer"
            End If
        End If
    End With
    Exit Sub
End Sub

Private Sub StartTimer()
    'This Procedure Interferes With Work In The VBE If Accidentally Set Running,
    'So We Disable It So The Developer Can Work There Uninterrupted...
    If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub

    '<< Set Your Own Idle Time Below >>
    IdleTime = Now + TimeValue("00:00:05")
    
    Application.OnTime IdleTime, "DeleteAllVBA"
End Sub

Private Sub DisableTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False
End Sub

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

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

أما من سيكتشف ويسبر أغوارها فهم المختصون أمثالكم أيها الكرام والسلام عليكم.

تم تعديل مارس 27, 2016 بواسطه محمد حسن المحمد

[وائل الاسيوطي]

20 ساعات مضت, ياسر خليل أبو البراء said:

 

كود اخفاء الصفحات في حاله عدم تمكين الماكرو موجود فعلا

دول مثالين 

Disable macros.rar

Enable Macros 2.rar

تم تعديل مارس 27, 2016 بواسطه وائل الاسيوطي

[ناصر سعيد]

لو دامت لغيرك ماوصلت لك يعني لو اصحاب الاكواد والاعمال القيمه

اغلقوا الاكواد ماكنا عرفنا شيئا 

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

معلش ياصديقي ياسر فهذا رايي الصريح وعلى الله القصد

[ياسر خليل أبو البراء]

أخي الكريم ناصر

رداً على رأيك ... هل رأيت من يبخل هنا بإعطاء كود ؟؟!!

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

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

أخي الكريم وائل

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

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

تقبلوا تحياتي

 

[ناصر سعيد]

الملكيه الفكريه وحمايتها تمام

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

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

يا اخي الكريم بيجمعوا الاكواد من هنا وهناك ليصنعوا برنامجهم المزعزم فهل هذه هي الحمايه الفكريه على مثل هذه البرامج .. وعلى الله قصد السبيل

 

[ياسر خليل أبو البراء]

أخي الكريم ناصر

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

وإن كنا لا نستطيع مجاراة العلامة الكبير عبد الله باقشير فيكفينا أن نجتهد بقدر الإمكان لنحاول الوصول إلى ما نريد بقدر اجتهادنا ..أما كونك تضع الناس في مقارنة فهذا أمر في وجهة نظري غير مستحب على الإطلاق ..اعذرني لصراحة رأيي .. لأن كلامك جارح في حق الأخوة الأعضاء وفي حق كل الناس بشكل عام .. ولا تنسى أن الله قسم الرزق بين العباد بالتساوي ولكن تختلف النسب ، فتجد أن الرزق قد يكون مال أو عقل أو أولاد أو راحة بال أو أي شيء يخطر ببالك .. وكل ميسر لما خلق له

تقبل تحياتي

[جلال الجمال_ابو أدهم]

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

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الحبيب جلال الأدهم بمثل ما دعوت لي

مالي أراك كل فترة تظهر وتحتفي ... أين تفاعلك بالمنتدى ؟؟ ننتظر منك الكثير أخي الحبيب جلال

[جلال الجمال_ابو أدهم]

1 دقيقه مضت, ياسر خليل أبو البراء said:

وجزيت خيراً أخي الحبيب جلال الأدهم بمثل ما دعوت لي

مالي أراك كل فترة تظهر وتحتفي ... أين تفاعلك بالمنتدى ؟؟ ننتظر منك الكثير أخي الحبيب جلال

قريبا ان شاء الله و الحمد لله
دعواتك اخى الحبيب

[محمد سلامة]

السلام عليكم.. ابو البراء

اول مرة اشارك في هذا القسم 

جذبني عنوان الموضوع

كل ما اريد قوله

بارك الله فيك 

[خير الايمان]

استاذنا / ياسر

دئما للتميز عنوان

دمت ودام ابداعك

تقديري

[ياسر خليل أبو البراء]

وعليكم السلامو أخي العزيز محمد سلامة

ونورت المنتدى بردك الطيب ومرورك العطر ، وننتظر منك بعض التواجد في منتدى الإكسيل لنستفيد من خبراتك إن شاء الله

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

بارك الله فيك ومشكور على كلماتك الطيبة في حقي

تقبلوا وافر تقديري واحترامي