Excel VBA工程密碼破解程式

2021-05-24 01:22:32 字數 1334 閱讀 3874

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 只要改動其後乙個位元組,就會溢位,軟體無...