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

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


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

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

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

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

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

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

 

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

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

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

 

الملف من هنا

  • Like 5
رابط هذا التعليق
شارك

  • الردود 50
  • Created
  • اخر رد

Top Posters In This Topic

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

تم تعديل بواسطه وائل الاسيوطي
  • Like 1
رابط هذا التعليق
شارك

:wink2:

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

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

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

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

:wavetowel:

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

 

 

  • Like 3
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

 

 

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

كيفك أخي

إحتراماتي

تم تعديل بواسطه محمد ابو صهيب
رابط هذا التعليق
شارك

الســـــــــــــلام عليكم ورحمة الله تعالى وبركاته
اولا انا اول مرة اشارك فى هذا القسم وهذا بسبب جهلى فى الاكسل 
ولكن اعجبنى العنوان :wink2:
فقررت الدخول من باب حب الاستطلاع
ولكـــــــــــــــــــــــــــــــــن
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

 

تم تعديل بواسطه ابا جودى
  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

حييت من جديد

رابط هذا التعليق
شارك

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

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

حييت من جديد

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

تم تعديل بواسطه ابا جودى
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

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



×
×
  • اضف...

Important Information