-
.
Excle
万能密码破解
（仅限于工作簿、工作表密码破解）
第
1
步：打开你需要破解的
Excel
文档；
第
2
步：按
Alt+F11
进入代码编辑界
面，选择插入
-
模块，将下面的
绿色代
码
粘贴进去（
Ctrl+V
）；
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook
structure passwords. Bob McCormick
'
probably originator of base code algorithm
modified for coverage
' of workbook
structure / windows passwords and for multiple
passwords
'
' Norman Harker
and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs
to constants, and
' eliminate one Exit
Sub (Version 1.1.1)
'
Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine &
vbNewLine
Const AUTHORS As String =
DBLSPACE & vbNewLine & _
Const HEADER As
String =
Const VERSION As String =
DBLSPACE &
Const REPBACK As String =
DBLSPACE &
Const ALLCLEAR As
String = DBLSPACE &
DBLSPACE
&
DBLSPACE &
DBLSPACE &
Const
MSGNOPWORDS1 As String =
Const MSGNOPWORDS2 As String
=
Const
MSGTAKETIME As String =
.
.
Const
MSGPWORDFOUND1 As String =
<
/p>
Const
MSGPWORDFOUND2 As String =
DBLSPACE &
Const
MSGONL
YONE As String =
ALLCLEAR & AUTHORS & VERSION
& REPBACK
Dim w1 As Worksheet, w2 As
Worksheet
Dim i As Integer, j As
Integer, k As Integer, l As Integer
Dim
m As Integer, n As Integer, i1 As Integer, i2 As
Integer
Dim i3 As Integer, i4 As
Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim
ShTag As Boolean, WinTag As Boolean
Updating = False
With
ActiveWorkbook
WinTag =
.ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or tContents
Next w1
If Not ShTag And Not
WinTag Then
MsgBox MSGNOPWORDS1,
vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME,
vbInformation, HEADER
If Not WinTag
Then
MsgBox MSGNOPWORDS2,
vbInformation, HEADER
Else
On Error Resume Next
Do
'dummy do loop
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
.