Dork Yazar(Dork Maker) Kodlayalım [ vb.net ] [ Özgün Konu ]

Hê-ll' Alıntı:

Eline sağlık reis, sahalara dönmüşsün.

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

Estağfurullah bizimkisi heves ve merakla sınırlı bir de bilgi paylaşma hastalığı o kadar

Genişletmek için tıkla ...

Hê-ll' Alıntı:

Özlettin kendini, haydi bakalım hayırlısı. Çok güzel bir konu olmuş, bence formun tasarımı da gelişirse harikulade olur. Eline sağlık tekrardan çok beğendim.

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

O tasarım işine alışamadım gitti ya hep bu dış görünüş yok mu dış görünüş... Beni yakanda hep bu güzellik meseleleri zaten Ben demo olarak paylaştım örnek yani :d kullanıcılar geliştirsinler artık.

Genişletmek için tıkla ...

Hê-ll' Alıntı:

Benim tanıdığım abim her şeyi halleder.
- çilekli dondurma

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

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;

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 ~​

Genişletmek için tıkla ...

Domdomgurşunu' Alıntı:

Komutanım çok güzel bir konu olmuş ama birde indirme linki koyarsanız çok sevinirim.

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

Bu kodlama. Başlığı ve içeriği okumadınız sanırım. İmam demiş ki ben yolu gösteririm namazı kılması size ait

Genişletmek için tıkla ...

Domdomgurşunu' Alıntı:

Okudum ama bu konularda cahilim kusura bakma...

Genişletmek için tıkla ...

Maveraün Nehr' Alıntı:

Şahsi fikrim sizin ayıbınızın öğrenmemek olduğu yönünde. Şiddetle tavsiyemdir size; kendinizi geliştirin....

Genişletmek için tıkla ...