title: Cracking Sheet Password with VBA
body: <p>I found this VBA code to unlock sheets without knowing the password:</p>
  
  <pre><code>Sub PasswordBreaker()
  
    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) &amp; Chr(j) &amp; Chr(k) &amp; _
        Chr(l) &amp; Chr(m) &amp; Chr(i1) &amp; Chr(i2) &amp; Chr(i3) &amp; _
        Chr(i4) &amp; Chr(i5) &amp; Chr(i6) &amp; Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is "&amp; Chr(i) &amp; Chr(j) &amp; _
            Chr(k) &amp; Chr(l)&amp; Chr(m) &amp; Chr(i1) &amp; Chr(i2) &amp; _
            Chr(i3) &amp; Chr(i4) &amp; Chr(i5) &amp; Chr(i6) &amp; Chr(n)
     ActiveWorkbook.Sheets(1).Select
     Range("a1").FormulaR1C1 = Chr(i) &amp; Chr(j) &amp; _
            Chr(k) &amp; Chr(l)&amp; Chr(m) &amp; Chr(i1) &amp; Chr(i2) &amp; _
            Chr(i3) &amp; Chr(i4) &amp; Chr(i5) &amp; Chr(i6) &amp; Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
  End Sub
  </code></pre>
  
  <p>My question is: What kind of exploit does it use to work? </p>
  
  <p>In other words, how come this generated string of A's and B's can be used as the password to a sheet inside a particular workbook ?</p>