Private Sub Login_Click(ByVal sender As Object, ByVal e As EventArgs)
    If (String.IsNullOrEmpty(Me.Username.Text) Or String.IsNullOrEmpty(Me.Password.Text)) Then
        Interaction.MsgBox("You must enter valid details.", MsgBoxStyle.Exclamation, "Error")
    ElseIf (Me.Username.Text.Contains("'") Or Me.Password.Text.Contains("'")) Then
        Interaction.MsgBox("Nice try.", MsgBoxStyle.Exclamation, "Error")
    Else
        Program.Username = Me.Username.Text
        Program.Password = Hashes.HashMD5(Me.Password.Text)
        Program.HWID = Me.T.HardwareID
        Control.CheckForIllegalCrossThreadCalls = False
        New Thread(New ThreadStart(AddressOf Me.DoLogin)).Start
    End If
End Sub




Private Sub DoScanSites()
    Me.ToolStrip1.Visible = False
    Me.ScanProgress.Maximum = Me.ToCrawl.Items.Count
    Dim num2 As Integer = (Me.ToCrawl.Items.Count - 1)
    Dim i As Integer = 0
    Do While (i <= num2)
        Dim text As String = Me.ToCrawl.Items.Item(i).SubItems.Item(0).Text
        Me.CurrentWebsite.Text = ("Scanning Website: " & [text])
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create([text]), HttpWebRequest)
        Try
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim reader As New StreamReader(response.GetResponseStream)
            Dim str3 As String = Me.CheckIfSqli(reader.ReadToEnd.ToUpper)
            If (Not str3 Is Nothing) Then
                Me.ToCrawl.Items.Item(i).SubItems.Add(str3)
                Me.ToCrawl.Items.Item(i).BackColor = Color.Red
                Me.ToCrawl.Items.Item(i).ForeColor = Color.Black
                Me.ToCrawl.Items.Item(i).ImageIndex = 7
                Dim item As New ListViewItem(Me.ToCrawl.Items.Item(i).SubItems.Item(0).Text)
                item.SubItems.Add(Me.ToCrawl.Items.Item(i).SubItems.Item(1).Text)
                Me.VulnerableSites.Items.Add(item)
                Me.ToCrawl.AutoResizeColumn(1, ColumnHeaderAutoResizeStyle.ColumnContent)
                Me.VulnerableSites.AutoResizeColumn(1, ColumnHeaderAutoResizeStyle.ColumnContent)
            Else
                Me.ToCrawl.Items.Item(i).BackColor = Color.Green
                Me.ToCrawl.Items.Item(i).ImageIndex = 6
                Me.ToCrawl.Items.Item(i).SubItems.Add("Clear")
            End If
            response.Close
            reader.Close
        Catch exception1 As WebException
            ProjectData.SetProjectError(exception1)
            Dim exception As WebException = exception1
            Try
                Dim str5 As String = Me.CheckIfSqli(New StreamReader(exception.Response.GetResponseStream).ReadToEnd.ToUpper)
                If (Not str5 Is Nothing) Then
                    Me.ToCrawl.Items.Item(i).SubItems.Add(str5)
                    Me.ToCrawl.Items.Item(i).BackColor = Color.FromArgb(&HFF, &H98, &H95)
                    Me.ToCrawl.Items.Item(i).ImageIndex = 7
                    Dim item2 As New ListViewItem(Me.ToCrawl.Items.Item(i).SubItems.Item(0).Text)
                    item2.SubItems.Add(Me.ToCrawl.Items.Item(i).SubItems.Item(1).Text)
                    Me.VulnerableSites.Items.Add(item2)
                    Me.ToCrawl.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.ColumnContent)
                    Me.VulnerableSites.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.ColumnContent)
                Else
                    Me.ToCrawl.Items.Item(i).BackColor = Color.FromArgb(&HFF, &H98, &H95)
                    Me.ToCrawl.Items.Item(i).SubItems.Add("Not sure that is vulnerable.")
                    Me.ToCrawl.Items.Item(i).ImageIndex = 5
                    Dim item3 As New ListViewItem(Me.ToCrawl.Items.Item(i).SubItems.Item(0).Text)
                    item3.SubItems.Add(Me.ToCrawl.Items.Item(i).SubItems.Item(1).Text)
                    Me.VulnerableSites.Items.Add(item3)
                    Me.ToCrawl.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.ColumnContent)
                    Me.VulnerableSites.AutoResizeColumn(2, ColumnHeaderAutoResizeStyle.ColumnContent)
                End If
            Catch exception3 As Exception
                ProjectData.SetProjectError(exception3)
                Dim exception2 As Exception = exception3
                Me.ToCrawl.Items.Item(i).ImageIndex = 6
                Me.ToCrawl.Items.Item(i).SubItems.Add("Clear")
                ProjectData.ClearProjectError
            End Try
            ProjectData.ClearProjectError
        End Try
        Dim scanProgress As SQLProgressBar = Me.ScanProgress
        scanProgress.Value += 1
        i += 1
    Loop
    Me.CurrentWebsite.Text = "Scanning Website:"
    Me.ToolStrip1.Visible = True
    Me.ScanProgress.Value = 0
End Sub