[REL] IP Analyzer [REL]

[Fragma]

A few months back, I released quite an advanced IP Analysis tool.

I've now decided to create a new application which is more dedicated on the coding, and easy interface.

The download link to the first release is:
http://adf.ly/RPkG


Simply enter any IP (by default, your IP is shown).

Click "Go", and you can view the following information:

Host
ISP
Organization
Proxy
City
Region
Country

This is only version 1.0.
More features will be added in future releases.

[Tuoseli]

Screenshot and VirusTotal would be nice ;)

[Fragma]

Can't be bothered. If you don't trust, don't download.

[Apex]

I downloaded it and scanned it with Virustotla, results here: http://www.virustotal.com/file-scan/repo...1297368086
It has one detection so Fragma, could you tell us why it shows Trojan.Agent/Gen-MSFake?

[Fragma]

Most likely because it has to download data off a website.

Not entirely sure why it would show as "Trojan.Agent/Gen-MSFake" though...

I can assure you that it is safe to download though...

Here is the actual source code if you're still suspicious:

Form 1 (Click to View)

Code:

Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1



    Public Function GetBetween(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, _
                                Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String

        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wc As Net.WebClient = New Net.WebClient
        Dim ip As String = wc.DownloadString("http://whatismyip.com/automation/n09230945.asp")
        ipTxt2.Text = ip
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim myWebClient As New WebClient()
            Dim myDatabuffer As Byte() = myWebClient.DownloadData _
            ("http://whatismyipaddress.com/ip/" & ipTxt2.Text)
            Dim download As String = Encoding.ASCII.GetString(myDatabuffer)

            Dim HOS As String = GetBetween(download, _
            "Hostname:</th><td>", "</td>", 0)
            Dim ISP As String = GetBetween(download, _
            "ISP:</th><td>", "</td>", 0)
            Dim ORG As String = GetBetween(download, _
            "Organization:</th><td>", "</td>", 0)
            Dim PRO As String = GetBetween(download, _
            "Proxy:</th><td><span class=""red"">", "</span></td>", 0)
            Dim CIT As String = GetBetween(download, _
            "City:</th><td>", "</td>", 0)
            Dim REG As String = GetBetween(download, _
            "Region:</th><td>", "</td>", 0)
            Dim COU As String = GetBetween(download, _
            "Country:</th><td>", "<img", 0)

            hosTxt.Text = HOS
            ispTxt.Text = ISP
            orgTxt.Text = ORG

            If PRO.Contains("None Detected") Then
                proTxt.Text = "None"
            Else
                proTxt.Text = PRO
            End If

            citTxt.Text = CIT
            regTxt.Text = REG
            couTxt.Text = COU

            lbl13.Text = "Ready"
            tim1.Stop()
        Catch ex As Exception
            lbl13.Text = "Failed"
        End Try

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub CopyAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyAllToolStripMenuItem.Click
        Dim copy As String = ipTxt2.Text & vbCrLf & vbCrLf & hosTxt.Text & vbCrLf & vbCrLf & ispTxt.Text & vbCrLf & vbCrLf & orgTxt.Text & vbCrLf & vbCrLf & proTxt.Text & vbCrLf & vbCrLf & citTxt.Text & vbCrLf & vbCrLf & regTxt.Text & vbCrLf & vbCrLf & couTxt.Text
        Clipboard.SetData(DataFormats.Text, copy)
        MessageBox.Show("Analysis Copied")
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class

Form 2 (Click to View)

Code:

Public Class Form2

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.talkgfx.net")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://www.talkgfx.net/private.php?action=send&uid=1&subject=IP%20Analyzer")
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Process.Start("http://www.supportforums.net/private.php?action=send&uid=1996&subject=IP%20Analyzer")
    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Process.Start("http://www.whatismyipaddress.com.")
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("http://www.talkgfx.net")
    End Sub
End Class

[Apex]

Most likely because it has to download data off a website.

Not entirely sure why it would show as "Trojan.Agent/Gen-MSFake" though...

I can assure you that it is safe to download though...

Here is the actual source code if you're still suspicious:

Form 1 (Click to View)

Code:

Imports System.Net
Imports System.Text
Imports System.IO

Public Class Form1



    Public Function GetBetween(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, _
                                Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, lenStart As Integer = strStart.Length
        Dim strResult As String

        strResult = String.Empty
        iPos = strSource.IndexOf(strStart, startPos)
        iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
        If iPos <> -1 AndAlso iEnd <> -1 Then
            strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
        End If
        Return strResult
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wc As Net.WebClient = New Net.WebClient
        Dim ip As String = wc.DownloadString("http://whatismyip.com/automation/n09230945.asp")
        ipTxt2.Text = ip
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim myWebClient As New WebClient()
            Dim myDatabuffer As Byte() = myWebClient.DownloadData _
            ("http://whatismyipaddress.com/ip/" & ipTxt2.Text)
            Dim download As String = Encoding.ASCII.GetString(myDatabuffer)

            Dim HOS As String = GetBetween(download, _
            "Hostname:</th><td>", "</td>", 0)
            Dim ISP As String = GetBetween(download, _
            "ISP:</th><td>", "</td>", 0)
            Dim ORG As String = GetBetween(download, _
            "Organization:</th><td>", "</td>", 0)
            Dim PRO As String = GetBetween(download, _
            "Proxy:</th><td><span class=""red"">", "</span></td>", 0)
            Dim CIT As String = GetBetween(download, _
            "City:</th><td>", "</td>", 0)
            Dim REG As String = GetBetween(download, _
            "Region:</th><td>", "</td>", 0)
            Dim COU As String = GetBetween(download, _
            "Country:</th><td>", "<img", 0)

            hosTxt.Text = HOS
            ispTxt.Text = ISP
            orgTxt.Text = ORG

            If PRO.Contains("None Detected") Then
                proTxt.Text = "None"
            Else
                proTxt.Text = PRO
            End If

            citTxt.Text = CIT
            regTxt.Text = REG
            couTxt.Text = COU

            lbl13.Text = "Ready"
            tim1.Stop()
        Catch ex As Exception
            lbl13.Text = "Failed"
        End Try

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub CopyAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyAllToolStripMenuItem.Click
        Dim copy As String = ipTxt2.Text & vbCrLf & vbCrLf & hosTxt.Text & vbCrLf & vbCrLf & ispTxt.Text & vbCrLf & vbCrLf & orgTxt.Text & vbCrLf & vbCrLf & proTxt.Text & vbCrLf & vbCrLf & citTxt.Text & vbCrLf & vbCrLf & regTxt.Text & vbCrLf & vbCrLf & couTxt.Text
        Clipboard.SetData(DataFormats.Text, copy)
        MessageBox.Show("Analysis Copied")
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class

Form 2 (Click to View)

Code:

Public Class Form2

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://www.talkgfx.net")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://www.talkgfx.net/private.php?action=send&uid=1&subject=IP%20Analyzer")
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Process.Start("http://www.supportforums.net/private.php?action=send&uid=1996&subject=IP%20Analyzer")
    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Process.Start("http://www.whatismyipaddress.com.")
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("http://www.talkgfx.net")
    End Sub
End Class

Thanks for this as i just wanted to be sure. I never expected an infected link from you but it's better to be sure than infected It's a nice share indeed!

~J4mmy