Visual Basic kullanarak bir Local Port Scanner uygulaması geliştirebilirsiniz. Bu uygulama sayesinde, yerel ağınızdaki cihazların hangi portlara açık olduğunu tespit edebilirsiniz. Aşağıdaki adımları takip ederek Local Port Scanner uygulamasını geliştirebilirsiniz:
Yeni bir Visual Basic projesi oluşturun.
Form’a iki Label, iki TextBox ve bir Button ekleyin.
Bir Label’a “IP Adresi” yazın ve Text özelliğini “IP” olarak ayarlayın. Diğer Label’a “Port Aralığı” yazın ve Text özelliğini “Port” olarak ayarlayın.
İlk TextBox’a “ipTextBox” adını verin ve diğerine “portTextBox” adını verin.
Button’a “Scan” yazın.
Button’a bir Click event ekleyin ve aşağıdaki kodu ekleyin:
Private Sub scanButton_Click(sender As Object, e As EventArgs) Handles scanButton.Click Dim ipAddress As String = ipTextBox.Text Dim portRange As String = portTextBox.Text Dim ports() As String = portRange.Split(“-“) For port As Integer = Integer.Parse(ports(0)) To Integer.Parse(ports(1)) Dim client As New TcpClient() Try client.Connect(ipAddress, port) resultsTextBox.AppendText(“Port ” & port & ” is open.” & vbCrLf) Catch ex As SocketException ‘ Port is closed or unavailable End Try client.Close() Next End Sub
Bu kod, Scan butonuna tıklandığında, kullanıcının girdiği IP adresine ve port aralığına göre bir döngü oluşturacak ve her port için bir TcpClient nesnesi yaratacaktır. Eğer port açıksa, sonuçlar TextBox’ına “Port X is open.” şeklinde bir mesaj ekleyecektir. Açık olmayan portlar için bir hata göstermeyecektir.
Bu şekilde basit bir Local Port Scanner uygulaması oluşturabilirsiniz. Ancak, bu tür bir uygulama kullanırken ağda bulunan cihazların izni olmadan port taraması yapmak, bir güvenlik riski oluşturabilir. Bu nedenle, bu tür bir uygulama kullanmadan önce, yerel ağınızdaki cihazların sahibi veya yöneticisiyle iletişim kurarak izin almanız önemlidir.