Melakukan perburuan ASP.Net hari ini dapat dianggap sebagai perkenalan saya. Idenya sangat sederhana, tujuan utamanya adalah untuk mengidentifikasi Banner yang dikembalikan oleh host jarak jauh dan menentukan server host jarak jauh. Ini mungkin tidak akurat karena administrator yang berkualifikasi dapat mengubah spanduk.
Kodenya adalah sebagai berikut (ditemukan dari perburuan web saya, menggunakan VB.Net)
Dim swWriter As StreamWriter
'Digunakan untuk mengirimkan data ke aliran data infrastruktur jaringan
Redupkan nsStream Sebagai NetworkStream
'Buat aliran data berbasis jaringan untuk pengiriman data
Redupkan tcpClient2 Sebagai TcpClient
'Melaluinya, permintaan koneksi TCP dibuat ke host jarak jauh
Redupkan sHostName Sebagai String
Redupkan srRead Sebagai StreamReader
'Baca data dari aliran data infrastruktur jaringan
'Perburuan layanan HTTP
Jika TcpConnect(ZSIP, 80) = "CG" Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: tidak diketahui"
Mencoba
'tcpClient = TcpClient baru (Alamat IP, Pelabuhan)
tcpClient2 = TcpClient baru(ZSIP.ToString(), 80)
tcpClient2.ReceiveTimeout = 1000000
tcpClient2.SendTimeout = 1000000
'Buat permintaan koneksi TCP untuk port 8000 dari host jarak jauh
nsStream = tcpClient2.GetStream()
'Terapkan dan dapatkan aliran data dasar jaringan untuk transmisi data
swWriter = Penulis Aliran Baru(nsStream)
swWriter.WriteLine("Dapatkan /index.htm HTTP/1.1")
swWriter.WriteLine("Host:" & IP.Teks)
swWriter.WriteLine("Terima:*/*")
swWriter.WriteLine("Referensi:")
swWriter.WriteLine()
'Segarkan data dalam aliran data saat ini
swWriter.Flush()
srRead = StreamReader Baru (nsStream, Encoding.Default)
'Inisialisasi instance StreamReader dengan aliran data dasar jaringan yang diperoleh
Redupkan L Sebagai Integer = 0
Lakukan Selagi Tidak srRead.Peek = -1 Dan L < 20
StrHttp = StrHttp & srRead.ReadLine()
L = L + 1
Lingkaran
Jika InStr(StrHttp, "IIS") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: versi IIS tidak diketahui"
SystemFW = "WindowsNT/2000/XP/2003"
Akhiri Jika
Jika InStr(StrHttp, "Apache") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: versi Apache tidak diketahui"
Akhiri Jika
Jika InStr(StrHttp, "Netscape-Enterprise") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: versi Netscape-Enterprise tidak diketahui"
Akhiri Jika
Jika InStr(StrHttp, "Microsoft-IIS/5.0") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: IIS 5.0"
SystemFW = "Windows2000"
Akhiri Jika
Jika InStr(StrHttp, "Microsoft-IIS/5.1") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: IIS 5.1"
SystemFW = "Windows 2000/XP"
Akhiri Jika
Jika InStr(StrHttp, "Microsoft-IIS/6.0") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: IIS 6.0"
SystemFW = "Windows 2003"
Akhiri Jika
Jika InStr(StrHttp, "Apache/2") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 2.x"
Akhiri Jika
Jika InStr(StrHttp, "Apache/2.0.54") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 2.0.54"
Akhiri Jika
Jika InStr(StrHttp, "Apache/2.0.52") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 2.0.52"
Akhiri Jika
Jika InStr(StrHttp, "Apache/2.1.6") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 2.1.6"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.2") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.x"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.20") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.20"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.23") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.23"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.26") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.26"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.27") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.27"
Akhiri Jika
Jika InStr(StrHttp, "Apache/1.3.33") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Apache 1.3.33"
Akhiri Jika
Jika InStr(StrHttp, "Netscape-Enterprise/4.1") > 0 Lalu
OppHTTP.Text = "Layanan HTTP telah dimulai! Jenis perangkat lunak layanan: Netscape-Enterprise 4.1"
Akhiri Jika
Jika InStr(StrHttp, "Unix") > 0 Lalu
SystemFW = "Sistem mirip Unix/Linux"
Akhiri Jika
Menangkap
End Try
diekstraksi, beberapa variabel tidak ditentukan. Anda dapat mengetahuinya sendiri.
ZSIP: IP asli dianalisis