如何破解word文档密码

　　要破解Word文档密码，需要使用一些专业工具和技巧。下面我们将详细介绍破解Word文档密码的方法，包括破解软件和操作步骤。

　　一、利用破解工具破解Word文档密码

　　1. Passper for Word

　　Passper for Word是一款专业的密码破解软件，可以帮助您在几分钟内破解任何Word文档的保护密码。使用该软件，无需专业知识也可以破解成功。

　　步骤：

　　（1）下载Passper for Word并安装。

　　（2）启动软件并选择“破解密码”。

　　（3）点击“添加”按钮，从本地选择需要破解的Word文档。

　　（4）选择破解模式，如果您知道密码范围，则可以选择“暴力破解”模式，否则建议选择“字典破解”模式。

　　（5）点击“开始”按钮，等待软件破解密码。

　　（6）成功破解后，软件将显示密码，现在您可以打开Word文档并使用该密码。

　　2. iSumsoft Word Password Refixer

　　iSumsoft Word Password Refixer是另一款专业的密码破解软件，适用于破解Word 97-2019版本。使用该软件可以快速破解密码，同时保证数据安全。

　　步骤：

　　（1）下载iSumsoft Word Password Refixer并安装。

　　（2）启动软件并添加需要破解的Word文档。

　　（3）选择恢复方式，该软件提供了四种方式。

　　（4）设置恢复参数，可自定义密码匹配范围和密码长度等。

　　（5）点击“开始”按钮开始破解。

　　（6）等待破解完成，成功后软件将显示密码。

　　二、利用VBA宏实现破解Word文档密码

　　VBA是Word中的一种编程语言，可以通过编写宏代码来实现破解密码。下面我们将学习如何使用VBA宏破解Word文档密码。

　　步骤：

　　（1） 打开需要破解的Word文档，按下“Alt+F11”快捷键进入VBA编辑器。

　　（2） 选择“插入-模块”，打开新建模块窗口。

　　（3） 复制以下代码：

　　Sub PasswordBreaker()

　　Dim i As Integer, j As Integer, k As Integer

　　Dim l As Integer, m As Integer, n As Integer

　　Dim s As Integer, t As Integer, u As Integer

　　Dim v As Integer, w As Integer, x As Integer

　　Dim y As Integer, z As Integer, aa As Integer

　　Dim bb As Integer, cc As Integer, dd As Integer

　　Dim ee As Integer, ff As Integer, gg As Integer

　　Dim hh As Integer, ii As Integer, jj As Integer

　　Dim kk As Integer, ll As Integer, mm As Integer

　　Const CRC_POLY = &HEDB88320, CRC_SEED = &HFFFFFFFF

　　Dim nCRC As Long

　　Dim sA As String, sB As String

　　Dim sC As String, sD As String

　　Dim sE As String, sF As String

　　Dim sG As String, sH As String

　　Dim sI As String, sJ As String

　　Dim sK As String, sL As String

　　Dim sM As String, sN As String

　　Dim sO As String, sP As String

　　Dim sQ As String, sR As String

　　Dim sS As String, sT As String

　　Dim uCRC As Long

　　Dim sWord As String, sPath As String, sFile As String

　　Dim iWordLen As Integer, iFileNum As Integer

　　Dim iPos As Integer, iLen As Integer, iLen1 As Integer

　　On Error Resume Next

　　For i = 65 To 90: For j = 65 To 90: For k = 65 To 90

　　For l = 65 To 90: For m = 65 To 90: For n = 65 To 90

　　For s = 97 To 122: For t = 97 To 122: For u = 97 To 122

　　For v = 97 To 122: For w = 97 To 122: For x = 97 To 122

　　For y = 48 To 57: For z = 48 To 57: For aa = 48 To 57

　　For bb = 48 To 57: For cc = 48 To 57: For dd = 48 To 57

　　For ee = 33 To 47: For ff = 33 To 47: For gg = 33 To 47

　　For hh = 58 To 64: For ii = 58 To 64: For jj = 58 To 64

　　For kk = 91 To 96: For ll = 91 To 96: For mm = 91 To 96

　　sWord = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(n) _

　　& Chr(s) & Chr(t) & Chr(u) & Chr(v) & Chr(w) & Chr(x) _

　　& Chr(y) & Chr(z) & Chr(aa) & Chr(bb) & Chr(cc) & Chr(dd) _

　　& Chr(ee) & Chr(ff) & Chr(gg) & Chr(hh) & Chr(ii) & Chr(jj) _

　　& Chr(kk) & Chr(ll) & Chr(mm)

　　iWordLen = Len(sWord)

　　sPath = ""

　　sFile = ""

　　iLen1 = InStrRev(ActiveDocument.FullName, "\")

　　If iLen1 > 0 Then

　　sPath = Left(ActiveDocument.FullName, iLen1 - 1)

　　sFile = Mid(ActiveDocument.FullName, iLen1 + 1)

　　End If

　　iFileNum = FreeFile

　　Open sPath & "\" & sFile & ".tmp" For Binary Access Write As #iFileNum

　　Put #iFileNum, , ActiveDocument.Range.Text

　　Close #iFileNum

　　iCRC = &HFFFFFFFF

　　nCRC = 0

　　For iPos = 1 To iWordLen

　　iCRC = iCRC Xor Asc(Mid(sWord, iPos, 1))

　　For iLen = 8 To 1 Step -1

　　nCRC = iCRC And 1

　　iCRC = iCRC \ 2

　　If nCRC <> 0 Then iCRC = iCRC Xor CRC_POLY

　　Next

　　Next

　　iFileNum = FreeFile

　　Open sPath & "\" & sFile & ".tmp" For Binary Access Read As #iFileNum

　　iLen1 = LOF(iFileNum)

　　sA = Space(iLen1)

　　Get #iFileNum, , sA

　　Close #iFileNum

　　For iPos = 1 To iLen1 Step 4

　　sB = Mid(sA, iPos, 1)

　　sC = ""

　　For iLen = 2 To 4

　　If iPos + iLen < iLen1 Then

　　sC = sC & Mid(sA, iPos + iLen - 1, 1)

　　Else

　　sC = sC & Chr(0)

　　End If

　　Next

　　uCRC = Asc(sC) * &H10000 + Asc(Mid(sA, iPos + 1, 1)) _

　　+ (Asc(Mid(sA, iPos + 2, 1)) * &H100) + Asc(Mid(sA, iPos + 3, 1))

　　nCRC = uCRC Xor CRC_SEED

　　iCRC = &HFFFFFFFF

　　For iLen = 1 To 4

　　iCRC = iCRC Xor (uCRC And &HFF)

　　For i = 8 To 1 Step -1

　　If (iCRC And 1) = 0 Then

　　iCRC = iCRC \ 2

　　Else

　　iCRC = (iCRC \ 2) Xor CRC_POLY

　　End If

　　Next

　　uCRC = uCRC \ &H100

　　Next

　　Next

　　Kill sPath & "\" & sFile & ".tmp"

　　If iCRC = nCRC Then

　　MsgBox "密码为：" & sWord

　　Exit Sub

　　End If

　　Next: Next: Next

　　Next: Next: Next

　　Next: Next: Next

　　Next: Next: Next

　　End Sub

　　（4）单击“运行”按钮运行代码，程序将开始破解密码。

　　三、忘记密码时的应急方案

　　如果您忘记了Word文档的密码，也可以尝试以下应急方案：

　　1. 利用备份文件

　　如果您做了此文件的备份，可以尝试打开备份文件。如果没有备份文件，请接着往下看。

　　2. 利用XML编辑器

　　将Word文档的后缀名改为“.zip”，用压缩软件解压缩后进入“word”目录，找到名为“settings.xml”的文件，使用文本编辑器打开并搜索“<w:documentProtection”等关键字，将“w:enforcement”属性的值改为“0”，保存后重新压缩文件并将后缀名改回原来的格式。重新打开该Word文档，密码保护已经被去除。

　　3. 利用第三方软件解密

　　您可以使用第三方软件，如Advanced Office Password Recovery或Office Password Recovery来解密Word文档，以便您可以打开和编辑该文档。这些工具很强大，可以破解大多数保护措施，但也需要付费。

　　总结

　　破解Word文档密码需要使用专业的工具和技巧，但是我们仅在自己拥有的文档上进行密码破解。对于他人拥有的文档，我们不应进行非法破解行为。