DNS Lockup Reverse VB.NET / ASP.NET

DNS Lockup Reverse VB.NET / ASP.NET

O código abaixo mostra o IP de um site e o alias do servidor do site Dim he As IPHostEntry = Dns.GetHostEntry(TextBox1.Text) Dim ip_addrs As IPAddress() = he.AddressList Label1.Text = "" Dim Ips As New ArrayList {quebra} For Each ip As IPAddress In ip_addrs Ips.Add(ip.ToString()) Next ip For a As Integer = 0 To Ips.Count - 1 Dim meuIp As IPAddress = IPAddress.Parse(Ips(a)) Label1.Text &= "IP: " & Ips(a) & "" Try Dim IpHost As IPHostEntry = Dns.GetHostEntry(meuIp) Label1.Text &= "Servidor: " & IpHost.HostName & "" Catch ex As Exception Label1.Text &= "Servidor: " End Try Next TextBox1 é um textbox para pegar o endereço do site desejado Label1 é um label que é usado para exibir os resultados Exemplo de resultado: Para globo.com IP: 201.7.176.59 Servidor: globosat.com.br



Veja Também