protect

恍然小悟,去掉Excel的worksheet(工作表)保护的新方法

拜拜、爱过 提交于 2020-04-17 03:37:46
【推荐阅读】微服务还能火多久?>>> 广为认知的方法是,运行一段猜测密码的VBA(https://uknowit.uwgb.edu/page.php?id=28850),几十秒就可以找到代替密码,因为密码 Hash很短所以密码有多个 。但是Excel2013里密码Hash很长所以密码几乎是唯一的,依靠这个VBA肯定找不到密码。 注意,现在说的不是那种一打开就要输入密码的excel文件,那个是文件整体加密的,必须暴力破解出密码的。现在说的是文件能打开,只是里面的有的部分不能修改。 我虽然手头没有Excel 2013,但是推测,这个worksheet保护,其实没有对文件内容加密,仅仅是做了些标记,说不让修改某些制定的cell而已,应该是去掉了标记就可以自由修改了的。在Office 2010上实验了,的确没问题,只要把文件按照下面的方法修改一下就好了: 把xlsx文件后缀改成zip,解压。 (如果是xls,那就先保存成xlsx格式) 解压后的目录结构大致是: 顶层目录 _res目录 docProps目录 xl目录 [Content_Types].xml .... 在解压后的xl/worksheets目录里,找到sheet1.xml, sheet2.xml...,打开 把里面的<sheetProtect.....>这句给删除 <sheetProtection objects="1"

java访问修饰符 public protect default private

那年仲夏 提交于 2020-03-26 10:18:12
适用范围<访问权限范围越小,安全性越高>      访问权限 类 包 子类 其他包      public ok ok ok ok (对所有可用的)      protect ok ok ok ×    (继承的类可以访问)      default ok ok × ×    (包访问权限,即在整个包内均可被访问)      private ok × × ×    (同类内访问) 来源: https://www.cnblogs.com/chch213/p/8370982.html

python 装饰器之应用示例

守給你的承諾、 提交于 2019-12-06 08:50:18
import time import hashlib import pickle import threading #装饰函数缓存应用 cache ={} def is_obsolete(entry,duration): return time.time() - entry['time']>duration def compute_key(function,args,kw): key = pickle.dumps((function.__name__,args,kw)) return hashlib.sha1(key).hexdigest() def momoize(duration=10): def __momoize(function): def __momoize(*args,**kw): key = compute_key(function,args,kw) #是否已经拥有了它? if(key in cache and not is_obsolete(cache[key],duration)): print('we got a winner') return cache[key]['value'] #计算 result =function(*args,**kw) #保存结果 cache[key] ={ 'value':result, 'time':time.time() }

VBA取消工作表或工作薄密码保护

女生的网名这么多〃 提交于 2019-12-01 13:59:29
Sub 取消工作表保护() Dim sht As Worksheet For Each sht In Worksheets sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowFiltering:=True, AllowUsingPivotTables:=True sht.Protect DrawingObjects:=False, Contents:=True, Scenarios:= False, AllowFiltering:=True, AllowUsingPivotTables:=True sht.Protect DrawingObjects:=True, Contents:=True, Scenarios:= False, AllowFiltering:=True, AllowUsingPivotTables:=True sht.Protect DrawingObjects:=False, Contents:=True, Scenarios:= True, AllowFiltering:=True, AllowUsingPivotTables:=True sht.Unprotect Next MsgBox "已破解" End Sub Sub 破解工作薄密码() Dim sh