Chào mừng quý vị đến với Thư viện tài nguyên dạy học tỉnh Bắc Kạn.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
Cách phá Password
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Đinh Kim Diện
Ngày gửi: 20h:28' 21-03-2011
Dung lượng: 67.5 KB
Số lượt tải: 61
Nguồn:
Người gửi: Đinh Kim Diện
Ngày gửi: 20h:28' 21-03-2011
Dung lượng: 67.5 KB
Số lượt tải: 61
Số lượt thích:
0 người
Các đồng chí tiến hành theo các bước sau để có thể phá password trên sheet Excel: 1. Trước hết mở file Excel có password 2. Sau đó chọn menu Tools -> Macro -> Visual Basic Editor ( Hoặc ấn tổ hợp phím Alt+F11) 3. Tiếp tục nhấp đúp vào Sheet mà bạn muốn phá pass 4. Và copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm 5. Cuối cùng máy tính hỏi bạn có muốn “phá” nó không ? Nếu muốn bấm Yes 6. Và bạn chờ một lúc máy sẽ phá Pass cho bạn. Có thông báo sau khi phá Pass Lời chia sẻ: Chúng ta cực kỳ ghét những thằng nào đó… không muốn chia sẻ thông tin với người khác,chỉ muốn giữ riêng cho bản thân mình và cứ bắt chúng ta phải học và muốn chúng ta học cách…phá mà thôi.
Các đồng chí copy phần màu đỏ sau: Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet `" & ActiveSheet.Name & "` is unprotected!", vbInformation Else If MsgBox("Sheet `" & ActiveSheet.Name & "` is protected, do you want to unprotect it?", _ vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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) Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next If ActiveSheet.ProtectContents = False Then MsgBox "Sheet `" & ActiveSheet.Name & "` is unprotected!", vbInformation End If End Sub
Các đồng chí copy phần màu đỏ sau: Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet `" & ActiveSheet.Name & "` is unprotected!", vbInformation Else If MsgBox("Sheet `" & ActiveSheet.Name & "` is protected, do you want to unprotect it?", _ vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 ActiveSheet.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) Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next If ActiveSheet.ProtectContents = False Then MsgBox "Sheet `" & ActiveSheet.Name & "` is unprotected!", vbInformation End If End Sub
Các ý kiến mới nhất