Dnc Lok Googler
-
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, "&", 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
-
ya ben malım yada program karışık dicektim baktım ben malmışım.
indirdik bari yorum atayım eline sağlık hocam :)
-
neyi araycaz bunla ? onu anlayamadım
anladım yazdığımız kelimelerin hangi sitelerde olduğu çıkartıyor.
-
Eline sağlık hocam
-
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ı? -
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, "&", 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..