Şifreli Dosyayı Açma(Şifre Bilinmiyorsa) - R10.net
  • 02-02-2009, 10:29:32
    #1
    Bir gün excelde hazırladığınız bir dosyanın şifresini unutursanız.Bu kodla dosyayı açabilirsiniz.

    Deneme yapmak için örneğin c: içerisine master.xls adında bir dosya oluşturup bu kodları ekleyin, bir tane de sifreli_dosya.xls oluşturup kaydederken parolalı kaydedin ve kapatın. Deneme yapmak için 1-2 karakterlik parola yazın ki kodlar çabucacık size yanıt versin, hem kodların çalıştığından da emin olursunuz.
    Kodun sonunda yazdığım Notepad pass.txt dosyası işleminiz bittiğinde size parolayı da bulup göstermiş olacak.

    Private Sub SifreBul()
    On Error Resume Next
    Open "log.txt" For Output As #1
    Print #1, "Şifre bulma başlatıldı: " & Time
    tc = 251
    sc = 48
    
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
    g = 0
    h = 0
    i = 0
    j = 0
    k = 0
    
    Keyrun = 0
    Do While k <> tc
    Workbooks.Open Filename:="c:\sifreli_dosya.xls", Password:=Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k)
    If ActiveWorkbook.HasPassword = True Then GoTo Gotit
    
    a = a + 1
    
    If a = tc Then
    a = sc
    b = b + 1
    GoTo tekrar
    End If
    
    If b = tc Then
    a = sc
    b = sc
    c = c + 1
    GoTo tekrar
    End If
    
    If c = tc Then
    a = sc
    b = sc
    c = sc
    d = d + 1
    GoTo tekrar
    End If
    
    If d = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = e + 1
    GoTo tekrar
    End If
    
    If e = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = f + 1
    GoTo tekrar
    End If
    
    If f = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = sc
    g = g + 1
    GoTo tekrar
    End If
    
    If g = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = sc
    g = sc
    h = h + 1
    GoTo tekrar
    End If
    
    If h = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = sc
    g = sc
    h = sc
    i = i + 1
    GoTo tekrar
    End If
    
    If j = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = sc
    g = sc
    h = sc
    i = sc
    j = sc
    k = k + 1
    GoTo tekrar
    End If
    
    If k = tc Then
    a = sc
    b = sc
    c = sc
    d = sc
    e = sc
    f = sc
    g = sc
    h = sc
    i = sc
    j = sc
    GoTo tekrar
    End If
    
    tekrar:
    If a = 1 Then
    a = sc
    End If
    
    If b = 1 Then
    b = sc
    End If
    
    If c = 1 Then
    c = sc
    End If
    
    If d = 1 Then
    d = sc
    End If
    
    If e = 1 Then
    e = sc
    End If
    
    If f = 1 Then
    f = sc
    End If
    
    If g = 1 Then
    g = sc
    End If
    
    If h = 1 Then
    h = sc
    End If
    
    If i = 1 Then
    i = sc
    End If
    
    If j = 1 Then
    j = sc
    End If
    
    If k = 1 Then
    k = sc
    End If
    
    If a = 58 Then
    a = 65
    End If
    
    If b = 58 Then
    b = 65
    End If
    
    If c = 58 Then
    c = 65
    End If
    
    If d = 58 Then
    d = 65
    End If
    
    If e = 58 Then
    e = 65
    End If
    
    If f = 58 Then
    f = 65
    End If
    
    If g = 58 Then
    g = 65
    End If
    
    If h = 58 Then
    h = 65
    End If
    
    If i = 58 Then
    i = 65
    End If
    
    If j = 58 Then
    j = 65
    End If
    
    If k = 58 Then
    k = 65
    End If
    
    
    If a = 91 Then
    a = 97
    End If
    
    If b = 91 Then
    b = 97
    End If
    
    If c = 91 Then
    c = 97
    End If
    
    If d = 91 Then
    d = 97
    End If
    
    If e = 91 Then
    e = 97
    End If
    
    If f = 91 Then
    f = 97
    End If
    
    If g = 91 Then
    g = 97
    End If
    
    If h = 91 Then
    h = 97
    End If
    
    If i = 91 Then
    i = 97
    End If
    
    If j = 91 Then
    j = 97
    End If
    
    If k = 91 Then
    k = 97
    End If
    
    If a = 123 Then
    a = 193
    End If
    
    If b = 123 Then
    b = 193
    End If
    
    If c = 123 Then
    c = 193
    End If
    
    If d = 123 Then
    d = 193
    End If
    
    If e = 123 Then
    e = 193
    End If
    
    If f = 123 Then
    f = 193
    End If
    
    If g = 123 Then
    g = 193
    End If
    
    If h = 123 Then
    h = 193
    End If
    
    If i = 123 Then
    i = 193
    End If
    
    If j = 123 Then
    j = 193
    End If
    
    If k = 123 Then
    k = 193
    End If
    
    
    If a = 194 Then
    a = 201
    End If
    
    If b = 194 Then
    b = 201
    End If
    
    If c = 194 Then
    c = 201
    End If
    
    If d = 194 Then
    d = 201
    End If
    
    If e = 194 Then
    e = 201
    End If
    
    If f = 194 Then
    f = 201
    End If
    
    If g = 194 Then
    g = 201
    End If
    
    If h = 194 Then
    h = 201
    End If
    
    If i = 194 Then
    i = 201
    End If
    
    If j = 194 Then
    j = 201
    End If
    
    If k = 194 Then
    k = 201
    End If
    
    
    If a = 202 Then
    a = 205
    End If
    
    If b = 202 Then
    b = 205
    End If
    
    If c = 202 Then
    c = 205
    End If
    
    If d = 202 Then
    d = 205
    End If
    
    If e = 202 Then
    e = 205
    End If
    
    If f = 202 Then
    f = 205
    End If
    
    If g = 202 Then
    g = 205
    End If
    
    If h = 202 Then
    h = 205
    End If
    
    If i = 202 Then
    i = 205
    End If
    
    If j = 202 Then
    j = 205
    End If
    
    If k = 202 Then
    k = 205
    End If
    
    
    If a = 206 Then
    a = 209
    End If
    
    If b = 206 Then
    b = 209
    End If
    
    If c = 206 Then
    c = 209
    End If
    
    If d = 206 Then
    d = 209
    End If
    
    If e = 206 Then
    e = 209
    End If
    
    If f = 206 Then
    f = 209
    End If
    
    If g = 206 Then
    g = 209
    End If
    
    If h = 206 Then
    h = 209
    End If
    
    If i = 206 Then
    i = 209
    End If
    
    If j = 206 Then
    j = 209
    End If
    
    If k = 206 Then
    k = 209
    End If
    
    
    If a = 210 Then
    a = 211
    End If
    
    If b = 210 Then
    b = 211
    End If
    
    If c = 210 Then
    c = 211
    End If
    
    If d = 210 Then
    d = 211
    End If
    
    If e = 210 Then
    e = 211
    End If
    
    If f = 210 Then
    f = 211
    End If
    
    If g = 210 Then
    g = 211
    End If
    
    If h = 210 Then
    h = 211
    End If
    
    If i = 210 Then
    i = 211
    End If
    
    If j = 210 Then
    j = 211
    End If
    
    If k = 210 Then
    k = 211
    End If
    
    If a = 212 Then
    a = 218
    End If
    
    If b = 212 Then
    b = 218
    End If
    
    If c = 212 Then
    c = 218
    End If
    
    If d = 212 Then
    d = 218
    End If
    
    If e = 212 Then
    e = 218
    End If
    
    If f = 212 Then
    f = 218
    End If
    
    If g = 212 Then
    g = 218
    End If
    
    If h = 212 Then
    h = 218
    End If
    
    If i = 212 Then
    i = 218
    End If
    
    If j = 212 Then
    j = 218
    End If
    
    If k = 212 Then
    k = 218
    End If
    
    
    If a = 219 Then
    a = 225
    End If
    
    If b = 219 Then
    b = 225
    End If
    
    If c = 219 Then
    c = 225
    End If
    
    If d = 219 Then
    d = 225
    End If
    
    If e = 219 Then
    e = 225
    End If
    
    If f = 219 Then
    f = 225
    End If
    
    If g = 219 Then
    g = 225
    End If
    
    If h = 219 Then
    h = 225
    End If
    
    If i = 219 Then
    i = 225
    End If
    
    If j = 219 Then
    j = 225
    End If
    
    If k = 219 Then
    k = 225
    End If
    
    If a = 226 Then
    a = 233
    End If
    
    If b = 226 Then
    b = 233
    End If
    
    If c = 226 Then
    c = 233
    End If
    
    If d = 226 Then
    d = 233
    End If
    
    If e = 226 Then
    e = 233
    End If
    
    If f = 226 Then
    f = 233
    End If
    
    If g = 226 Then
    g = 233
    End If
    
    If h = 226 Then
    h = 233
    End If
    
    If i = 226 Then
    i = 233
    End If
    
    If j = 226 Then
    j = 233
    End If
    
    If k = 226 Then
    k = 233
    End If
    
    If a = 234 Then
    a = 237
    End If
    
    If b = 234 Then
    b = 237
    End If
    
    If c = 234 Then
    c = 237
    End If
    
    If d = 234 Then
    d = 237
    End If
    
    If e = 234 Then
    e = 237
    End If
    
    If f = 234 Then
    f = 237
    End If
    
    If g = 234 Then
    g = 237
    End If
    
    If h = 234 Then
    h = 237
    End If
    
    If i = 234 Then
    i = 237
    End If
    
    If j = 234 Then
    j = 237
    End If
    
    If k = 234 Then
    k = 237
    End If
    
    If a = 238 Then
    a = 241
    End If
    
    If b = 238 Then
    b = 241
    End If
    
    If c = 238 Then
    c = 241
    End If
    
    If d = 238 Then
    d = 241
    End If
    
    If e = 238 Then
    e = 241
    End If
    
    If f = 238 Then
    f = 241
    End If
    
    If g = 238 Then
    g = 241
    End If
    
    If h = 238 Then
    h = 241
    End If
    
    If i = 238 Then
    i = 241
    End If
    
    If j = 238 Then
    j = 241
    End If
    
    If k = 238 Then
    k = 241
    End If
    
    If a = 242 Then
    a = 243
    End If
    
    If b = 242 Then
    b = 243
    End If
    
    If c = 242 Then
    c = 243
    End If
    
    If d = 242 Then
    d = 243
    End If
    
    If e = 242 Then
    e = 243
    End If
    
    If f = 242 Then
    f = 243
    End If
    
    If g = 242 Then
    g = 243
    End If
    
    If h = 242 Then
    h = 243
    End If
    
    If i = 242 Then
    i = 243
    End If
    
    If j = 242 Then
    j = 243
    End If
    
    If k = 242 Then
    k = 243
    End If
    
    If a = 244 Then
    a = 250
    End If
    
    If b = 244 Then
    b = 250
    End If
    
    If c = 244 Then
    c = 250
    End If
    
    If d = 244 Then
    d = 250
    End If
    
    If e = 244 Then
    e = 250
    End If
    
    If f = 244 Then
    f = 250
    End If
    
    If g = 244 Then
    g = 250
    End If
    
    If h = 244 Then
    h = 250
    End If
    
    If i = 244 Then
    i = 250
    End If
    
    If j = 244 Then
    j = 250
    End If
    
    If k = 244 Then
    k = 250
    End If
    
    Keyrun = Keyrun + 1
    If Keyrun = 300 Then
    Print #1,
    Print #1, "Tamamlanan 50 deneme:" & Time
    Print #1, Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(g) & Chr(h) & Chr(h) & Chr(i) & Chr(j) & Chr(k)
    Keyrun = 0
    End If
    Loop
    
    Gotit:
    Close #1
    Open "password.txt" For Output As #2
    Print #2, Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(g) & Chr(h) & Chr(h) & Chr(i) & Chr(j) & Chr(k)
    Close #2
    MsgBox "Parola arama işlemi tamamlanmıştır",vbInformation,"www.excelvba.net"
    Shell ("notepad.exe c:\pass.txt"), vbMaximizedFocus
    Application.SendKeys "Bulunan parola -->  "
    End Sub
    // ***3 **0 *8 *7 Numaralı telefondan onay mesajı almadan alışveriş yapmayın //
  • 09-10-2019, 14:19:55
    #2
    deneyen oldu mu calısıyorsa yararlı bı paylasım
    543 *** 01 97 - 0507 *** 14 98 onay almadan işlem yapmayınız...
  • 09-10-2019, 16:52:02
    #3
    Brute force yapıyor anlattığın kadarıyla anladığım. Haliyle şifre ne kadar uzunsa açılması o kadar uzun sürer. Teşekkürler