.NET Developer

سلام 
در این پست موضوعی رو مطرح میکنم که کمتر به آن پرداخته شده است
 ما از   ADO.Net استفاده میکنم ، لازمه فضای اسمی استفاده از oledb  برای مدیریت دسترسی به فایل های مایکروسافت اضافه شود . این فضای نام کلاس هایی است که میتونیم با استفاده از به تعامل با منابع داده ها مثل Excel، Access و انواع فایل های دیگه رو انجام بدیم .زمانی که کدرا تجزیه و تحلیل میکنیم در آن کلاس های OleDbConnection و OleDbCommand استفاده میکنیم  که  ابزار های اصلی اتصال به منبع هستند

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

در این حالت شما میتواند از نرم افزارهای جانبی یا کد های وی بی به منظور شکستن رمز بر روی فایل استفاده کند. در حالتی که کاربر از تنظیمات 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