梦幻天堂·龙网

 找回密码
 立即注册
楼主: skycharlene

[03-21] [云图2012.BD-720P.MKV][国语+英语][中字][2G]

[复制链接]
hhh25369225 该用户已被删除
发表于 2013-6-14 00:41:11 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

0

主题

111

帖子

33

积分

泡泡龙

Rank: 5Rank: 5Rank: 5

积分
33
QQ
发表于 2013-6-14 11:03:38 | 显示全部楼层
强大啊,呵呵呵
电影是我的全部!

0

主题

185

帖子

70

积分

龙之子

Rank: 8Rank: 8Rank: 8Rank: 8

积分
70
发表于 2013-6-14 21:48:56 | 显示全部楼层
感谢楼主无私奉献

0

主题

325

帖子

151

积分

龙之子

Rank: 8Rank: 8Rank: 8Rank: 8

积分
151
发表于 2013-6-14 23:50:31 | 显示全部楼层
Option ExplicitPublic Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants, and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do 'dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADER Exit Do 'Bypass all for...nexts End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets 'Attempt clearance with PWord1 w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets 'Checks for all clear ShTag triggered to 1 if not. ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do 'Dummy do loop For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER 'leverage finding Pword by trying on other sheets For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do 'Bypass all for...nexts End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub

0

主题

98

帖子

1080

积分

神龙

Rank: 15Rank: 15Rank: 15

积分
1080

龙网爱心勋章

发表于 2013-6-17 19:18:05 | 显示全部楼层
1# skycharlene


好不容易找到这个国语版本 必须得顶 个

0

主题

184

帖子

61

积分

泡泡龙

Rank: 5Rank: 5Rank: 5

积分
61
发表于 2013-6-17 22:41:56 | 显示全部楼层
多国制作应该不错
wangyi2514 该用户已被删除
发表于 2013-6-18 23:42:58 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

0

主题

99

帖子

84

积分

龙之子

Rank: 8Rank: 8Rank: 8Rank: 8

积分
84
发表于 2013-6-19 09:49:06 | 显示全部楼层
谢谢分享

0

主题

66

帖子

38

积分

泡泡龙

Rank: 5Rank: 5Rank: 5

积分
38
发表于 2013-6-21 15:20:31 | 显示全部楼层
1# skycharlene


戈多在哪里  我也咋爱等待

0

主题

46

帖子

648

积分

龙的传人

Rank: 13Rank: 13Rank: 13

积分
648
发表于 2013-8-1 21:29:00 | 显示全部楼层
回复看片

0

主题

19

帖子

690

积分

龙的传人

Rank: 13Rank: 13Rank: 13

积分
690
发表于 2013-8-4 11:42:14 | 显示全部楼层
1# skycharlene


听云图这首歌来的

0

主题

1124

帖子

863

积分

龙的传人

Rank: 13Rank: 13Rank: 13

积分
863
发表于 2013-8-19 00:52:40 | 显示全部楼层
谢谢楼主分享!

0

主题

225

帖子

1322

积分

神龙

Rank: 15Rank: 15Rank: 15

积分
1322
发表于 2013-8-25 12:23:01 | 显示全部楼层
这。。。真的可以吗??

0

主题

80

帖子

35

积分

泡泡龙

Rank: 5Rank: 5Rank: 5

积分
35
发表于 2013-10-5 22:33:04 | 显示全部楼层
有高清的 值得一看啊

0

主题

496

帖子

411

积分

龙少爷

Rank: 10Rank: 10

积分
411
发表于 2013-10-7 22:44:42 | 显示全部楼层
感谢分享!!!!!!!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|梦幻天堂·龙网

GMT+8, 2024-3-29 05:50 , Processed in 0.218459 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表