Biraz gezerken forumda bir konuya rastladım admin panel bulucu kodları idi sanırım Security Enemy diye bir üye paylaşmış. Temel mantık olan "contains" kısmını ele alıp index çalıcı kodlarını birleştirip bir de ben deneyeyim dedim umarım yardımcı olur sizlere. Aynı mantığı dork tarayıcıda da kullanabilirsiniz. Tek farklı contains kısmına dorku yazınca verdiği hatayı/hata çeşitlerini girmek olacak.
2 Adet listbox ekliyoruz. Birisi panel uzantılarının olduğu kısım ben listbox 1'i tercih ettim diğeri de bulursa sonuç kısmı.
1 adet textbox ekleyelim adını url olarak değiştirelim buna hedef yazılacak çünkü.
1 adet richtextbox ekleyelim ismini sonuc yapalım bu da arka planda index işlemlerini yapacak.
1 adet timer ekleyelim intervival 485 olsun.
1 adet buton ekleyelim operasyonumuzu başlatması için.
1 adet webbrowser ekleyelim. URL açtıracağız çünkü.
Kodlarımıza geçelim;
Importlar'ı ekleyelim.
Imports System.Net
Imports System.IO
Imports System
Imports System.Text
Gerekli açıklamalar " ' " içerisinde verilmiştir.
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
ListBox1.SelectedIndex = 0
Else
ListBox1.SelectedIndex += 1 'Listbox'a otomatik aşağı indirme kodunu verdirdik.
WebBrowser1.Navigate(url.Text + "/" + ListBox1.SelectedItem) 'İnerken URL'leri Webbrowser ögesinde tek tek açmasını istedik.
sonuc.Text = WebBrowser1.DocumentText 'sonuc adlı richtextbox'a indexi çaldırma kodunu girdirdik.
Call ara() 'ara ögesini çağırdık.
End If
If ListBox1.SelectedIndex = 9 Then '10 öge varsa bir eksiğini aldım yani 9 öge üzerinden işlemi yaptırıp sonlandırdım. Ne kadar panel uzantınız varsa ona göre ayarlayınız.
Timer1.Stop()
Else
End If
End Sub
Sub ara() ' ara ögesi oluşturduk ve index içerisinde aşağıdaki verileri aramasını istedik dikkat edin admin panellerinde ki containsler bunlar sizler çoğaltın ben örnek olsun diye yazdım.
If sonuc.Text.Contains("Admin") Or sonuc.Text.Contains("Login") Or sonuc.Text.Contains("User") Or sonuc.Text.Contains("User Name") Or sonuc.Text.Contains("Password") Or sonuc.Text.Contains("Pass") Or sonuc.Text.Contains("Kullanıcı Adı") Or sonuc.Text.Contains("Şifre") Then
ListBox2.Items.Add(url.Text + "/" + ListBox1.SelectedItem) 'yukarıdaki ögelerde rastgelinirse listbox2'ye veri eklemesini istedik.
Else
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub