سلام
در ادامه پست قبلی
دوستان توجه داشته باشند در فضای مجازی هر اقدامی ردی برجا میذاره انجام اقدامات خلاف قانون میتونه عواقب بدی داشته باشه این اموزش جهت ارتقا امنیت
کابران هستش رو سیستم های خودتو تست کنید دنبال دردسر نباشیدیعنی این روش تست نفوذهست
یادگیری این روشها باعث میشه بفهمیم که تو فضای مجازی هکرهای کلاه سیاه یا به اصلاح اونایی که میخان از اطلاعات مون سو استفاده کنن چطور و از چه روشهایی برای هک سیستم های ما استفاده میکنن
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