乙個簡單破解excelvba工程密碼方法
2023年02月20日
由於借鑑別人得程式經驗，有時比自己動腦來得快，本著這種思路，一些優秀得excel外掛程式都工程鎖定，不論2000，還是2007其破解方法都一樣
原理excel中兩進製檔案中找到dpb="和cmg="只要改動其後乙個位元組，就會溢位，軟體無效提示修復就可以輕鬆破解，在2007時需要先用rar 解壓檔案
因為它是個容器檔案。具體不細寫。以下用vb簡單的寫了以下，並未出錯檢測。有興趣朋友可以試試，方法把待解密檔案直接拖進視窗
private declare function shellexecute lib "shell32.dll" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long
dim getfilepathstr as string
dim filestream() as byte
dim find as long
private sub form_oledragdrop(data as dataobject, effect as long, button as integer, shift as integer, x as single, y as single)
if data.getformat(vbcffiles) = true then
dim w
dim i as integer
if data.files.count > 1 then '如果是拖放的多個檔案則依次開啟
for i = 1 to data.files.count
getfilepathstr = data.files.item(i)
cracr
w = shellexecute(0&, vbnullstring, getfilepathstr, vbnullstring, vbnullstring, vbnormalfocus)
next
else '如果只有乙個檔案
getfilepathstr = data.files.item(1)
cracr
w = shellexecute(0&, vbnullstring, getfilepathstr, vbnullstring, vbnullstring, vbnormalfocus)
end if
end if
end sub
sub cracr()
on error resume next
dim bakfilename
dim operaternumber as long
operaternumber = freefile
bakfilename = getfilepathstr + ".bak"
filecopy getfilepathstr, bakfilename
open getfilepathstr for binary access read as operaternumber
redim filestream(lof(operaternumber) - 1)
get #operaternumber, , filestream()
close #operaternumber
'解密filldata filestream(), "dpb="""
filldata filestream(), "cmg="""
operaternumber = freefile
open getfilepathstr for binary access write as operaternumber
put #operaternumber, , filestream()
close #operaternumber
end sub
private function searchstring(fbytes() as byte, fromwhere as long, str as string) as long
dim p as long, k as long
p = fromwhere
do until p > ubound(fbytes)
for k = 1 to len(str)
if fbytes(p + k - 1) asc(mid(str, k, 1)) then
p = p + k
exit for
end if
next
if k > len(str) then
searchstring = p
exit function
end if
loop
err.raise vbobjecterror, , "沒找到字串「" & str & "」。"
serchstring = 0
end function
private sub filldata(filestream() as byte, str as string)
find = searchstring(filestream, 0, str) + 3
filestream(find) = &h31
end sub
乙個簡單破解excelvba工程密碼方法
乙個簡單破解excelvba工程密碼方法 2010年02月20日 由於借鑑別人得程式經驗，有時比自己動腦來得快，本著這種思路，一些優秀得excel外掛程式都工程鎖定，不論2000，還是2007其破解方法都一樣 原理excel中兩進製檔案中找到dpb 和cmg 只要改動其後乙個位元組，就會溢位，軟體無...
乙個簡單好用的zabbix告警資訊傳送工具
之前使用郵件和簡訊傳送zabbix告警資訊，但告警資訊無法實時檢視或者無法傳送，故障無法及時通知運維人員。引用 1 簡單高效 介面採用url，簡化呼叫複雜度，返回結果均為json格式 2 資訊共享 3 7 24不間斷服務 4 支援傳送多 資訊 5 使用者管理 使用者密碼分為管理密碼和介面密碼，保證使...
如何破解乙個OJ系統
有的oj系統是可以不通過正常程式就能ac的。首先這個oj系統要滿足這個條件 能看到自己的輸出。oj系統是怎麼判題的？提前儲存正確的輸入輸出樣例，存在檔案中，然後執行目標 將輸入作為程式標準輸入，最終將輸出與正確輸出對比，給出結果。大致是這樣，不過還有很多很多細節需要處理。感興趣的自己了解去。破解思路...