Cách phá Password Open file Word không cần phần mềm

Tiếp theo bài viết Cách phá Password Open file Excel không cần phần mềm, chúng tôi giói thiệu các bạn Cách phá Password file Word không cần phần mMềm chi tiết như sau:

Bước 1: Mở file word trắng bằng cách chọn Fil/New hoặc bấm Ctrol+N.
Bước 2: Nhấn chọn tổ hợp phím Alt F11 trên bàn phím để mở công cụ Microsoft Visual Basic for Application (VBA).
Bước 3: Từ thanh công cụ chọn menu sau đó chọn insert -> Module.
Bước 4: Sao chép đoạn mã dưới đây vào trong module vừa được mở.

Sub Breakpassword()
Dim i As Long
i = 0
Dim oFD As FileDialog
Dim FileName As Variant
Application.FileDialog(msoFileDialogOpen).Show
On Error Resume Next
Set oFD = Application.FileDialog(msoFileDialogOpen)
oFD.Filters.Clear
oFD.Filters.Add "Word", "*.doc*"
FileName = oFD.SelectedItems(1)
If FileName = "" Or FileName = False Then Exit Sub

Application.ScreenUpdating = False
Line2: On Error GoTo Line1
Documents.Open FileName, , True, , i & ""
MsgBox "Password is: " & i
Application.ScreenUpdating = True
Exit Sub

Line1: i = i + 1
If i > 9999 Then MsgBox "Password not find": Application.ScreenUpdating = True: Exit Sub
Resume Line2
End Sub

Bước 5: Nhấn phím F5 để chạy code vừa nhập và họp thoại hiện ra chọn file cần bẻ khóa password.
Bước 6: Sau khi chờ đợi sẽ tìm ra thông báo nội dung password và đồng thời mở file đó lên.

* Chú ý: Vì quá trình dò tìm từng password nên sẽ lâu và mất thời gian vì vậy đoạn code trên chỉ giới hạn dò tìm password là tối đa 4 ký tự và chỉ các ký tự số mà thôi. Nếu file có chứa password các ký tự khác hoặc số ký tự nhiều hơn 4 bạn nên dùng phần mềm chuyên dụng bẻ khóa khác.