庫庫爾坎金字塔

庫庫爾坎金字塔（羽蛇神金字塔）：
隨著後古典馬雅人到了乾旱的石灰岩平原後，掌管普降甘霖的馬雅雨神，結合蟒蛇形體，搖身一變，成了馬雅人心目中最重要的神明，也成為一個後古典馬雅特有的宗教符號，羽蛇神─庫庫爾坎(Kukulcan)。

至於羽蛇神在當時馬雅人心中的魅力指數有多驚人？從位於奇欽伊薩，掌握時序輪迴的庫庫爾坎金字塔就可以明顯看出，整座高聳的金字塔，由四個45度傾斜的階梯所環繞，各91階，四面共364階，加上塔頂的羽蛇神廟，合計365，象徵太陽年的365天。

庫庫爾坎金字塔又稱羽蛇神金字塔，整座金字塔的建築，最令人嘖嘖稱奇的並非規模或形式，而是金字塔北面，兩顆看似平凡的羽蛇神頭像，與九層上升台階的相互搭配設計，在每年春分和秋分日落時，發光的蛇頭和九層台階切割映照成的飛蛇圖形，象徵著羽蛇神在春分時的降臨和秋分時的離開，一年之中只有這兩天，能看到這兩條蛇的交替出現，金光閃閃、神靈活現，令人嘆為觀止。

從羽蛇神廟受重視的地位來看，不難看出羽蛇神庫庫爾坎，在當時馬雅人心中，地位更高於傳統雨神，因為她除了支配降雨外，還掌管了農業、豐收、天氣、大地，種種與萬物生長、生命輪迴有關的一切崇拜因素。

至於馬雅祭司，如何透過精確的天文計算與宗教化的設計，來動員全體民眾，建蓋出的這座羽蛇神廟金字塔，並用神靈的定時來去，來解釋大自然時序變換與宇宙運行，以宗教面來看，馬雅祭司的能力好似高深莫測，但細細推敲後發現，事實上，馬雅祭司只是將代代相傳的科學知識神格化，把大型建築的建造與宗教神靈的做巧妙包裝，以掌握農耕生活的群體機制。

用sketchup去算出日照陰影也不是不可能

印度的九九乘法

印度的九九乘法表是從1背到19(→19×19乘法？)，
不過您知道印度人是怎麼記11到19的數字嗎？
「印度式計算訓練」
介紹了加減乘除的各種快速計算方法，
不過在這裡我只介紹印度的九九乘法。因為實在太神奇了！！
請試著用心算算出下面的答案：
13X12=？
(被乘數)(乘數)
印度人是這樣算的。
****************************************************************************
第一步：
先把被乘數(13)跟乘數的個位數(2)加起來
13+2=15
第二步：
然後把第一步的答案乘以10(→也就是說後面加個0)
第三步：
再把被乘數的個位數(3)乘以乘數的個位數(2)
2X3=6
(13+2)x10+6=156
****************************************************************************
就這樣，用心算就可以很快地算出11X11到19X19了喔。這真是太神奇了！
我們試著演算一下
14×13：
(1)14+3＝17
(2)17×10＝170
(3)4×3＝12
(4)170+12＝182
16×17：
(1)16+7＝23
(2)23×10＝230
(3)6×7＝42
(4)230+42＝272
真的是耶，好簡單喔

破解excel保護密碼

(摘自vba.blogspot.com)
1.到「http://www.straxx.com/excel/password.html 」下載「password.xla」 這個檔案。
2.打開有保護的Excel文件，在功能表上的【工具】按一下滑鼠左鍵，接著從選單中點選【增益集】。
3.按下「增益集」對話盒中的〔瀏覽〕，接著找到剛才下載的位置，點選「password.xla」後按下〔確定〕。
4.接著你會發現選項中多了「Password recover」，勾選之後再按下對話盒中的〔確定〕。
5.接下來會出現一個提示訊息對話盒，沒關係，直接在〔確定〕上按一下滑鼠左鍵繼續下一個步驟。
6.再來破解保護！點選左下角要破解的〔Sheet〕後，按下功能表中的【工具】，接著從選單中點選【Unprotect sheet】，以去除工作表的保護！
7.最後解除保護了，總共花了1分03秒！依照表格及密碼的複雜程度，會秏時不同的破解時間，但還是遠比「暴力破解法」來得快，按下〔確定〕就可以繼續編輯文件囉！

破解Excel 保護工作表 的密碼

破解Excel 保護工作表 的密碼 (摘自vba.blogspot.com)
以下VBA可以查出[保護工作表]的密碼.
此為4位數的[英數密碼], 可自行修改以符合自己的需求.
Sub JackyCP()
Dim DimArr(63)
Dim PW As String
For x = 48 To 57
xx = xx + 1
DimArr(xx) = Chr(x)
Next
For x = 97 To 122
xx = xx + 1
DimArr(xx) = Chr(x)
NextFor x = 65 To 90
xx = xx + 1
DimArr(xx) = Chr(x)Next
On Error Resume Next
For x1 = 1 To UBound(DimArr) - 1
For x2 = 1 To UBound(DimArr) - 1
For x3 = 1 To UBound(DimArr) - 1
For x4 = 1 To UBound(DimArr) - 1
PW = DimArr(x1) & DimArr(x2) & DimArr(x3) & DimArr(x4)
Application.StatusBar = PW
ActiveSheet.Unprotect PW
If ActiveSheet.ProtectContents = False Then
MsgBox "Password is " & PW
Exit Sub
End If
Next
Next
Next
Next
End Sub

移除VBA.xls.xla 密碼 保護

(摘自vba.blogspot.com)
'移除VBA编码保护
Sub MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'设置VBA编码保护
Sub SetProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")
If FileName = CStr(False) Then
Exit Sub
Else
VBAPassword FileName, True
End If
End Sub
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