[Release] Advanced Port Scanner + Source-Code

Hall�chen zu meinem 2ten Release. Heute ein Portscanne.

Wie funktioniert er?

1.) Tool �ffnen.
2.) Port eingeben.
3.) auf Port Checken klicken.
4.) Alles andere m�sst ihr selber wissen.

Screen:
[Only registered and activated users can see links. Click Here To Register...]

Virustotal.com

Quote:

[Only registered and activated users can see links. Click Here To Register...]

Source:

Quote:

Imports System.Net.Sockets
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Hide()
Button4.Hide()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
TextBox1.Text = TextBox1.Text + 1
Dim Range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)

If Range.Connected = True Then
ListBox1.Items.Add(TextBox1.Text & " Port is Open")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

End If
Catch ex As Exception
ListBox1.Items.Add(TextBox1.Text & " Port is Closed")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True

End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Application.Exit()

End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Show()
Button4.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Hide()
Button4.Hide()

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub
End Class

Download im Anhang!