excel vba工程密碼破解程式 (絕對可以破解)2007-06-24 11:28新建乙個excel工作簿,alt+f11 開啟vba編輯器,新建乙個模組 ,複製以下**,注意如提示變數未定義,則把option explicit行刪除即可,經測試已經通過.
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
如何破解Excel VBA密碼
首先,如果檔案格式是 xslm 需要先開啟excel檔案,另存為2003版格式 xls 然後用普通的文字編輯器 我用的是notepad 開啟這個檔案,注意檔案型別選 所有檔案 然後在檔案裡查詢 dpb 把它改成 dpx 注意大小寫。這個是重點 儲存修改。然後用excel重新開啟這個檔案。你會遇到一些...
乙個簡單破解excelvba工程密碼方法
乙個簡單破解excelvba工程密碼方法 2010年02月20日 由於借鑑別人得程式經驗,有時比自己動腦來得快,本著這種思路,一些優秀得excel外掛程式都工程鎖定,不論2000,還是2007其破解方法都一樣 原理excel中兩進製檔案中找到dpb 和cmg 只要改動其後乙個位元組,就會溢位,軟體無...
乙個簡單破解excelvba工程密碼方法
乙個簡單破解excelvba工程密碼方法 2010年02月20日 由於借鑑別人得程式經驗,有時比自己動腦來得快,本著這種思路,一些優秀得excel外掛程式都工程鎖定,不論2000,還是2007其破解方法都一樣 原理excel中兩進製檔案中找到dpb 和cmg 只要改動其後乙個位元組,就會溢位,軟體無...