Breaking Passwords Office Without Using Software


Breaking Passwords Office Without Using Software
   When we want to excel security but accidentally forget  pass the word. This time you will do?
Open office file without password is today the main content. Just a few simple operations without software support, you can totally do this.

Breaking Passwords Office Without Using Software

   The way in Excel 2007/2010 as follows: Press Alt + F11 will appear the Visual Basic Editor and then follow step 3 as below.

The way in Excel 2003 as follows:

1. Open the Excel file containing the sheet has Pass.
2. Choose Tools > Macro > Visual Basic Editor.
3. Double-click the sheet you want to Breaking password.
If you do not see the sheet on the left side of the screen, then press Ctrl + R to display the Sheet. (Many computer when you press Alt + F11 does not see the left window of the Sheet )
 

4. Copy the following code to the menu and click Run > Run Sub / UserForm ( or press F5

Sub PasswordBreaker()
If ActiveSheet.ProtectContents = False Then
    MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
Else
    If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _
    vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub
    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)
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation
End If
End Sub


5. Machine asks if you want to handle it? If you want to click YES

6. You wait a while for your machine will break Pass. after a while the computer will notify successful when broke password
Wish You Success.

Post a Comment

0 Comments