测试环境:windows7 + office2010
运行截图:
下载地址任选其一:
https://pan.baidu.com/s/1OENKkeQ8EDeYV8c2vOnsKQ 提取码: kwx6
https://www.aliyundrive.com/s/tkyWKL5DzpA
测试环境:windows7 + office2010
运行截图:
下载地址任选其一:
https://pan.baidu.com/s/1OENKkeQ8EDeYV8c2vOnsKQ 提取码: kwx6
https://www.aliyundrive.com/s/tkyWKL5DzpA
现在市面上好几款修改机器码的软件都是收费的 就比如VirtualHardwares 机器码修改大师 所以我就花点时间写了个免费的哈 问 : 能不能过XXXXXXX游戏的机器码封禁? 答 : 这种话怎么会从你的口里问出来哈? 1.这种绕过技术已经被很多反作弊检查到了 2.驱动都没有隐藏,直接去干反作弊岂不是有点掩耳盗铃的意思哈 3.单单修改硬件数据是不行的,还有去配合注册表修改和缓存文件的删除才能有效 问 : 为什么会蓝屏? 答 : 标有蓝屏提示的地方只能按一次,你多按几次那肯定蓝屏哈 问 : 我按一次它也蓝屏了? 答 : 那你的系统版本不兼容哈,就不能用那个功能了 问 : 运行着突然就蓝屏了? 答 : 那你发现新Bug了,记住蓝屏代码到评论区反馈一下,我看看能不能修复 问 : 怎么程序右边有一大块空白区域啊? 答 : 现在还没有想好写什么功能在那一边,留给后面再添加新功能的 问 : 这个程序会伤害硬件么? 答 : 理论上不伤害,大部分功能都是重启后就消失了,有一些不会消失,比如卷标序列号和后续的注册表相关操作 问 : 关闭程序后功能就消失了? 答 : 大部分消失了,所以不要关程序嘛,BOIS信息、非HOOK方式修改硬盘序列号、禁用SMART这些功能不会消失 |
废话不说,直入正题。
想了一下,Excel文件的保密密码应该是使用弱加密算法直接保存在文件中的,想了两个办法:
1、使用16进制编辑器,查接查看Excel文件本身,看看能不能找到登记密码的位置
2、使用VBA解码
出于程序员的本能,决定先试用VBA的方法。
WPS2017个人版都没VBA功能,首先需要安装VBA支持,我在如下位置下载了VBA安装包:
VBA7.0.1590ForWPS
下载完成后,查了一毒,表示安全。开始安装,安装步骤不再赘述。
安装完成后,用WPS表格打开待解密的Excel文件,通过菜单“开发工具 – 录制新宏”录制一个新宏,直接关闭。
通过菜单“开发工具-宏”打开宏管理器,编辑刚刚录制的新宏,删除全部代码,输入下文中的代码:
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
关闭宏编辑窗口,通过菜单“开发工具-宏”打开宏管理器并运行AllInternalPasswords
此时会弹出对话框,无视并点确定
弹出第二个对话框,继续无视并点确定
神奇的事情发生了,密码出现在第三个对话框中,拿出纸笔抄录一下:
密码成功能回,希望能撤销密码保护的朋友,请自行百度。
随着macOS Mojave(莫哈韦) 10.14发行正式版本的临近,各种安装常见问题也需要同步更新,本篇文章就是针对10.14的常见问题的汇总,我会持续不间断更新,敬请期待
安装macOS 应用程序副本已损坏,不能用来安装macOS
的解决方法该错误会经常出现于旧版中,根源是苹果的安装镜像中的证书过期导致的。解决方法如下:
实用工具-终端
,输入命令:date 0201010116
,回车后关闭终端
,可继续安装进程;Clover Bootloader
的版本想要正确地安装macOS Mojave 10.14,它要求你的Clover Bootloader
版本不低于r4515,截止到目前为止[4-11-2019],Clover Bootloader
的版本已经更新为v2.4k r4919,支持安装macOS Mojave 10.14.4。Clover Bootloader最新版本下载
F1
才能进系统的请将CLOVER
更新到r4911
或以上系统偏好设置
自动更新系统的功能会消失。解决方案:使用脚本下载10.14.4Beta更新包,原帖:https://github.com/Gengik84/MacOS_Updaterpwpolicy -clearaccountpolicies passwd |
OsxAptioFixDrv-64.efi
或者OsxAptioFixDrv3-64.efi
替换AptioMemoryFix.efi
,每次只可以用一个驱动