Net::CIDR::Lite версии до 0.23 для Perl неправильно обрабатывают адреса IPv6, сопоставленные с IPv4, что может позволить обойти IP ACL.
_pack_ipv6() включает контрольный байт из _pack_ipv4() при построении упакованного представления отображаемых адресов IPv4, например::ffff:192.168.1.1. В результате получается значение размером 18 байт вместо 17 байт, что приводит к смещению части адреса IPv4. Неправильная длина приводит к неверным результатам в операциях маски (побитовое И усекается до более короткого операнда) и в find()/bin_find(), которые используют сравнение строк Perl (lt/gt).
Это может привести к тому, что find() будет неправильно сопоставлять или пропускать адреса. Пример:
мой $cidr = Net::CIDR::Lite->new("::ffff:192.168.1.0/120");
$cidr->find("::ffff:192.168.2.0"); # неправильно возвращает true
Это инициируется действительными сопоставленными адресами IPv4 RFC 4291 (::ffff:x.x.x.x). См. также CVE-2026-40198, связанную проблему в той же функции, затрагивающую неверные адреса IPv6.
Показать оригинальное описание (EN)
Net::CIDR::Lite versions before 0.23 for Perl mishandles IPv4 mapped IPv6 addresses, which may allow IP ACL bypass. _pack_ipv6() includes the sentinel byte from _pack_ipv4() when building the packed representation of IPv4 mapped addresses like ::ffff:192.168.1.1. This produces an 18 byte value instead of 17 bytes, misaligning the IPv4 part of the address. The wrong length causes incorrect results in mask operations (bitwise AND truncates to the shorter operand) and in find() / bin_find() which use Perl string comparison (lt/gt). This can cause find() to incorrectly match or miss addresses. Example: my $cidr = Net::CIDR::Lite->new("::ffff:192.168.1.0/120"); $cidr->find("::ffff:192.168.2.0"); # incorrectly returns true This is triggered by valid RFC 4291 IPv4 mapped addresses (::ffff:x.x.x.x). See also CVE-2026-40198, a related issue in the same function affecting malformed IPv6 addresses.