VBA密码破解

在使用Excel时经常会碰到有些不错的Excel文档中的VBA是设有密码的，没有办法查看到文档中的VBA代码，本工具可以清除掉Excel中的VBA密码。

Dim GetData AsString * 5

Open sFileName For BinaryAs #1

  Dim CMGs AsLong
  Dim DPBo AsLong

  For i = 1 To LOF(1)
    Get #1, i, GetData

    If GetData = "CMG="""Then CMGs = i

    If GetData = "[Host"Then
       DPBo = i - 2
       Exit For
    End If

  Next

  Dim St AsString * 2
  Dim s20 AsString * 1

  '取得一个0D0A十六进制字串
  Get #1, CMGs - 2, St

  '取得一个20十六制字串
  Get #1, DPBo + 16, s20

  '替换加密部份机码
  For i = CMGs To DPBoStep 2
    Put #1, i, St
  Next

  '加入不配对符号
  If (DPBo - CMGs) Mod 2 <> 0Then
    Put #1, DPBo + 1, s20
  End If

Close #1

MsgBox "文件解密成功......", 32, "提示"