كود كسر الرقم السري للورقة

[الـعيدروس]

السلام عليكم

كود لكسر شفرة ورقة محميه

احمي الورقة بباسورد وشغل الماكرو

وانتظر ولاحظ النتيجه

اليكم الكود منقول من موقع اجنبي

Sub PasswordBreaker()

     Dim i As Integer, j As Integer, k As Integer

     Dim l As Integer, m As Integer, n As Integer

     Dim i1 As Integer, i2 As Integer, i3 As Integer

     Dim i4 As Integer, i5 As Integer, i6 As Integer


     On Error Resume Next


                                 For i = 65 To 66

                              For j = 65 To 66

                       For k = 65 To 66

                For l = 65 To 66

                    For m = 65 To 66

                        For i1 = 65 To 66

                            For i2 = 65 To 66

                                For i3 = 65 To 66

                                    For i4 = 65 To 66

                                        For i5 = 65 To 66

                                            For i6 = 65 To 66

                                                For n = 32 To 126

                                                    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

                                                     Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _




      ' ^---^    ^--^                           /<<<

     ' /    /---/ --'------------------------------/

     '--------------^-----------------------------/

          '            '                        \<<<

        '       *        '

         '              '

            '        '

              '   '

               '                                      & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

                                                    Application.StatusBar = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

                                                    If ActiveSheet.ProtectContents = False Then

                                                        MsgBox "One useable password is " & Chr(i) & Chr(j) _

                                                        & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _

                                                        & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

                                                        Application.StatusBar = False

                                                        Exit Sub

                                                    End If

                                                Next n

                                            Next i6

                                        Next i5

                                    Next i4

                                Next i3

                            Next i2

                        Next i1

                    Next m

                Next l

            Next k

        Next j

    Next i

    Application.StatusBar = False

End Sub

[cat101]

شكرا شكرا

ولكن اذا كان محرر الاكواد مغلق مالعمل اذن ؟

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

اخي ابونصار

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

جرب على هذا الباسوورد 889887

ولا حظ النتيجة

[الـعيدروس]

السلام عليكم

الاخ cat101

بالنسبه لمحرر الاكواد له برنامج اخر

الاستاذ الفاضل ولد المجرب

جرب هذا

Sub PasswordBreaker()

     Dim i As Integer, j As Integer, k As Integer

     Dim l As Integer, m As Integer, n As Integer

     Dim i1 As Integer, i2 As Integer, i3 As Integer

     Dim i4 As Integer, i5 As Integer, i6 As Integer


     On Error Resume Next


                                 For i = 65 To 66

                              For j = 65 To 66

                       For k = 65 To 66

                For l = 65 To 66

                    For m = 65 To 66

                        For i1 = 65 To 66

                            For i2 = 65 To 66

                                For i3 = 65 To 66

                                    For i4 = 65 To 66

                                        For i5 = 65 To 66

                                            For i6 = 65 To 66

                                                For n = 32 To 126

                                                    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

                                                     Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _

                                                        & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)


      ' ^---^    ^--^                           /<<<

     ' /    /---/ --'------------------------------/

     '--------------^-----------------------------/

          '            '                        \<<<

        '       *        '

         '              '

            '        '

              '   '

               '


                                                    Application.StatusBar = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

                                                    If ActiveSheet.ProtectContents = False Then

                                                        MsgBox "One useable password is " & Chr(i) & Chr(j) _

                                                        & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _

                                                        & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

                                                        Application.StatusBar = False

                                                        Exit Sub

                                                    End If

                                                Next n

                                            Next i6

                                        Next i5

                                    Next i4

                                Next i3

                            Next i2

                        Next i1

                    Next m

                Next l

            Next k

        Next j

    Next i

    Application.StatusBar = False

End Sub

[محمد يحياوي]

بورك فيك الكود يعمل بكفاءة

[الـعيدروس]

السلام عليكم

الاخ yahiaoui مشكور على مرورك العطر

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

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

اسال الله لك تمام الصحة والعافيه

لكن من الاصل محرر الاكواد مغلق بباسورد

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

اعزك الله وحفظك من كل سوء

تقديري واحترامي

[أبو محمد أشرف]

<font class="Apple-style-span" size="6" color="#800080">السلام عليكم ورحمة الله وبركاته</font><div><font class="Apple-style-span" size="6" color="#800080">نرجو من الأخوة &nbsp;أعضاء هذا المنتدى المبارك الشرح بالصور</font></div><div><br></div>

[الـعيدروس]

السلام عليكم

الاخ الفاضل خير الايمان

مشكور على دعائك

وبالنسبه لمحرر الاكواد مالدي

برنامج يقوم بهذا الغرض

اليك المرفق

هذا رابط البرنامج

http://www.4shared.com/file/M64O2_N0/setup_2.html

وهذا رابط السيريال

http://www.4shared.com/document/PU8T2mPe/sERAL.html

[أبو محمد أشرف]

أخى الحبيب alidrooos الرابطان لا يعملان

[محمد يحياوي]

اخي خير الايمان هذا البرنامج يعمل المطلوب

التحميل

[ابو الآء]

الرجاء من الاساتذة وضع الكود فى مرفق ليتم الاستفادة به

والتجربة ايضا بسهوله ويسر

[محمد يحياوي]

وهذا مثال تطبيقي على الكود بعد اذن اخونا alidroos

كود الغاء الحماية.rar

[ميدو63]

اولا اشكرك على الموضوع

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

[الـعيدروس]

السلام عليكم

شاكر مروركم جميعا

انشاء الله استفدتو من الكود

الاخ الفاضل Medo63

بالنسبه لكتابة الاكواد

اي كود يصادفك عليه شكل

او مزخرف فالزخرفه او طريقة

تباعد الاسطر فهي زخرفيه

وتوضيح او اسلوب عرض للكود

هذا والله اعلم