Excel各栽暗号解锁姿势(珍藏备用)

Excel添密破解

平时做事中,频繁会遇到添密做事簿或者做事外遗忘暗号的情况,今天,吾们就介绍一下excel常见添密类型,以及常用解决手段。

关于Excel方面的暗号大致能够分为以下三栽类型

01

 做事薄掀开暗号、做事薄珍惜暗号

1.1做事簿珍惜暗号

Excel做事簿珍惜后(核阅 - 珍惜做事簿)

图片

珍惜后,做事外无法插入、删除和作废暗藏等操作。

图片

解密手段:

在上图做事外标签右键菜单中点击"查望代码“掀开一个新的窗口(Visual  baisc  编辑器),插入-模块,然后把下面的代码粘贴到右侧的空白窗口。

代码 请输入内容

 Sub test()

 ActiveWorkbook.Sheets.Copy

 For Each sh In ActiveWorkbook.Sheets

 sh.Visible = True

 Next

 End Sub

把光标放在代码中,点工具栏中的运走按钮,运走上面代码后,会把原文件另存为一个新的Excel文件,这时只必要重新保存即可。做事簿暗号在新文件中已作废。

1.2做事簿掀开暗号

添密手段:文件-新闻-珍惜做事簿(13版本)

图片

添密过的做事簿,掀开时候,只有输入暗号才能望到做事簿内容。

图片

破解手段:柔件破解 Accent OFFICE Password Recovery

这个柔件,吾在网上找了益久,找到一个免费可用版!

穷举破解,最慢,暗号越浅易越益破解。

链接:https://pan.baidu.com/s/1dG7TaUl暗号:azc5

02

  做事外珍惜暗号

写珍惜手段:Excel做事簿珍惜后(核阅 - 珍惜做事外)

图片

图片

破解手段:

柔件破解 Accent OFFICE Password Recovery

秒破!(成功率90%以上)

图片

图片

能够给出的暗号和实际的暗号纷歧致(编码题目),但是填入以后,绝对能消弭暗号。

03

  VBAProject工程暗号

添密手段:VBE工具-- VBAProject工程属性

图片

添密过保存以后,再掀开vbe界面查望代码时,欧宝首页就展现以下挑示。

图片

解密手段:

将如下代码写入肆意excel模块运走即可破解:(成功率90)

Private Sub VBAPassword2()

'你要解珍惜的Excel文件路径

Filename = Application.GetOpenFilename("Excel文件(*.xls & *.xla & *.xlt),*.xls;*.xla;*.xlt", , "VBA破解")

If Dir(Filename) = "" Then

MsgBox "没找到有关文件,清重新竖立。"

Exit Sub

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

posted @ 21-05-30 02:08 admin  阅读:

Powered by 欧宝体育竞猜 @2018 RSS地图 HTML地图

2013-2021 168ty 版权所有