Anonymous DNS Extractor Source Code

Imports System.Net
'Remember to give credits if you use this source!
'Leak by Anon?M ID
Module Module1
    Sub Main()
        Console.Title = "Anonymous DNS Extractor"
        Console.Write("Website : ")
        Dim hostNameOrAddress As String = Console.ReadLine
        Console.WriteLine("-----------------------")
        Console.WriteLine("IP's Found :")
        Console.WriteLine("-----------------------")
        Dim address As IPAddress
        For Each address In Dns.GetHostAddresses(hostNameOrAddress)
            Console.WriteLine(address.ToString)
        Next
        Console.ReadLine()
    End Sub
End Module
'Leaked by Anon?M ID