Set objWord = CreateObject("word.Application")ĭim i As Integer, j As Integer, k As Integerĭim l As Integer, m As Integer, n As Integerĭim i1 As Integer, i2 As Integer, i3 As Integerĭim i4 As Integer, i5 As Integer, i6 As Integerįor i = 65 To 66: For j = 65 To 66: For k = 65 To 66įor l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66įor i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66įor i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 'Author unknown but submitted by brettdj of Dim objWord As Word.Application The only issue is when I use Documents.Open if the password is wrong word shows the dialogue box - is there anyway to get round this? Private Sub PasswordBreakerWord()
I found some code to break a password using brute force which is below (written it from with Excel).
I have a word document that prompts the user for a password to open it, the dialogue box is like below.
0 kommentar(er)
