這一帖真的是考驗你的VBA破解技巧

CAT0913

這個檔是多年前阿吉的作品之一
當時各大EXCEL版都頗有興趣討論許久

經過多年大家都進步了...修了一下
還是一句話...阿吉甚麼都沒有但怪怪作品較多

若您對VBA有自信，請來破解此檔，並討論

LINK
http://www.officefans.net/cdb/viewthread.php?tid=188742&rpid=973899&fav=yes&ordertype=0&page=1#pid973899

liucqa

Sub auto_open()
On Error GoTo error1
Application.DisplayAlerts = False
ThisWorkbook.IsAddin = False
If ThisWorkbook.VBProject.Protection = 0 Then
Call HIDEDate
Application.Quit
Application.DisplayAlerts = True
End If
CheckFileDate
error1: End Sub
Sub CheckFileDate()
Dim Counter As Long, LastOpen As String, Msg As String
Chk = GetSetting("Chinese dragon", "Budget", "Date", "")
If Chk = "" Then
Term = 0
TermDate = DateSerial(Year(Now), Month(Now), Day(Now)) + Term
SaveSetting "Chinese dragon", "Budget", "Date", TermDate
Else
If CDate(Chk) <= Now Then
DeleteSetting "Chinese dragon", "Budget", "Date"
Call HIDEDate
End If
End If
End Sub
Sub HIDEDate()
Dim b1() As Byte, b2() As Byte, lenKey As Long, J As Long, i As Long, pth As String
ThisWorkbook.ChangeFileAccess xlReadOnly
pth = ThisWorkbook.FullName
f# = FreeFile
Open pth For Binary As f
ReDim b1(LOF(f) - 1)
Get f#, , b1
Close f#
'''''''''''''''''''''''''''''''''
b2 = "CGPC"
lenKey = UBound(b2) + 1
For i = 0 To UBound(b1)
J = i Mod lenKey
b1(i) = b1(i) Xor b2(J)
Next

f# = FreeFile
Open pth For Binary As f
Put f#, , b1
Close f#
End Sub


要破解啥呀？

CAT0913

^^
HUNCHILIN版主放出的東西不太可能這麼簡單

請相信iq66  版主的結論

你可能沒開啟 宏 實際測試程式碼的效果

檔案內只有這些程式碼?這顯然不太對,
因為我進不去vb編輯器了

liucqa

CAT0913 发表于 2012-7-6 20:52
^^
HUNCHILIN版主放出的東西不太可能這麼簡單

不要妄自菲薄

Moneky

密码：11686106

CAT0913

^^確實.
應該再接再力
不過確實遇到問題
因為我進不去vb編輯器
...再測測看好了

引子玄

高手玩＂病毒＂

liucqa

A1--開啟
A2--=IF(D5="",RUN(A5),)
A3--=RETURN()
A4--
A5--=ERROR(FALSE)
A6--=RUN("test")
A7--=IF(ERROR.TYPE(A6)=4,RUN(A10),RUN(A16))
A8--=RETURN()
A9--
A10--=ALERT(A14, 2)
A11--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:未開啟巨集_啟用開啟提示")
A12--=RUN(B21)
A13--=RETURN()
A14--未啟用巨集 :

此資料為:

******************************
作者 : 林宏吉  日期 : 2006 / 3 / 23
e-mail : lin.hung-chi@hotmail.com
A15--
A16--=ERROR(FALSE)
A17--=ON.KEY("{ESCAPE}", "")
A18--
A19--開啟密碼
A20--=RUN(WorkbookVBELOCK)
A21--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:使用_檔案")
A22--=ERROR(FALSE)
A23--=IF(INPUT("輸入密碼使用檔案",2,"使用_檔案","密碼錯誤將關閉檔案")=D2,RUN(D6),CLOSE( ))
A24--
A25--開啟提示
A26--=RUN("VBProjectProtection")
A27--=IF(D4="VBPLOCK",,RUN(C1))
A28--=MESSAGE(TRUE, "作者:林宏吉")
A29--=ERROR(FALSE)
A30--=IF(ALERT("你開啟了 ,使用請按(確定);不使用請按(取消)", 1),RUN(A33),FILE.CLOSE(FALSE, FALSE))
A31--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:使用狀態")
A32--=RETURN()
A33--=ALERT(A35, 2)
A34--=RETURN()
A35--此資料為:

******************************
作者 : 林宏吉  日期 : 2006 / 3 / 23
e-mail : lin.hung-chi@hotmail.com



B1--修改Excel4.0巨集表
B2--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:修改_Excel4.0巨集表")
B3--=ERROR(FALSE)
B4--=IF(INPUT("輸入密碼修改巨集表",2,"修改Excel4.0巨集表","密碼錯誤將關閉檔案")=D3,RUN(B7),CLOSE( ))
B5--=RETURN()
B6--
B7--=IF(ALERT(B9, 1),RUN(B11),RUN(B16))
B8--=RETURN()
B9--按確定啟用巨集表,

按取消關閉巨集表並進入編輯狀態.
B10--
B11--=ERROR(TRUE,B21)
B12--=RUN(Excel4A1)
B13--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:Excel4.0巨集表_啟用")
B14--=RETURN()
B15--
B16--=ERROR(TRUE,B21)
B17--=RUN(Excel4B1)
B18--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:Excel4.0巨集表關閉_進入編輯狀態")
B19--=RETURN()
B20--
B21--=ALERT(B26, 2)
B22--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:巨集未開啟_將自動關閉檔案")
B23--=ERROR(FALSE)
B24--=CLOSE()
B25--=RETURN()
B26--你未啟用巨集, 將關閉檔案.

作者 : 林宏吉  日期 : 2006 / 3 / 23
e-mail : lin.hung-chi@hotmail.com



C1--解除了VBProject
C2--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:已解除_VBProject或未勾選_信任存取VB專案")
C3--=ERROR(FALSE)
C4--=IF(INPUT("已解除_VBProject 或
未勾選_信任存取VB專案

請輸入檔案保護密碼",2,"修改檔案","密碼錯誤將關閉檔案")=D3,RUN(C7),CLOSE( ))
C5--=RETURN()
C6--
C7--=IF(ALERT(C9, 1),RUN(C11),RUN(C16))
C8--=RETURN()
C9--按確定啟用檔案保護,

按取消關閉檔案保護並進入編輯狀態.
C10--
C11--=ERROR(TRUE,B21)
C12--=RUN(ALLA)
C13--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:檔案保護_啟用")
C14--=RETURN()
C15--
C16--=ERROR(TRUE,B21)
C17--=RUN(ALLB)
C18--=MESSAGE(TRUE, "作者:林宏吉  現在狀態:關閉檔案保護_進入編輯狀態")
C19--=RETURN()



D1--(文字格式)要加'點
D2--11686106
D3--833101
D4--UNLOCKVBProject
D5--
D6--=SET.VALUE(D5,"11686106")
D7--=RETURN()

Moneky

4.0宏表已经被微软破解了，工作表中放置明文密码死路一条

liucqa

解密宏表.rar (36.7 KB, 下载次数: 355)

2012-7-6 22:36 上传

点击文件名下载附件