Question

问题：我正在寻找制作mDNS数据包，同时搜索选项的堆栈流。我尝试了bonjour和一些包装但成功非常有限，特别是当我第二次请求并获得套接字绑定投诉时（当然，这可能是我的代码而不是它们）。

由于VB.net没有我所知道的真正可编辑的dnsquery，我在pcapdotnet中使用构建DNS数据包中的DNS层，并且只是逐层制作数据包。我认为这是一个不错的选择，但我对如何做到这一点感到很失落。

这是我们想要的问题：

        q_name = new QuestionName("_axis-video._tcp.local"),
        q_type = QueryConstants.Question.QuestionType.PTR,
        q_class = QueryConstants.Question.QuestionClass.IN

这是我编辑过的标准BuildDNSPacket函数：

Private Shared Function BuildDnsPacket(destmac As String, domainName As String) As Packet

    'get source MAC address of PC
    Dim nic = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
    Dim source As String = nic(0).GetPhysicalAddress().ToString
    Dim sourcearray As Byte() = System.Text.Encoding.ASCII.GetBytes(source)

    'format
    Dim sourceMacStr As String = ""
    For i As Integer = 0 To sourcearray.Count - 1 Step 2
        sourceMacStr += Chr(sourcearray(i)) & Chr(sourcearray(i + 1)) & ":"
    Next

    ' Will be filled automatically.
    Dim ethernetLayer As New EthernetLayer() With { _
         .Source = New MacAddress(sourceMacStr.Substring(0, 17)), _
          .Destination = New MacAddress(destmac), _
          .EtherType = EthernetType.None _
    }

    ' Will be filled automatically.
    Dim ipV4Layer As New IpV4Layer() With { _
          .Source = New IpV4Address("1.2.3.4"), _
          .CurrentDestination = New IpV4Address(destmac), _
          .Fragmentation = IpV4Fragmentation.None, _
          .HeaderChecksum = Nothing, _
          .Identification = 123, _
          .Options = IpV4Options.None, _
          .Protocol = Nothing, _
          .Ttl = 100, _
          .TypeOfService = 0 _
    }

    ' Will be filled automatically.
    Dim udpLayer As New UdpLayer() With { _
          .SourcePort = 5353, _
          .DestinationPort = 5353, _
          .Checksum = Nothing, _
          .CalculateChecksumValue = False _
    }

    Dim dnsLayer As New DnsLayer() With { _
          .Id = 0, _
          .IsResponse = False, _
          .OpCode = DnsOpCode.Query, _
          .IsAuthoritativeAnswer = False, _
          .IsTruncated = False, _
          .IsRecursionDesired = False, _
          .IsRecursionAvailable = False, _
          .FutureUse = False, _
          .IsAuthenticData = False, _
          .IsCheckingDisabled = False, _
          .ResponseCode = DnsResponseCode.NoError, _
          .Queries = {New DnsQueryResourceRecord(New DnsDomainName(domainName), DnsType.Ptr, DnsClass.Any)}, _
          .Answers = Nothing, _
          .Authorities = Nothing, _
          .Additionals = Nothing, _
          .DomainNameCompressionMode = DnsDomainNameCompressionMode.All _
    }


    Dim builder As New PacketBuilder(ethernetLayer, ipV4Layer, udpLayer, dnsLayer)

    Return builder.Build(DateTime.Now)
End Function

主要区别在于我将DnsType更改为PTR，将端口更改为5353.

问题：我还应该添加或更改哪些内容才能使其成为mDNS？我可以将什么放入domainName？我应该更改dnsclass吗？

绝对欢迎所有或任何建议。

Answer 1

我正在回答我的问题，以防其他需要在vb.net中执行mDNS的人需要：

解决方案：我无需向DNS层添加任何内容即可实现此功能。我将DNS层更改为以下内容：

   Dim dnsLayer As New DnsLayer() With { _
          .Id = 0, _
          .IsResponse = False, _
          .OpCode = DnsOpCode.Query, _
          .IsAuthoritativeAnswer = False, _
          .IsTruncated = False, _
          .IsRecursionDesired = False, _
          .IsRecursionAvailable = False, _
          .FutureUse = False, _
          .IsAuthenticData = False, _
          .IsCheckingDisabled = False, _
          .ResponseCode = DnsResponseCode.NoError, _
          .Queries = {New DnsQueryResourceRecord(New DnsDomainName(domainName), DnsType.Ptr, DnsClass.Any)}, _
          .Answers = Nothing, _
          .Authorities = Nothing, _
          .Additionals = Nothing, _
          .DomainNameCompressionMode = DnsDomainNameCompressionMode.All _
    }

我将Ipv4层的输出地址设置为＆＃34; 224.0.0.251＆＃34;的多播地址，将我的端口更改为5353，并使用上面列出的问题的域名。

这里有一个显示回复的电线： enter image description here

我怎么能用Pcap.net进行mDNS查询？

1 个答案: