Şifreli Dosya Açma ( şifreyi bilmiyorsak )

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#1)  Tarkan VURAL » 15 Haz 2008 17:30

Olur da bir gün kaydettiğiniz şifreli bir excel dosyasının şifresini unutabilirsiniz. Bu kodlama ile şifrelenmiş bir Excel dosyasını ilave bir şifre çözücü program gerektirmeden rahatlıkla çözebiliyorsunuz. Kötü amaçlı kullanılmamasını diliyoruz.

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.

Buyrun kodlar aşağıda :

Kod: Tümünü seç
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
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#2)  Abidin Özçelik » 16 Haz 2008 11:52

Arkadaşlar Günaydın. Bu siyteyi bu gün gördüm ve üye oldum. Çok faydalı olacağına inandığım bir site... Öncelikle bu konu hakkında bir sorum olacak. Dosya açılıyor yalnız şifre verilmiyor. İkincisi şifreli herhangi bir dosyanın şifresini bulmak için adını değştirmek mi gerekiyor?
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#3)  Tarkan VURAL » 16 Haz 2008 12:04

Merhaba,
Sitemize hoş geldiniz. İyi dilekleriniz için teşekkür ediyoruz. Umarım faydalı olabiliyoruzdur.

Gelellim sorularınıza :
Kod: Tümünü seç
Workbooks.Open Filename:="c:\sifreli_dosya.xls",

Dosya adını buradan değiştirmeniz gerekli. Veya bu kodları bir UserForm üzerine alıp form üzerine Bu kodların çalıştırılacağı bir CommandButton ve dosyayı tanıtacağınız bir TextBox çizip, kodda gerekli değişikliği yaparak dilediğiniz dosyayı açtırabilirsiniz.

Kod: Tümünü seç
Workbooks.Open Filename:= Textbox1
gibi.

Dosya şifresini göstermesi için şu satırı bulunuz :
Kod: Tümünü seç
Shell ("notepad.exe c:\pass.txt"), vbMaximizedFocus

Şu şekilde değiştiriniz:
Kod: Tümünü seç
Shell ("notepad.exe c:\password.txt"), vbMaximizedFocus


Saygılarımızla,
ExcelVBA.Net Grubu
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#4)  Abidin Özçelik » 16 Haz 2008 16:45

Sayın ExceLord
dediğiniz satırı değiştirdim ancak yine şifre göstermiyor... Rica etsem bir dosya içine uygulayıp gönderebilirmiyiz?
Dediğiniz şekilde Userform üzerine uygulamalı...
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#5)  Tarkan VURAL » 16 Haz 2008 16:51

Merhaba,

Sisteminizi kontrol ederek c:\password.txt dosyasının olduğuna emin olabilir misiniz ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#6)  Abidin Özçelik » 16 Haz 2008 17:02

Dosya var olmasına var. Bulunan parola --> şekilde çıkıyor şifre verilmiyor. Birde 6 karakterli şifre denediğimde çok uzun zaman geçmesine rağmen yanıt alınamıyor...
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#7)  Tarkan VURAL » 16 Haz 2008 17:13

Kod: Tümünü seç
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)


Bu kod kısmı ile şifreyi içine yazıyor olması gerek, akabinde dosyayı açıp sendkeys ile bir satır başlık atıyor. Dilerseniz bu ilave satır atma kodunu silin. Insert tuşu etkinse dosyadaki şifre üzerinde yazım yapıyor olabilir.

Uzun şifreler konusunda haklısınız, ama bu kodlama çözümü ile maalesef şifre çözmek uzun sürebiliyor.

Saygılarımızla,
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#8)  Abidin Özçelik » 16 Haz 2008 17:57

Sorun çözüldü teşekkür ediyorum. Çok faydalı bir bilgi...
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#9)  Tarkan VURAL » 16 Haz 2008 18:02

Rica ederiz.

Saygılarımızla,
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#10)  Abidin Özçelik » 17 Haz 2008 11:33

Günaydın arkadaşlar
Kodları userform üzerine uyguladım bakmak isteyen arkadaşlara.....

Dosyanız bu kısımdan kaldırılmış, istediğiniz revize işlemlerden sonra güncelllenerek mesajın devamında siteye yeniden eklenmiştir.

Bu mesaj ExcelVBA.Net Grubu tarafından düzenlenmiştir.
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#11)  Tarkan VURAL » 17 Haz 2008 11:57

Paylaşımınız için teşekkür ediyoruz.

Ek bilgi olarak :
Kod: Tümünü seç
Open "password.txt" For Output As #2

satırını
Kod: Tümünü seç
Open "c:\password.txt" For Output As #2

yani password dosyanızın yolunu sürücü adıyla birlikte yazın, parolanız oraya da kaydedilecektir.

Saygılarımızla,
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#12)  Abidin Özçelik » 17 Haz 2008 12:17

Sayın ExcelLord şifreyi userforda veya Excel sayfasında göstermek mümkün mü?
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#13)  Tarkan VURAL » 17 Haz 2008 12:28

Elbette.
Dosyadaki UserForm üzerine TextBox2 adında bir adet TextBox ekleyin.
Dosyadaki şu satırları :
Kod: Tümünü seç
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:\password.txt"), vbMaximizedFocus
End


Aşağıdaki gibi değiştirin :
Kod: Tümünü seç
Gotit:
Close #1
TextBox2 = "Bulunan şifre:  " & 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)
MsgBox "Parola arama işlemi tamamlanmıştır", vbInformation, "www.excelvba.net"
Saygılarımızla,
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#14)  Abidin Özçelik » 17 Haz 2008 13:44

Çok güzel. Teşekkür ediyorum
Kullanıcı avatarı
Abidin Özçelik
Siteye Alışmış
 
Adı Soyadı:ABİDİN ÖZÇELİK
Kayıt: 16 Haz 2008 11:47
Konum: Diyarbakır
Meslek: Eczacı
Yaş: 37
İleti: 361
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİYARBAKIR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#15)  Tarkan VURAL » 17 Haz 2008 14:12

Rica ederim. İyi çalışmalar.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#16)  enteresan » 18 Haz 2008 23:51

Bu dosyayı en son haliyle oluşturup buraya koyabilir misiniz. Lütfen. İlk halinden sonra bayağı bir değişiklik olmuş ve bir türlü toparlayamadım. Saygılar...
Kullanıcı avatarı
enteresan
İsimsiz Üye
 
Kayıt: 18 Haz 2008 22:08
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#17)  Tarkan VURAL » 19 Haz 2008 00:13

Dosya son haliyle güncellenerek eklenmiştir.

sifre_cozucu.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#18)  enteresan » 19 Haz 2008 00:38

ExceLord yazdı:Dosya son haliyle güncellenerek eklenmiştir.

sifre_cozucu.rar

Teşekkür ederim. Küçük bir ilave yapılabilirse daha iyi olacağını düşünüyorum. Mesela userformda gözat butonu ile şifreli dosya gösterilse ve açılması istense diye düşünüyorum. Çok zor olmasa gerek. Saygılar...
Kullanıcı avatarı
enteresan
İsimsiz Üye
 
Kayıt: 18 Haz 2008 22:08
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: NEVŞEHİR

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#19)  Tarkan VURAL » 16 Ekm 2008 02:43

Şifreli dosya gösterilse derken neyi kast ettiniz, anlamadım.
UserForm, gözat, dosya açmak sorun değil de dosya gösterilmesi derken dosya şifreli ise sistem ayrı bir işaret mi versin ? "Bu dosya şifreli bunu bu kodlamalardan geçirerek aç" desin mi demek istediniz ? ? ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Şifreli Dosya Açma ( şifreyi bilmiyorsak )

İleti#20)  M Kubilay Karabulut » 16 Ekm 2008 10:04

demhatozcelik yazdı:Dosya var olmasına var. Bulunan parola --> şekilde çıkıyor şifre verilmiyor. Birde 6 karakterli şifre denediğimde çok uzun zaman geçmesine rağmen yanıt alınamıyor...


Şifre kırıcı programların çalışma mantığı ; elinde olan şifreleri yerine koyarak bulmaya çalışır haliyle karakter arttıkça zamanda aynı orantı ile artar
" WeWhoAreNotAsOthers"
Kullanıcı avatarı
M Kubilay Karabulut
Yönetim Kurulu
 
Adı Soyadı:Mustafa Kubilay KARABULUT
Kayıt: 15 Haz 2008 02:10
Konum: Maltepe/Istanbul
Meslek: Finans
Yaş: 40
İleti: 732
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Maltepe/İstanbul

Sonraki

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe