Şifreli Dosyayı Açma(Şifre Bilinmiyorsa)

02-02-2009, 10:29:32

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

09-10-2019, 14:19:55

#2

FiLmDiziTR

Kimlik doğrulama veya yönetimden onay bekliyor.

deneyen oldu mu calısıyorsa yararlı bı paylasım
09-10-2019, 16:52:02

#3

bondcemil

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