Admin Paneli Bulucu Örneği [ vb.net ]

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

Maveraün1Nehr

Mavi Takım