Merhabalar bugün sizlere dork maker yani dork yazar nasıl kodlanır onu göstereceğim. Burada yer alan dikkatinizi çekmek istediğim bir nokta var ben bu programı kodlarken diğer dork yazarlara göre farklı bir yaklaşım sergiledim. Bazı dork yazarlar rastgele harf üreterek dork oluşturuyordu bu da google üzerinde arattırdığımız zaman hatalara sebep veriyordu. Biz burada internet üzerinden herhangi bir makaleyi metin belgenize kaydedip bunu kodlamış olduğumuz dork yazara yansıtacağız. Bu sayede metin ve üretilen dork google üzerinde aratıldığı zaman mantıklı bir sonuç verecek. Ben joomla üzerinden örnek verdim. Siz farklı dorklar üzerinde değişimler yaparak deneyebilirsiniz. Ayrıca üretilen dorktan daha önce üretilmiş ise listeye eklemiyor.
İhtiyaç Listemiz;
2 adet ComboBox birisi Joomla dork için diğeri WordPress dork için.
2 adet Listbox birisi oluşturulan dorku listelemek için diğeri seçilen metin belgesinde yer alan kelimeler için.
3 adet Textbox birisi içerisinde tırnak işareti olacak yani text kutucuğu içerisine " yazın nedenini aşağıda açıklayacağım diğeri seçilen metni arka planda bölecek ve listeye aktarması için bunu formda bir yere gizlemeyi unutmayın ayrıca ScrollBars özelliği Both olsun sonuncusu ise rapor için.
4 Adet Buton birisi dork seçme için, birisi üretmek için, birisi kaydetmek için, birisi de üretilen dorku silmek için.
2 adet RadioButton bunları da arka planda gizleyelim birisi Joomla seçilirse arka planda otomatik olarak seçilecek ve Joomla dork oluşmasını sağlayacak diğeri seçilirse Wordpress dork oluşmasını sağlayacak.
1 Adet SaveFileDialog oluşturulan dork listesini kaydetmek için.
Kodlara başlamadan önce İmport etmemiz gereken kütüphanelerimiz;
Public Class Altına yazmamız gereken kod (Genel geçer olduğu için böyle yaptım);
Makaleleri internet ortamından çekeceğimiz için üretilen dorkun tam anlamıyla kelime olması için noktalama işaretlerinden arındırılmış olması gerekiyor bunun için yazdığım kod satırı;
Aktarılan metni Textbox içerisinde böldük, parçaladık, noktalama işaretlerinden arındırdık sırada liste kutumuza aktarma işlemimiz var. Kodumuz;
Kelime Yükle Kodum;
Üretilen dork daha önce listemde var ise arayıp oluşmadan sildiriyorum. Kodum;
Dork Üret Kodum;
Kaydet Kodum;
Tümünü Temizle Kodum;
İhtiyaç Listemiz;
2 adet ComboBox birisi Joomla dork için diğeri WordPress dork için.
2 adet Listbox birisi oluşturulan dorku listelemek için diğeri seçilen metin belgesinde yer alan kelimeler için.
3 adet Textbox birisi içerisinde tırnak işareti olacak yani text kutucuğu içerisine " yazın nedenini aşağıda açıklayacağım diğeri seçilen metni arka planda bölecek ve listeye aktarması için bunu formda bir yere gizlemeyi unutmayın ayrıca ScrollBars özelliği Both olsun sonuncusu ise rapor için.
4 Adet Buton birisi dork seçme için, birisi üretmek için, birisi kaydetmek için, birisi de üretilen dorku silmek için.
2 adet RadioButton bunları da arka planda gizleyelim birisi Joomla seçilirse arka planda otomatik olarak seçilecek ve Joomla dork oluşmasını sağlayacak diğeri seçilirse Wordpress dork oluşmasını sağlayacak.
1 Adet SaveFileDialog oluşturulan dork listesini kaydetmek için.
Kodlara başlamadan önce İmport etmemiz gereken kütüphanelerimiz;
Imports System.IO
Imports System.Threading
Public Class Altına yazmamız gereken kod (Genel geçer olduğu için böyle yaptım);
Dim oku As IO.StreamReader
Dim op As New OpenFileDialog
Makaleleri internet ortamından çekeceğimiz için üretilen dorkun tam anlamıyla kelime olması için noktalama işaretlerinden arındırılmış olması gerekiyor bunun için yazdığım kod satırı;
C#:
Sub noktasil()
Dim a As String
Dim b As String
a = "."
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, ".", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub virgulsil()
Dim a As String
Dim b As String
a = ","
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, ",", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub unlemsil()
Dim a As String
Dim b As String
a = "!"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "!", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub ikinoktasil()
Dim a As String
Dim b As String
a = ":"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, ":", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub soruisaretisil()
Dim a As String
Dim b As String
a = "?"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "?", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub tirnaksil()
Dim a As String
Dim b As String
a = "'"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "'", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub cizgisil()
Dim a As String
Dim b As String
a = "-"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "-", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub tirnakksil()
Dim a As String
Dim b As String
a = TextBox3.Text
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, TextBox3.Text, "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub etsil()
Dim a As String
Dim b As String
a = "@"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "@", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub parantezsil()
Dim a As String
Dim b As String
a = "("
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, "(", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Sub kparantezsil()
Dim a As String
Dim b As String
a = ")"
b = InStr(TextBox1.Text, a)
If b Then
TextBox1.Focus()
Dim withParts As String = TextBox1.Text
Dim withoutParts As String = Replace(withParts, ")", "") 'hatalı yerleri madde işareti ile bulup değiştir diyoruz
TextBox1.Text = withoutParts
Else
End If
End Sub
Aktarılan metni Textbox içerisinde böldük, parçaladık, noktalama işaretlerinden arındırdık sırada liste kutumuza aktarma işlemimiz var. Kodumuz;
C#:
Sub gecir()
Dim s As String = TextBox1.Text
Dim words As String() = s.Split(" "c)
For Each word As String In words
ListBox1.Items.Add(word)
Next
End Sub
Kelime Yükle Kodum;
C#:
If op.ShowDialog = DialogResult.OK Then
Dim oku As IO.StreamReader
oku = IO.File.OpenText(op.FileName)
Do
TextBox1.Text = oku.ReadToEnd()
Loop Until oku.Peek = -1
oku.Close()
oku.Dispose()
End If
Call noktasil()
Call virgulsil()
Call unlemsil()
Call ikinoktasil()
Call soruisaretisil()
Call tirnaksil()
Call cizgisil()
Call tirnakksil()
Call etsil()
Call parantezsil()
Call kparantezsil()
Call sil()
Call gecir()
TextBox2.Text = "Listedeki Seçili Kelime Sayısı : " & " " & ListBox1.Items.Count
Üretilen dork daha önce listemde var ise arayıp oluşmadan sildiriyorum. Kodum;
C#:
Sub sil()
Dim a, b As Integer
Dim Dizi As New ArrayList
Dim NesneBulundu As Boolean
For a = 0 To ListBox2.Items.Count - 1
NesneBulundu = False
For b = 0 To a - 1
If ListBox2.Items.Item(a) = ListBox2.Items.Item(b) Then
NesneBulundu = True
Exit For
End If
Next b
If Not NesneBulundu Then
Dizi.Add(ListBox2.Items.Item(a))
End If
Next a
ListBox2.Items.Clear()
ListBox2.Items.AddRange(Dizi.ToArray)
Dizi = Nothing
End Sub
Dork Üret Kodum;
C#:
Dim rsayi As New Random
Dim adet = ListBox1.Items.Count
Dim sayi = rsayi.Next(0, adet)
ListBox1.SelectedIndex = sayi
If RadioButton1.Checked = True Then
ListBox2.Items.Add(ComboBox1.SelectedItem.ToString & ListBox1.SelectedItem.ToString)
Call sil()
TextBox2.Text = "JOOMLA DORK ÜRETİLDİ !" + vbNewLine
End If
If RadioButton2.Checked = True Then
ListBox2.Items.Add(ComboBox2.SelectedItem.ToString & ListBox1.SelectedItem.ToString)
Call sil()
TextBox2.Text = "WORDPRESS DORK ÜRETİLDİ !" + vbNewLine
End If
Kaydet Kodum;
C#:
SaveFileDialog1.FileName = "Dork Listem"
SaveFileDialog1.Filter = "Metin Belgesi | *.txt |All Files| *.*"
SaveFileDialog1.Title = "Dork Listenizi Kaydedin!"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim sb As New System.Text.StringBuilder()
For Each o As Object In ListBox2.Items
sb.AppendLine(o)
Next
System.IO.File.WriteAllText(SaveFileDialog1.FileName, sb.ToString())
TextBox2.Text = "OLUŞTURULAN DORK LİSTESİ KAYDEDİLDİ!" + " " + SaveFileDialog1.FileName + vbNewLine
End If
Tümünü Temizle Kodum;
C#:
ListBox2.Items.Clear()
ListBox1.Items.Clear()
TextBox2.Text = "LİSTE TEMİZLENDİ !" + vbNewLine
Demo Form Görüntülerim;
~ SON ~
~ SON ~
Son düzenleme: