Excel'de sayfa koruma parolasını kurtarma


14

Bir Excel çalışma kitabım var.

Sayfalardan biri için şifre koruma seçeneği belirlemeden iki yıl önce. Şimdi şifremi unuttum. Bu Excel sayfasının şifresini kurtarmanın bir yolu var mı?

Yanıtlar:


17

Şifreyi kurtaramazsınız, ancak sayfanın korumasını kaldırabilirsiniz (Sayfayı korumak için kullanılan karma, excel'in eski sürümlerindeki çarpışmalara oldukça eğilimlidir, bu nedenle burada bir çarpışma oluşturmak oldukça hızlıdır).

Çok kısa bir süre içinde sayfanızı açacak kaba kuvvet olacak komut dosyaları vardır.

Buraya bir göz atın örneğin: http://www.theofficeexperts.com/VBASamples/Excel02.htm

İşte kod:

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com

  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)
  If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       Exit Sub
  End If
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next


End Sub

+1 olası çözüm. Bunun başka bir yolu ... Apache POI ve Digester ile bir uygulama programlayın. Dosyadan geçin ve şifreye dokunmadan kopyalayın. (Evet bazı açılardan mümkündür)
user8885

2
+1 Bir cazibe gibi çalışır ve 10 saniyenin altında bir çarpışma olur.
Johan - Monica'yı

Vay. 194.560 denemesinde çarpışmaların (neredeyse?) Kesin olması inanılmaz. Yaklaşık 3000. tekrarda benimkini yaşadım. Toplamda yaklaşık 17 bit entropi var!
Ocak'ta jonallard

VBA olmayan bir yol var mı? OSX kullanıyorum ve tüm dosya korunuyor.
Jonny

Şifreleme düzeylerinin artması nedeniyle bunun Excel 2013 ve sonraki sürümlerle korunan Excel dosyalarında çalışmadığından eminim.
Febcʜιᴇ007
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.