[资料]岩质边坡可能的失稳判断方法 [复制链接]

岩质边坡可能的失稳判断方法.pdf

岩质边坡可能的失稳判断方法

啥都没有，。。。

学习一下 ，但不见到

啥都没有，。。。

Public Sub 工作表保护密码破解() xA Ez1  
Const DBLSPACE As String = vbNewLine & vbNewLine >g{&Qx`&  
Const AUTHORS As String = DBLSPACE & vbNewLine & _ )ovAGO  
"作者:XXXXXXX" $~b6H]"9  
Const HEADER As String = "工作表保护密码破解" JI.=y5I  
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"  b M1\z  
Const REPBACK As String = DBLSPACE & "" 6U !P8q  
Const ZHENGLI As String = DBLSPACE & "                   XXXXXXX" / rc[HbNg.  
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _ @bA5uY!  
& DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！" d78 [(;  
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密" oM!&S'M/  
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2" ({j8|{)+  
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!" VBL4cU8D  
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ x9Z89Gwi  
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除" */M`KPW  
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _ nnj<k5  
"如果该文件工作表有不同密码,将搜索下一组密码并解除" 0beP7}$  
Const MSGONLYONE As String = "确保为唯一的?" X=#us7W}  
Dim w1 As Worksheet, w2 As Worksheet > mO*.'Gm  
Dim i As Integer, j As Integer, k As Integer, l As Integer VH]}{i"`  
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer kAEq+{h  
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer a|z-EKV  
Dim PWord1 As String csW\Q][  
Dim ShTag As Boolean, WinTag As Boolean :*KTpTa  
Application.ScreenUpdating = False F^gTID  
With ActiveWorkbook m*]`/:/X[  
WinTag = .ProtectStructure Or .ProtectWindows ^ 4<D%\  
End With :+/8n+@#  
ShTag = False .1[.f}g$J  
For Each w1 In Worksheets D:Q#%wJ  
ShTag = ShTag Or w1.ProtectContents o`c+eMwr(  
Next w1 5\pS8<RJ;  
If Not ShTag And Not WinTag Then @
\&j3A  
MsgBox MSGNOPWORDS1, vbInformation, HEADER 0]SWyC :  
Exit Sub 1+Gq<]@G  
End If JhFn"(O  
MsgBox MSGTAKETIME, vbInformation, HEADER gFp3=s0~  
If Not WinTag Then (O+d6oT=Z2  
Else |2l-s 1|y  
On Error Resume Next P#hRqETw  
Do 'dummy do loop aPelt`  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 1k6asz^T  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 O(W"QY  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 R/v|ZvI  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 [gBf
1,bK  
With ActiveWorkbook /iO"4%v  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _ "BSY1?k{  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ ;=,-C;`  
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ,}IcQu'O  
If .ProtectStructure = False And _ iKaX8c,zI  
.ProtectWindows = False Then ch8VJ^%Ra1  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ #4m5I="  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ `'s_5Ek  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) -]0:FKW  
MsgBox Application.Substitute(MSGPWORDFOUND1, _ ,<L4tp+y0  
"$$", PWord1), vbInformation, HEADER ~k
&b  
Exit Do 'Bypass all for...nexts }9\_s*  
End If 1TTS@\  
End With f)_<Ih\/7_  
Next: Next: Next: Next: Next: Next $Xwk8<  
Next: Next: Next: Next: Next: Next W]eILCo
 
Loop Until True 1!^BcrG.  
On Error GoTo 0 h/tCve3Z  
End If _5 SvZ;4  
If WinTag And Not ShTag Then d=bKNA90  
MsgBox MSGONLYONE, vbInformation, HEADER >;Hx<FKxP  
Exit Sub IQ<G.  
End If T@ESMPeU:X  
On Error Resume Next %q|*}l  
For Each w1 In Worksheets D 1.59mHsD  
'Attempt clearance with PWord1 Mrk3r/ 8w  
w1.Unprotect PWord1 FBl,Mky  
Next w1 X>7Pqn'
 
On Error GoTo 0 y<6Sl6l*  
ShTag = False /rZk^/'  
For Each w1 In Worksheets CCG5:xS  
'Checks for all clear ShTag triggered to 1 if not. 75;RAKGi  
ShTag = ShTag Or w1.ProtectContents l\ dPfJ  
Next w1 &C MBTY#u  
If ShTag Then p|->z  
For Each w1 In Worksheets .<QKQ%-  
With w1 aiX&`   
If .ProtectContents Then GImPPF  
On Error Resume Next VL*5  
Do 'Dummy do loop Jy:*GW6  
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 kKF=%J?X  
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 =*'yGB[x)  
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 <y?+xZM]#|  
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 6xx.Z3v  
.Unprotect Chr(i) & Chr(j) & Chr(k) & _ D-@6 hWh~  
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Y&bYaq  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) 9)+!*(D  
If Not .ProtectContents Then 8WDL.IO  
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ YL*FjpVW  
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ |rJN  
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ?M4ig_  
MsgBox Application.Substitute(MSGPWORDFOUND2, _ a"P & 9c  
"$$", PWord1), vbInformation, HEADER 8#$HKWUK  
'leverage finding Pword by trying on other sheets iyCH)
MA  
For Each w2 In Worksheets !KXcg9e  
w2.Unprotect PWord1 `Zuo`GP*1  
Next w2 P4"BX*x  
Exit Do 'Bypass all for...nexts B>E4,"  
End If 7|=SZ+g  
Next: Next: Next: Next: Next: Next *H/)S5
 
Next: Next: Next: Next: Next: Next xb[yy}>"L  
Loop Until True vrmMEWPV  
On Error GoTo 0 br88b`L  
End If Tg O]q4  
End With %62|dhl6  
Next w1 ;gEEdx'&T  
End If w$$pTk|&n  
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER '2l[~T$*  
End Sub ISZEP8w  

什么都没有。。

撒子情况啊楼主？

怎么没有附件呢？谢谢~~~