Socket versions before 2.041 for Perl have an out-of-bounds heap read. In Socket.xs, pack_ip_mreq_source() checks the length of its source argument before the argument is read, so the check tests the byte length carried over from the preceding multiaddr argument instead. Both addresses occupy a 4-byte field, so a valid multiaddr lets a source of any length pass the check, and the source is then copied into the 4-byte imr_sourceaddr field with a fixed-size copy. A source shorter than 4 bytes is not rejected, and the copy reads up to 3 bytes past the end of its buffer. Calling pack_ip_mreq_source() with a source value shorter than 4 bytes copies adjacent heap memory into the returned packed structure.
| Vendor | Product | Versions |
|---|---|---|
| perl | socket | 0 |
Updated affected versions to include 2.40, changed severity to HIGH, and noted that the exploit is not available but the vulnerability is actively exploited.
Updated severity to HIGH, added CVSS estimate of 7.5, and marked the vulnerability as actively exploited with an available exploit.
Initial creation
