硬盘检测修复大师——Victoria v5.35 中文修复版

第一次使用这个软件应该是6-7年前了,当时客户说有块硬盘放着突然不能用了,让我看看,我当时用 Victoria 这款软件扫描了一整夜,第二天早上一看还没有扫描完成,但我却看到了居然有1000多个坏道。

那时候针对于硬盘坏道没有什么好软件,虽然了解到好像MHDD这个坏道扫描工具更强大,但DOS下对于菜鸟还是比较恐惧的,这也是当时决定用它的原因,后来也用过Victoria 而且确定可以修复一些坏道,而最近听说这款软件更新频率更高,大象网赶快收藏备用了。

Victoria 用于 Windows 操作系统中的机械硬盘,SSD固态硬盘,存储卡,USB外置驱动器及任何其他存储设备的诊断,研究,测试和维修。

Victoria 作为一块硬盘坏道检测修复工具绝对是 Windows 平台下硬盘维护软件类的佼佼者。具备硬盘表面检测/硬盘坏道修复/SMART信息察看保存/Cache缓存控制等多功能的工具,支持众多型号硬盘解密;支持全系列检测和修复。

使用方法:打卡软件后首先选择硬盘,然后选择“测试/维修”选项,扫描方式一般默认就好,修复方式选择“重映射”就可以了,重要数据可以选择“恢复”试试,然后选择“Scan”扫描。

下载地址:百度网盘      提取码: pp3t

wps excel破解受保护工作表格密码

废话不说,直入正题。

想了一下,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安装中常见的问题及解决方法

随着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最新版本下载

  • [r4911] by sherlocks fix applertc patch for 10.14.4+. thanks to RodionS 如果有遇到开机提示按F1才能进系统的请将CLOVER更新到r4911或以上

注意事项

  • 在HFS +上安装macOS Mojave时,通过系统偏好设置自动更新系统的功能会消失。解决方案:使用脚本下载10.14.4Beta更新包,原帖:https://github.com/Gengik84/MacOS_Updater

  • 从第三方来源安装程序:
    sudo spctl –master-disable
  • 关闭Thunderbolt更新:

    sudo softwareupdate –ignore ThunderboltFirmwareUpdate1.2为第三方SSD启用TRIM

取消4位数密码限制

pwpolicy -clearaccountpolicies
passwd


安装卡在最后2分钟的解决方法

  • 断开网络
  • 使用OsxAptioFixDrv-64.efi或者OsxAptioFixDrv3-64.efi替换AptioMemoryFix.efi,每次只可以用一个驱动