當前位置:法律諮詢服務網 - 知識產權保護 - 如何破解excel自定義函數的源代碼

如何破解excel自定義函數的源代碼

創建壹個新的Excel工作簿,Alt+F11打開VBA編輯器,創建壹個新模塊,並復制下面的代碼。註意,如果提示變量未定義,只需刪除Option Explicit行,該行已通過測試。

移除VBA編碼保護。

子移動保護()

將文件名標註為字符串

filename = application . getopen filename(" Excel文件(*。xls & amp;*.xla),*。xls*.xla”、“VBA破解”)

如果FileName = CStr(False ),則

出口接頭

其他

VBAPassword文件名,False

如果…就會結束

末端接頭

設置VBA編碼保護

子集保護()

將文件名標註為字符串

filename = application . getopen filename(" Excel文件(*。xls & amp;*.xla),*。xls*.xla”、“VBA破解”)

如果FileName = CStr(False ),則

出口接頭

其他

VBAPassword文件名,True

如果…就會結束

末端接頭

私有函數VBAPassword(文件名為字符串,可選保護為Boolean = False)

如果目錄(文件名)= ",則

退出功能

其他

文件復制文件名,文件名和。".bak "

如果…就會結束

Dim GetData As String * 5

將二進制文件的文件名打開為#1

變暗圖像為長

Dim DPBo As Long

對於i = 1到LOF(1)

Get #1,I,GetData

如果GetData = "CMG= " "那麽CMGs = i

如果GetData = "[Host "那麽DPBo = i - 2: Exit For

然後

如果CMGs = 0,則

MsgBox "請先為VBA編碼設置保護密碼...",32,“提示”

退出功能

如果…就會結束

如果Protect = False,則

Dim St As String * 2

將s20顯示為字符串* 1

獲取0D0A十六進制字符串。

獲取#1,CMGs - 2,St

獲取壹個20的十六進制字符串。

獲取#1,DPBo + 16,s20

替換密鑰的加密部分

對於i = CMGs到DPBo步驟2

把#1,I,St

然後

添加不成對的符號

if(DPBo-CMGs)Mod 2 & lt;& gt那麽0

放#1,DPBo + 1,s20

如果…就會結束

MsgBox "文件解密成功...",32,“提示”

其他

將彩信顯示為字符串* 5

MMs = "DPB= " "

放#1,短信,彩信

MsgBox "文件的特殊加密成功...",32,“提示”

如果…就會結束

關閉#1

結束功能

  • 上一篇:泉州哪裏有商標註冊,泉州代理註冊商標哪家好?
  • 下一篇:廈門大學院士人數
  • copyright 2024法律諮詢服務網