كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم)

[moh.elmadany]

تسلم ايدك

[ابو حمادة]

في ٢‏/٤‏/٢٠١٥ at 17:15, ياسر خليل أبو البراء said:

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

إخواني الكرام ..

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

الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم)

وعلى رأي المثل :

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

Sub HackVBA()
    	Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1
	Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1)
	Close
	Workbooks.Open "C:\Users\Future\Desktop\Test.xls"
End Sub

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

 

 

 

تقبلوا تحيات أخوكم أبو البراء

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

انا جربت هذا الكود وبالفعل لغى الحمايه على الملف ولكن فيه حاجه انه بيمسح كل الاكواد واليوزر فورم الموجوده فى  المستند هذا طبيعي ولا انا عملته بطريقه خطأ؟؟؟؟؟؟؟

[سمير نجار]

بارك الله فيك استاذي الكريم ابوالبراء

لا أدري اين تكمن المشكلة

لم يعمل الكود عندي ابداً سواء بامتداد xls او  xlsm

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

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

مبدع دئما

ادام الله علمك