移除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
結束功能