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

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

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

إخواني الكرام في المنتدى وأحبابي في الله

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

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

كلمة السر لمحرر الأكواد 123

 

أقدم لكم الملف للتجربة وأرجو أن ينال إعجابكم

بعد التجربة سأقوم بوضع الأكواد المستخدمة

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

 

الملف من هنا

[عبد العزيز البسكري]

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

بارك الله فيك و لك أخي الغالي " ياسر خليل أبو البراء " على الملف المهم و الرّائع و الجديد في قائمة الابداعات

ننتظر الأكواد لأنّني دخلت لمحرر الأكواد و لم أجد شيئًا .. و هذا هو أساس الملف

فئق إحتراماتي

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

سلمت يداك ابا البراء ولا حرمنا االله من الاعيبك وحيلك الجميله

بس هو انا عن نفسي عرفت اشوف الاكواد

 

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

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

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

[أبوبسمله]

غالى وهدايك ثمينه 

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

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

[ياسر العربى]

حبيبي ابو البراء

بس الكود يدوب يسلك حال

مهما عملت الحماية ضايعة

تلت اربع الحمايات بتتحل بايقاف تشغيل الماكرو من مركز التوثيق

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

 

 

[أبوبسمله]

ادخل على الفيس هتلاقينا هناك ياعربى 

مستنينك

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

روعة ...يا شباب ...كود خطير .......هذا من حسن المرء الترك ما لا يعنيه ........

جيد ...قنبلة نواوية موقوتة .....في منتدى اكسل

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

1 دقيقه مضت, ياسر العربى said:

 

 

 

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

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

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

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

بارك الله بك أخي الحبيب أبو البراء

ما أروع أفكارك !. وما أجمل أسلوبك!.

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

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

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

[saad abed]

اخى ابو البراء

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

ابداعاتك كتيره ما شاء الله

اظن الاكواد دى طفره لانها الحماية الحقيقة

اذا فكت الحماية الغيت الاكواد واليوزر فورم

 

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

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

والسلام عليكم.

[saad abed]

اخى ياسر العربى

فعلا حصلت على الكود بعد ايقاف الماكرو

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

 

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

سلمت يا ابو البراء......كود قنبلة يورانيومية.....      اعجبني كثيرا ...انا بصدد دراسته .....روعة ...قنبلة من نوع صامتة الصوت......بابا...بابا..بابا

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

الان, سعد عابد said:

 

 

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

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

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

[عبد العزيز البسكري]

يا جماعة أعطوني الكود .. أنا لم يطلعلي شيء

بارك الله فيكم

 

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

1 دقيقه مضت, عبد العزيز البسكري said:

 

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

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

لقد أضحكتني ...يا عبد العزيز....هههههههههههههه روح شرب ماء زم زم  ...يجيك الكود مرة اخرى

شوفو ماذا قال عبد العزيز عن الكود

ههههه و الله أحيانا الانسان يكون دايخ

من كثرة الأكواد إختلط علي الحابل بالنابل و أصبحت لا أفكر

كيفك أخي

إحتراماتي

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

[ابو جودي]

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

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

ThisWorkbook

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

 

تم تعديل مارس 26, 2016 بواسطه ابا جودى

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

بارك الله فيكم إخواني على التشجيع وأعتذر عن عدم المتابعة من باكر حيث كنت منشغل قليلاً

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

وعندي ملف آخر سأقوم بإدراجه في موضوع منفصل إن شاء الله يجبر المستخدم على تمكين الماكرو في المصنف قبل الدخول عليه

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

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

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

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

حييت من جديد

[ابو جودي]

في 3/26/2016 at 23:05, محمد ابو صهيب said:

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

حييت من جديد

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

تم تعديل مارس 26, 2016 بواسطه ابا جودى

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

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

نورت المنتدى وإن شاء الله مش هتطلع منه أنا متأكد وهتحب الإكسيل وأنا متأكد

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

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