Adim Adim Subnet Prot Tarayici Yapimi
Merak Edenlere Çok Basit bir sekilde Kullanisli Bir Port Tarayici Yapimi ni adim adim inceleyecegiz. Bu Arada En bastan Anlatmiyorum(Algoritma Nedir, Vb nin Arabirimini de tanitmayacagim istek olursa ileri de Anlatirim) bu konuyla ilgilenen Zaten VB\’nin Arabirimini Anlamistir. Problem Algoritmayi Düzgün Kurabilmekte. Onuda Kodlarla birlikta Anlasilir Yazacagim. Dikkat Ederseniz Algoritma mantigini da anlarsiniz
Vb \’yi açinca Karsiniza Gelen Menüden Standart Exe yi Seçin
bu Bize Bos Bir Form Açacaktir. [Form=Programin Artaalani da diyebiliriz.]
Formu açtikdan Sonra Sol Tarafaki "General" Araç çubugundan 4 tane Textbox\’u yan yana ekleyecegiz. Ekledigimiz Textbox larin boyutunu 3 karakter alacak kadar küçük tutmakta fayda görüyorum.
Daha Sonra Sol Taraftaki Properties Menüsünden Textboxlarin Adlarini ip1, ip2,ip3,ip4 olarak Degistirecegiz.
(Text1 yazan beyaz kutucuga 1 kere tiklatip sag properties menüsünden Name= text1 yazan yerin karsiligini(Text1) kismini "ip1" olarak degistirin daha sonra her nesneye 1 er kere tiklayarak bunu bütün textboxlara yapin)
Bunu yapmamizin sebebi
212.111.199.01 \’gibi girecegimiz ip numaralarini 4 guruba "." isaretleriyle ayiracak olmamiz.
Suna Benzemesi Lazim Yani
Yukaridaki Islemi Yaptiysaniz Sol Taraftaki Menüden Iki Tane de Command Button Ekleyin. Textbox \’u eklediginiz Yerin Hemen Altindaki dügmeye basin
Ve Bunlarin Sag Menüden Caption\’larini[Baslik, Manset Anlamina Gelir] Command1 inki ni "Basla" Yapiyoruz Command2\’ninkini Ise "Dur" Olarak Ayarliyoruz.
Ardindan Bir Tane\’de Listbox Koyuyoruz.
Ve Standart menüden Project Basliginin Altindaki Components e tikliyoruz Dileyen Ctrl + T ile de ayni seyi yapmis olur.
Karsimiza Çikan Menüden Microsoft Winsock Control yazan Satiri isaretliyoruz.
Soldaki Menüye Winsock Kontrolünün Eklenmis Olmasi Lazim
Vb\’ De Bir Çok Sey kontroller Halindedir. Mesela Yapacaginiz Prg Internet ile ilgiliyse Winsock Kontrolünü Yada Inet kontrolünü Kullanirsiniz.
Yada Müzik ile ilgiliyse Mediaplayer kontrolunü, FLash Eklemek Istiyorsaniz Gene flash Kontrolünü Kullanirsiniz.
Ekledigimiz Winsock Kontrollerinden 4 Tane Formunuza Çizin, Textbox Çizdiginiz gibi.
ve F5 tusuna Basin(çalistirin). gördügünüz gibi Winsock Kontrolü Program Çalistigi Zaman görünmüyor. Bir Çok Kontrol Sadece Uygulama Amaçlidir. Dolayisiyla Görünmesi Gerekmez veya görünmez.
Gene Sol taraftaki Menüden 4 Tane Timer nesnesini Formunuza Çizin.
Dedemin Saatine Benzer Bir Simgesi Var. Bu Nesne de form üzerinde Görülür ama çalistirildigi Zaman Görülmez.
Form\’umuz Asagidaki Sekle Gelince kodumuzu Asagidan Kopyalayip
Yapistiralim
Arkadaslar Yoruldum Hatta Yazmaktan Sikildim Anlamayan Olursa Cevap Yazarim.
Formun Bos bir Yerine Iki kere tiklayarak Code Sayfasini Açin
Yazili Olan Her seyi Silin Ve Asagidaki Kodu Kopyala Yapistir Yapin.
Belki Forum Da birsey anlamazsiniz ama Vb Ye Yapistirdiginizda Renklendirme Yapacaktir Vb ve Açiklayici Yazilar Biraz Fayda Saglar.
\’port ve Delay( Gecikme Süresini Sayi olarak Tanimliyoruz
Dim delay, port As Integer
Private Sub Command1_Click()
\’ Basla dügmesine Basilinca Yapilacaklari yazioruz
List1.Clear \’ Listeyi Temizle
Timer1.Interval = delay \’ Tüm Timerlarin Zamanini Delay Degerine Zamanla
Timer2.Interval = delay
Timer3.Interval = delay
Timer4.Interval = delay
Timer1.Enabled = True \’ Bütün Timerlari aç
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True
End Sub
Private Sub Command2_Click()
\’Dur Dügmesine Basinca
Timer1.Enabled = False \’ Bütün Timer Lari Kapat
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub
Private Sub Form_Load()
\’Form Açilinca
port = 80 \’ Tarancak Portu 80 olarak Ayarladik istersek 21 yazip ftp , 139 yazip share arayabiliriz
delay = 600 \’ Bekleme(Gecikme) süresini 600 Milisaniye ye ayarladik
End Sub
Private Sub Winsock1_Close()
\’ Winsock1 Kapanirsa Winsock u Kapat Mantiksiz Gelebilir Ama Laçkalasmayi Önlüyor
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
\’Winsock1 Eger Istedigimiz Ip nin Istedigimiz Portuna Balanirsa
List1.AddItem Winsock1.RemoteHostIP \’Listeye Ekle
Winsock1.Close \’ Winsock1 i kapat
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
\’ Winsock1 Hata Verirse
Winsock1.Close \’Winsock u Kapat
End Sub
Private Sub Winsock2_Close()
Winsock2.Close \’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
End Sub
Private Sub Winsock2_Connect()
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
List1.AddItem Winsock2.RemoteHostIP
Winsock2.Close
End Sub
Private Sub Winsock2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
Winsock2.Close
End Sub
Private Sub Winsock3_Close()
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
Winsock3.Close
End Sub
Private Sub Winsock3_Connect()
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
List1.AddItem Winsock3.RemoteHostIP
Winsock3.Close
End Sub
Private Sub Winsock3_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
Winsock3.Close
End Sub
Private Sub Winsock4_Close()
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
Winsock4.Close
End Sub
Private Sub Winsock4_Connect()
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
List1.AddItem Winsock4.RemoteHostIP
End Sub
Private Sub Winsock4_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
\’ Diger Winsockda Açiklamasini Yapmistim 3 kere Daha yazmaktan Üsendim
Winsock4.Close
End Sub
Private Sub Timer1_Timer()
\’ Gecikme Olarak Verdigimiz Süre Dolunca 600 Mili Saniyede bir bu isi yapacak yani
Winsock1.Close \’ Winsock1 i kapat
Winsock1.Connect getip, port \’ Winsock1 e Bir Sonraki Ip Adresini al Ve Port olarak tanimladigimiz Prottan Bagla
End Sub
Private Sub Timer2_Timer()
\’Diger timer La Ayni Isi Yapiyor
Winsock2.Close
Winsock2.Connect getip, port
End Sub
Private Sub Timer3_Timer()
\’Diger timer La Ayni Isi Yapiyor
Winsock3.Close
Winsock3.Connect getip, port
End Sub
Private Sub Timer4_Timer()
\’Diger timer La Ayni Isi Yapiyor
Winsock4.Close
Winsock4.Connect getip, port
End Sub
Public Function getip() As String
\’ Text Kutularindan Aldigi 255 255 225 222 gibi degerleri arasina nokta koyarak Birlestiriyor
\’ 212.212.12.1 Gibi yapiyor
getip = ip1.Text & "." & ip2.Text & "." & ip3.Text & "." & ip4.Text
\’ Eger ip4 deki sayi 255 den küçükse 1 ekliyor
If ip4.Text < 255 Then
ip4.Text = ip4.Text + 1
\’ip4 255 küçük Degilse ip4 deki yaziyi 0 yapip
ElseIf ip4.Text = 255 Then
ip4.Text = 0
\’ip3 255 küçük ise ip3 e 1 ekliyor
If ip3.Text < 255 Then
ip3.Text = ip3.Text + 1
\’ip3 255 ise ip3 ü 0 yapiyor
ElseIf ip3.Text = 255 Then
ip3.Text = 0
\’ Eger ip2 255 den küçükse ip2 ye 1 ekliyor
If ip2.Text < 255 Then
ip2.Text = ip2.Text + 1
\’Degilse ip2 nin degerini 0 yapiyor
ElseIf ip2.Text = 255 Then
ip2.Text = 0
End If
End If
End If
End Function
Subnet Port Tarayicinin Vb De Hazirlanmis (Derlenmemis) Kaynak Kodu
SPAN style=font-SIZE: 12pt; font-FAMILY: Times New Roman ">Abuzer Subnet Port Scanner /SPAN
Bu Arada Subnet port Scanner =
192.0.0.1 Den Baslayarak
192.255.255.255 ye kadar olan istediginiz portu taratabileceginiz bir tarayici türüdür. Bununla Subseven, gibi trojan Portlarini, Web Serverlari, Mail Serverlari, Pop3 Serverlari gibi bir çok seyi taraya bilirsiniz
