破解vba工程密码——VBA代码

最新推荐文章于 2024-07-16 10:07:03 发布

爱篮球爱IT

最新推荐文章于 2024-07-16 10:07:03 发布

阅读量4.9k

点赞数 2

分类专栏： VBA 文章标签： VBA 破解

本文链接：https://blog.csdn.net/huanhuanxiaoxiao/article/details/96431057

版权

VBA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

新建一个模块，然后复制以下代码，如果出现“文件解密成功”，则表明解密成功


Public Sub VBAPassword()
    Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
    If Dir(Filename) = "" Then
        MsgBox "没找到相关文件,清重新设置。"
    End
    Else
        FileCopy Filename, Filename & ".bak" '备份文件。
    End If
    Dim GetData As String * 5
    Open Filename For Binary As #1
    Dim CMGs As Long
    Dim DPBo As Long
    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
    Next
    If CMGs = 0 Then
        MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
        Exit Sub
    End If
    
    Dim St As String * 2
    Dim s20 As String * 1
    '取得一个0D0A十六进制字串
    Get #1, CMGs - 2, St
    '取得一个20十六制字串
    Get #1, DPBo + 16, s20
    '替换加密部份机码
    For i = CMGs To DPBo Step 2
        Put #1, i, St
    Next
    '加入不配对符号
    If (DPBo - CMGs) Mod 2 <> 0 Then
        Put #1, DPBo + 1, s20
    End If
        MsgBox "文件解密成功......", 32, "提示"
    Close #1
End Sub