الـعيدروس قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 السلام عليكم كود لكسر شفرة ورقة محميه احمي الورقة بباسورد وشغل الماكرو وانتظر ولاحظ النتيجه اليكم الكود منقول من موقع اجنبي 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 رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 شكرا شكرا ولكن اذا كان محرر الاكواد مغلق مالعمل اذن ؟ رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 اخي ابونصار شكراً على جهودك ولكن الكود عند تشغيله يعمل لفترة وجيزة ثم يصبح الملف معلق ولا يستجيب جرب على هذا الباسوورد 889887 ولا حظ النتيجة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 22, 2011 الكاتب مشاركة قام بنشر مايو 22, 2011 السلام عليكم الاخ 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 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 بورك فيك الكود يعمل بكفاءة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 22, 2011 الكاتب مشاركة قام بنشر مايو 22, 2011 السلام عليكم الاخ yahiaoui مشكور على مرورك العطر رابط هذا التعليق شارك More sharing options...
خير الايمان قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 السلام عليكم ورحمة الله وبركاته اسال الله لك تمام الصحة والعافيه لكن من الاصل محرر الاكواد مغلق بباسورد فكيف يتم العمل بهذا الكود اعزك الله وحفظك من كل سوء تقديري واحترامي رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 22, 2011 مشاركة قام بنشر مايو 22, 2011 <font class="Apple-style-span" size="6" color="#800080">السلام عليكم ورحمة الله وبركاته</font><div><font class="Apple-style-span" size="6" color="#800080">نرجو من الأخوة أعضاء هذا المنتدى المبارك الشرح بالصور</font></div><div><br></div> رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 23, 2011 الكاتب مشاركة قام بنشر مايو 23, 2011 السلام عليكم الاخ الفاضل خير الايمان مشكور على دعائك وبالنسبه لمحرر الاكواد مالدي برنامج يقوم بهذا الغرض اليك المرفق هذا رابط البرنامج http://www.4shared.com/file/M64O2_N0/setup_2.html وهذا رابط السيريال http://www.4shared.com/document/PU8T2mPe/sERAL.html رابط هذا التعليق شارك More sharing options...
أبو محمد أشرف قام بنشر مايو 23, 2011 مشاركة قام بنشر مايو 23, 2011 أخى الحبيب alidrooos الرابطان لا يعملان رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مايو 23, 2011 مشاركة قام بنشر مايو 23, 2011 اخي خير الايمان هذا البرنامج يعمل المطلوب التحميل رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 23, 2011 مشاركة قام بنشر مايو 23, 2011 الرجاء من الاساتذة وضع الكود فى مرفق ليتم الاستفادة به والتجربة ايضا بسهوله ويسر رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مايو 23, 2011 مشاركة قام بنشر مايو 23, 2011 وهذا مثال تطبيقي على الكود بعد اذن اخونا alidroos كود الغاء الحماية.rar رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر مايو 26, 2011 مشاركة قام بنشر مايو 26, 2011 اولا اشكرك على الموضوع ثانيا لدى سؤال عن طؤيقة كتابةالكود بهذة الطريقة الشرط بمنتصف الكود او ممكن وكتابة جمل الكود بطريق متدرجة فى السطور هل هذا لة معنى ام انها طريقة زخرفية ام مازا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 26, 2011 الكاتب مشاركة قام بنشر مايو 26, 2011 السلام عليكم شاكر مروركم جميعا انشاء الله استفدتو من الكود الاخ الفاضل Medo63 بالنسبه لكتابة الاكواد اي كود يصادفك عليه شكل او مزخرف فالزخرفه او طريقة تباعد الاسطر فهي زخرفيه وتوضيح او اسلوب عرض للكود هذا والله اعلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان