• Hesap Oluştur
  • Oturum Aç

Excel şifre kırma hack

excel    1

    • avatar

    excel  21-08-2019, Saat: 17:16

    Kredi:
    #1
    Merhaba;

    Arkadaşlar excel açılış şifresini hatırlamıyorum ne yapabilirim acaba yardımcı olabilir misiniz?
    Beğeni
    • avatar

    Termux  21-08-2019, Saat: 17:30

    Kredi:
    #2
    (21-08-2019, Saat: 17:16)excel Nickli Kullanıcıdan Alıntı: Merhaba;

    Arkadaşlar excel açılış şifresini hatırlamıyorum ne yapabilirim acaba yardımcı olabilir misiniz?

    Bu kodla dosyayı açabilirsiniz.

    Deneme yapmak için örneğin c: içerisine TeknoDestekTeam.xlsm adında bir dosya oluşturup bu kodları ekleyin, bir tane de sifreli_dosya.xlsx 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.

    Kod:
    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.xlsx", 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,"https://teknodestekteam.com"
    Shell ("notepad.exe c:\pass.txt"), vbMaximizedFocus
    Application.SendKeys "Bulunan parola -->  "
    End Sub
    Beğeni

Konuyu Okuyanlar: 1 Ziyaretçi

Hızlı Menü: