因此，该软件受到 ALAS2023-2026-2046 公告中提及的多个漏洞影响。

    Perl 的 Net：:DNS 版本 1.55 允许通过 EDNS EXTENDED ERROR 进行远程执行注入。

    Net：:DNS：：RR：：OPT：：EXTENDED_ERROR：：_decompose 通过标记原始字节并将结果传递至 Perl 的 eval 来解析 EDNS EXTENDED-ERROR 选项 （RFC 8914） 的 EXTRA-TEXT 字段。对 $ 和 @ 进行了一些转义，但不对反撇号进行了转义。如果在数组上下文中调用 $pkt ->edns->option（'EXTENDED-ERROR'），例如在 EXTRA-TEXT 中负载 {0：'<command>'}，则可利用此漏洞来执行命令。（CVE-2026-64193）

    Perl 的 Net:: DNS 版本 1.55 允许通过深层 DNS 压缩指针链造成拒绝服务。

    Net::DNS::DomainName::decode 通过递归到自身来遵循 RFC 1035 压缩指针，无深度限制。可能构造使调用堆栈饱和的名称（至少需要更大的 TCP 响应），从而导致潜在的拒绝服务。

    防护“$link < $offset”阻止向前和循环链，但是仍然允许任意长的向后链。每个偏移量缓存 （'$cache'） 在每次调用开始时填充，并且短路仅会重新遍历同一偏移 - 通过新链的初始下降仍会以完整深度递归。

    构建的数据包可链接双字节压缩指针，使每个压缩指针比前一个压缩指针早指向两个字节，从而生成“offset / 2”的链长度。对于 14 位指针字段（最大偏移 16383），这会造成多达 ~8191 个递归帧。对于 TCP DNS 消息，该限制为 16 位长度字段（~32767 帧）。Perl 的默认 C 堆栈仅处理几千帧;超出此范围，进程会收到 SIGSEGV 或类似消息，这对任何解析不受信任的 DNS 数据的应用程序都会造成拒绝服务。

    “Net::DNS::Packet->new（\$wire）”会触发该漏洞，即库从网络解码 DNS 消息的任何点。（CVE-2026-64194）

Tenable 已直接从测试产品的安全公告中提取上述描述块。

请注意，Nessus 尚未测试这些问题，而是只依据应用程序自我报告的版本号进行判断。

检测

Amazon Linux 2023：perl-Net-DNS、perl-Net-DNS-Nameserver、perl-Net-DNS-tests （ALAS2023-2026-2046）

critical Nessus 插件 ID 337214

版本 1.1