.NET Developer

کپسوله سازی، مخفی‌سازی (Encapsulation)، کپسوله سازی یا لفافه‌بندی، به این مفهوم اشاره دارد که باید بعضی خصوصیات یا رفتارهای شیء را از دید دیگران پنهان کرد. فرض کنید شما به عنوان یک راننده می‌خواهید اتومبیل شخصی تان را روشن کنید و به محل کارتان عزیمت کنید سوییچ را برمی‌دارید، استارت می‌زنید و با فشار آوردن به پدال‌های گاز و ترمز و چرخش فرمان و … به محل کارتان خواهید رسید. در طول این مسیر در اتومبیل شما به عنوان یک شیء اعمال مختلفی در حال انجام بود. مثلاً لنت ترمز به دیسک چرخ برخورد می‌کرد و باعث کم شدن سرعت می‌شد یا شمع‌ها شروع به جرقه زدن در زمانی بخصوصی می‌کردند. حال فرض کنید که عمل مخفی سازی وجود نداشت و شما مجبور بودید که جرقه زدن شمعها را کنترل می‌کردید و به سیستم سوخت رسانی در موقع لزوم دستور می‌دادید که سوخت را بداخل سیلندرها ارسال کند و… یا هیچ‌گاه به مقصد نمی‌رسیدید! یا سالم نمی‌رسیدید!

سلام دوستان
بازگردانی رمز اکسل در بسیاری از موارد امری حیاتی است. روشهای متفاوتی برای رمز گذاری بر روی قسمتهای مختلف فایل اکسل وجود دارد ولی هیچ یک از آنها امنیت فایل اکسل را تضمین نمی‌کنند و صرفا کار را برای کاربران سطح پایه دشوار تر میکند
گاهی پیش میاد که پسوردی که برای محافظت از صفحات اکسل گذاشتید از یادتون رفته

در این حالت شما میتواند از نرم افزارهای جانبی یا کد های وی بی به منظور شکستن رمز بر روی فایل استفاده کند. در حالتی که کاربر از تنظیمات Protect Worksheet برای رمز گزاری بر روی یک شیت استفاده کرده باشد، استفاده از کد وی بی نسبت به نرم افزار های جانبی ارجهیت دارد ولی در حالتی که رمز بر روی کل فایل اکسل قرار داده شده باشد استفاده از نرم افزارهای جانبی مناسب تر است.
تو این روش که از کدها وی بی استفاده شده نحوه شکستن پسورد و عبور از اون رو نشون میدم
....
فایل اکسل خود را باز کرده و کلید های ALT و F11 را همزمان فشار دهید تا پنجره توسعه دهندگان باز شود . از پنل سمت چپ بالا Sheet مورد نظر خود را انتخاب نمایید
سپس در کادر سفید رنگ باز شده سمت راست کد زیر را وارد نمایید .کد زیر را تغییر ندهید و بهتر است به جای تایپ کردن , آن را کپی کنید .
سپس کلید F5 را بزنید کار تمام است
همچنین پسورد بصورت پیام براتون نشون داده میشه

Sub PasswordBreaker()
 
'Breaks worksheet password protection.
 
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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable 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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub