Nasıl Yapılır? Basit Anlatım
Visual Basic ile local port scanner uygulaması geliştirmek oldukça basit bir işlemdir. Aşağıdaki adımları takip ederek kolayca bir uygulama oluşturabilirsiniz:
Visual Studio’u açın ve “Windows Forms App (.NET Framework)” projesi oluşturun.
Form’a bir TextBox nesnesi ekleyin ve adını “txtIP” olarak değiştirin. Bu TextBox’a taranacak IP adresini gireceğiz.
Bir ListBox nesnesi ekleyin ve adını “lstPorts” olarak değiştirin. Bu ListBox’a açık port numaralarını yazdıracağız.
Form’a bir Button nesnesi ekleyin ve adını “btnScan” olarak değiştirin. Bu düğmeye tıklandığında tarama işlemi başlayacak.
btnScan_Click olayını oluşturmak için kodunuza aşağıdaki satırları ekleyin:
vbnet
Private Sub btnScan_Click(sender As Object, e As EventArgs) Handles btnScan.Click‘ Tarayacak IP adresini al
Dim ipAddress As String = txtIP.Text.Trim()
' Port taraması yapacak kod For port As Integer = 1 To 65535 Dim tcpClient As New TcpClient() Try tcpClient.Connect(ipAddress, port) ' Eğer bağlantı başarılıysa, açık bir port olduğunu ListBox'a ekle lstPorts.Items.Add(String.Format("Port {0} is open", port)) tcpClient.Close() Catch ex As SocketException ' Bağlantı başarısız olursa, bir sonraki porta geç End Try Next
End Sub
Bu kod, txtIP TextBox’ındaki IP adresini alır ve ardından 1’den 65535’e kadar olan tüm portları dener. Her açık port için, ListBox’a “Port X is open” şeklinde bir öğe ekler.
Uygulamanızı başlatın ve bir IP adresi girin. btnScan düğmesine tıkladığınızda, uygulama IP adresini taramaya başlayacak ve ListBox’a açık portları yazdıracaktır.
Bu örnek, sadece bir IP adresi için tarama yapar ve tüm portları denediği için biraz yavaş olabilir. Daha hızlı tarama yapmak için, ThreadPool veya Task Parallel Library (TPL) gibi çoklu iş parçacığı teknolojileri kullanılabilir. Ayrıca, belirli bir port aralığına tarama yapmak için başlangıç ve bitiş port numaralarını kullanarak kodu değiştirebilirsiniz.