Dnc Lok Googler

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    dejnclea
    dejnclea's avatar
    Kayıt Tarihi: 28/Haziran/2010
    Erkek

    Selamlar arkadaşlar, malumunuz Googler tarzı gereçler bilinçli kullanımlarla pek çok işe yarıyorlar. Bu sıralar Heartbleed pek gündemde olduğu için Heartbleed'e yönelik bir googler yaptım, önceki Googlerlarımda bulunan ordan kes burdan kes ucuna bunu ekle falanlar filanlar bunda yok. Yalnızca belirlediğiniz arama şeysisini arıyor ve size getiriyor.

     

    kendisi burada;

    http://www.dosya.tc/server28/XWcMug/DNcLoK.rar.html

    önceden sunduğum perl tabanlı scanner da şurada

     

    http://www.tahribat.com/Forum-Sitelistten-Heart-Bleed-Taramasi-Perl-193186/ 

     

    hayırlı uğurlu olsun.

     

    Daha önce başıma geldi, güvenmeyenler, virüsten şüphelenenler olabilir, yok canım öyle bişey. al bak kaynak kodları da aşağıda

     

    Imports System.Net
    
    
    Public Class Form1
    
        Dim vv As Integer
    
        Sub ara()
    
    
            On Error Resume Next
    
            Dim aa As New WebClient
    
    
    
            Dim adres1, zb As String
    
    
            adres1 = "https://www.google.co.uk/search?q=" & TextBox4.Text & "&start=" & sayfa.Text
    
            Dim ff As String = aa.DownloadString(adres1)
    
            If ff = "" Then
                MessageBox.Show("Google yoruldu :( :( :( daha sonra tekrar dene.", ":(")
    
                sayfa.Text = 0
    
            End If
    
    
    
            'büyük if
    
            If ff <> zb Then
    
    
                ff = Replace(ff, "&amp", vbCrLf)
                ff = Replace(ff, "%3F", "?")
                ff = Replace(ff, "%3D", "=")
    
                ff = Replace(ff, "url?q=", vbCrLf & "#")
                ff = Replace(ff, "https://", "libilibilibis")
                ff = Replace(ff, "http://", "libilibilibi")
    
    
    
                Dim siteler() As String = ff.Split(TextBox6.Text)
    
                For Each ss As String In siteler
    
                    If InStr(ss, "#libilibilibi") Then
                        If InStr(ss, ".googleusercontent") = 0 Then
                            ss = Replace(ss, "#libilibilibis", "https://")
                            ss = Replace(ss, "#libilibilibi", "http://")
                            If InStr(TextBox5.Text, ss) = 0 Then
    
                                TextBox5.Text = TextBox5.Text & ss
                                Label2.Text = Label2.Text + 1
    
                            End If
    
                        End If
                    End If
    
    
                Next
    
    
                sayfa.Text = sayfa.Text + 10
    
    
    
                TextBox5.Refresh()
                sayfa.Refresh()
                Me.Refresh()
    
                vv = vv + 10
    
                If vv - 20 < Label2.Text Then
                    ara()
    
                End If
    
                If vv > Label2.Text Then
                    Beep()
                End If
    
    
            End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            ara()
    
        End Sub
    
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    
        End Sub
    
        Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
            Label3.Visible = True
            Label3.Text = "kopyalar"
    
        End Sub
    
        Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            Label3.Visible = False
    
        End Sub
    
        Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
    
        End Sub
    
        Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
            Label3.Visible = True
    
            Label3.Text = "bulunan site sayısı"
    
        End Sub
    
        Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
            Label3.Visible = True
    
            Label3.Text = "aramaya inanır"
    
        End Sub
    
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
        End Sub
    
        Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
            Label3.Visible = True
    
            Label3.Text = "sil baştan başlamak gerek bazen"
    
        End Sub
    
        Private Sub TextBox4_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.MouseEnter
    
        End Sub
    
        Private Sub TextBox4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox4.MouseMove
            Label3.Visible = True
    
            Label3.Text = "ne arıyim aabime?"
    
    
        End Sub
    
        Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
    
        End Sub
    
        Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
            MessageBox.Show("DeJ-N-cLea hayırlı aramalar diler. xxx kib sçs", "<3 <3 <3 <3 <3 <3 <3")
    
    
        End Sub
    End Class
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Piratebay
    Piratebay's avatar
    Kayıt Tarihi: 17/Nisan/2012
    Erkek

    ya ben malım yada program karışık dicektim baktım ben malmışım.

    indirdik bari yorum atayım eline sağlık hocam :)


    Japon yolları aşar Alman'ın babaannesi kaşar... https://thepiratebay.org/
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Herbokolog
    KaptaN
    KaptaN's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 30/Ağustos/2005
    Erkek

    neyi araycaz bunla ? onu anlayamadım

     

    anladım yazdığımız kelimelerin hangi sitelerde olduğu  çıkartıyor.

  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    banneduser
    banneduser's avatar
    Kayıt Tarihi: 15/Nisan/2013
    Erkek

    Eline sağlık hocam


    ride or die..
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    JiggSaw
    JiggSaw's avatar
    Kayıt Tarihi: 01/Şubat/2012
    Erkek

    Hacım ellerıne saglık :)

    On numareoo beşş yıldısss ...

    Bir de bunun Fotoğraf üzerıne olanı olsa , mesela KALP aratıcaz minik göruntulerle KALP lerin oldugu (Resım) linklerı verecek ...

    Mumkunmudur kı?


    İmza YOK !!!
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ugurben
    ugurben's avatar
    Kayıt Tarihi: 02/Nisan/2003
    Erkek
    dejnclea bunu yazdı

    Selamlar arkadaşlar, malumunuz Googler tarzı gereçler bilinçli kullanımlarla pek çok işe yarıyorlar. Bu sıralar Heartbleed pek gündemde olduğu için Heartbleed'e yönelik bir googler yaptım, önceki Googlerlarımda bulunan ordan kes burdan kes ucuna bunu ekle falanlar filanlar bunda yok. Yalnızca belirlediğiniz arama şeysisini arıyor ve size getiriyor.

     

    kendisi burada;

    http://www.dosya.tc/server28/XWcMug/DNcLoK.rar.html

    önceden sunduğum perl tabanlı scanner da şurada

     

    http://www.tahribat.com/Forum-Sitelistten-Heart-Bleed-Taramasi-Perl-193186/ 

     

    hayırlı uğurlu olsun.

     

    Daha önce başıma geldi, güvenmeyenler, virüsten şüphelenenler olabilir, yok canım öyle bişey. al bak kaynak kodları da aşağıda

     

    Imports System.Net
    
    
    Public Class Form1
    
        Dim vv As Integer
    
        Sub ara()
    
    
            On Error Resume Next
    
            Dim aa As New WebClient
    
    
    
            Dim adres1, zb As String
    
    
            adres1 = "https://www.google.co.uk/search?q=" & TextBox4.Text & "&start=" & sayfa.Text
    
            Dim ff As String = aa.DownloadString(adres1)
    
            If ff = "" Then
                MessageBox.Show("Google yoruldu :( :( :( daha sonra tekrar dene.", ":(")
    
                sayfa.Text = 0
    
            End If
    
    
    
            'büyük if
    
            If ff <> zb Then
    
    
                ff = Replace(ff, "&amp", vbCrLf)
                ff = Replace(ff, "%3F", "?")
                ff = Replace(ff, "%3D", "=")
    
                ff = Replace(ff, "url?q=", vbCrLf & "#")
                ff = Replace(ff, "https://", "libilibilibis")
                ff = Replace(ff, "http://", "libilibilibi")
    
    
    
                Dim siteler() As String = ff.Split(TextBox6.Text)
    
                For Each ss As String In siteler
    
                    If InStr(ss, "#libilibilibi") Then
                        If InStr(ss, ".googleusercontent") = 0 Then
                            ss = Replace(ss, "#libilibilibis", "https://")
                            ss = Replace(ss, "#libilibilibi", "http://")
                            If InStr(TextBox5.Text, ss) = 0 Then
    
                                TextBox5.Text = TextBox5.Text & ss
                                Label2.Text = Label2.Text + 1
    
                            End If
    
                        End If
                    End If
    
    
                Next
    
    
                sayfa.Text = sayfa.Text + 10
    
    
    
                TextBox5.Refresh()
                sayfa.Refresh()
                Me.Refresh()
    
                vv = vv + 10
    
                If vv - 20 < Label2.Text Then
                    ara()
    
                End If
    
                If vv > Label2.Text Then
                    Beep()
                End If
    
    
            End If
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            ara()
    
        End Sub
    
        Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    
        End Sub
    
        Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
            Label3.Visible = True
            Label3.Text = "kopyalar"
    
        End Sub
    
        Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            Label3.Visible = False
    
        End Sub
    
        Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
    
        End Sub
    
        Private Sub Label2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseMove
            Label3.Visible = True
    
            Label3.Text = "bulunan site sayısı"
    
        End Sub
    
        Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
            Label3.Visible = True
    
            Label3.Text = "aramaya inanır"
    
        End Sub
    
        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
        End Sub
    
        Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
            Label3.Visible = True
    
            Label3.Text = "sil baştan başlamak gerek bazen"
    
        End Sub
    
        Private Sub TextBox4_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.MouseEnter
    
        End Sub
    
        Private Sub TextBox4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox4.MouseMove
            Label3.Visible = True
    
            Label3.Text = "ne arıyim aabime?"
    
    
        End Sub
    
        Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
    
        End Sub
    
        Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
            MessageBox.Show("DeJ-N-cLea hayırlı aramalar diler. xxx kib sçs", "

    visual basic mi bu ? mukemmel..

     

     


    sevdigim 3 turk atasozu.. 1- besle kargayı atsın iftirayı, 2- yayılma sivril ( bu bir çin atasozudur), 3- luzumsuz eşek sucuk olur ( buda bir çin atasozudur ) ve son olarak, 4- ak akçe karagün kara akçe ak gün içindir...
Toplam Hit: 1854 Toplam Mesaj: 6