Die heutige ASP.Net-Jagd kann als meine Einführung angesehen werden. Die Idee ist sehr einfach. Der Hauptzweck besteht darin, das vom Remote-Host zurückgegebene Banner zu identifizieren und den Remote-Host-Server zu bestimmen. Dies ist möglicherweise nicht korrekt, da qualifizierte Administratoren das Banner möglicherweise ändern.
Der Code lautet wie folgt (gefunden bei meiner Websuche mit VB.Net):
Dim swWriter As StreamWriter
„Wird verwendet, um Daten an den Datenfluss der Netzwerkinfrastruktur zu übertragen.“
Dimmen Sie nsStream als NetworkStream
„Erstellen Sie einen netzwerkbasierten Datenfluss zum Senden von Daten.“
Dimmen Sie tcpClient2 als TcpClient
„Dadurch wird eine TCP-Verbindungsanforderung an den Remote-Host gestellt
Dimmen Sie sHostName als String
Dimmen Sie srRead als StreamReader
'Daten aus dem Datenstrom der Netzwerkinfrastruktur lesen
'HTTP-Dienstsuche
Wenn TcpConnect(ZSIP, 80) = „CG“, dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: unbekannt“
Versuchen
'tcpClient = Neuer TcpClient(IPAddress, Port)
tcpClient2 = Neuer TcpClient(ZSIP.ToString(), 80)
tcpClient2.ReceiveTimeout = 1000000
tcpClient2.SendTimeout = 1000000
„Stellen Sie eine TCP-Verbindungsanfrage für Port 8000 des Remote-Hosts
nsStream = tcpClient2.GetStream()
„Wenden Sie den grundlegenden Netzwerkdatenfluss für die Datenübertragung an und erhalten Sie ihn.“
swWriter = Neuer StreamWriter(nsStream)
swWriter.WriteLine("Get /index.htm HTTP/1.1")
swWriter.WriteLine("Host:" & IP.Text)
swWriter.WriteLine("Accept:*/*")
swWriter.WriteLine("Referer:")
swWriter.WriteLine()
'Aktualisieren Sie die Daten im aktuellen Datenstrom
swWriter.Flush()
srRead = Neuer StreamReader(nsStream, Encoding.Default)
'Initialisieren Sie die StreamReader-Instanz mit dem erhaltenen Netzwerk-Basisdatenstrom
Dim L As Integer = 0
Do While Not srRead.Peek = -1 And L < 20
StrHttp = StrHttp & srRead.ReadLine()
L = L + 1
Schleife
Wenn InStr(StrHttp, "IIS") > 0 dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: IIS-Version unbekannt“
SystemFW = „WindowsNT/2000/XP/2003“
Ende wenn
Wenn InStr(StrHttp, "Apache") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache-Version unbekannt“
Ende wenn
Wenn InStr(StrHttp, "Netscape-Enterprise") > 0 dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Netscape-Enterprise-Version unbekannt“
Ende wenn
Wenn InStr(StrHttp, "Microsoft-IIS/5.0") > 0 dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: IIS 5.0“
SystemFW = „Windows2000“
Ende wenn
Wenn InStr(StrHttp, "Microsoft-IIS/5.1") > 0 dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: IIS 5.1“
SystemFW = „Windows2000/XP“
Ende wenn
Wenn InStr(StrHttp, "Microsoft-IIS/6.0") > 0 dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: IIS 6.0“
SystemFW = „Windows2003“
Ende wenn
Wenn InStr(StrHttp, "Apache/2") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 2.x“
Ende wenn
Wenn InStr(StrHttp, "Apache/2.0.54") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 2.0.54“
Ende wenn
Wenn InStr(StrHttp, "Apache/2.0.52") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 2.0.52“
Ende wenn
Wenn InStr(StrHttp, "Apache/2.1.6") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 2.1.6“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.2") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.x“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.20") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.20“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.23") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.23“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.26") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.26“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.27") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.27“
Ende wenn
Wenn InStr(StrHttp, "Apache/1.3.33") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Apache 1.3.33“
Ende wenn
Wenn InStr(StrHttp, "Netscape-Enterprise/4.1") > 0 Dann
OppHTTP.Text = „HTTP-Dienst wurde gestartet! Dienstsoftwaretyp: Netscape-Enterprise 4.1“
Ende wenn
Wenn InStr(StrHttp, "Unix") > 0 dann
SystemFW = „Unix/Linux-ähnliches System“
Ende wenn
Fangen
End Try
extrahiert wird, sind einige Variablen nicht definiert. Sie können es selbst herausfinden.
ZSIP: die echte IP analysiert