我自己找到乙個office的vba加密方法，然後再去找乙個方法來破解密碼，好像有點自相矛盾啊。
如果excel檔案是xls或xlm格式（如果不是請轉化成此種方法），則可使用以下**：
'移除vba編碼保護
sub moveprotect()
dim filename as string
if filename = cstr(false) then
exit sub
else
vbapassword filename, false
end if
end sub
'設定vba編碼保護
sub setprotect()
dim filename as string
if filename = cstr(false) then
exit sub
else
vbapassword filename, true
end if
end sub
private function vbapassword(filename as string, optional protect as boolean = false)
if dir(filename) = "" then
exit function
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 function
end if
if protect = false then
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, "提示"
else
dim mms as string * 5
mms = "dpb="""
put #1, cmgs, mms
msgbox "對檔案特殊加密成功......", 32, "提示"
end if
close #1
end function
linux密碼破解一方法
鬱悶，剛裝的系統，好像任是把密碼輸錯兩遍了，所以進不去了，好在baidu一下，好多破解方法，這裡也記錄一下，以後就不怕再輸錯或者忘了 1.在出現grub畫面時，用上下鍵選中你平時啟動linux的那一項，然後按e鍵 2.再次用上下鍵選中你平時啟動linux的那一項 類似於kernel boot vml...
破解cmos密碼
要說密碼。首先就是cmos密碼了。cmos 本意是指互補金屬氧化物半體儲存器，是一種大規模應用於積體電路晶元製造的原料 是電腦主機板上的一塊可讀寫的ram晶元，主要用來儲存當前系統的硬體配置。cmos ram晶元由系統通過一塊後備電池供電，所以無論是開關機狀態中，cmos的資訊都不會丟失。既然cmo...
簡單密碼破解
密碼是我們生活中非常重要的東東，我們的那麼一點不能說的秘密就全靠它了。哇哈哈.接下來淵子要在密碼之上再加一套密碼，雖然簡單但也安全。假設淵子原來乙個bbs上的密碼為zvbo9441987,為了方便記憶，他通過一種演算法把這個密碼變換成yuanzhi1987，這個密碼是他的名字和出生年份，怎麼忘都忘不...