Perl versions through 5.43.10 have an integer overflow in Smeasurestruct leading to an out-of-bounds heap read in pack and unpack. Smeasurestruct adds each item's size times its repeat count to a running total with no overflow check, so a large repeat count in a pack or unpack template wraps the signed SSize_t total negative. The @, X, and x position codes then guard their moves with a signed length comparison that passes when the length is negative, advancing the buffer pointer out of bounds. A template derived from untrusted input can read heap memory past the buffer and return it to the caller.
{
"binaries": [
{
"binary_name": "libperl5.34",
"binary_version": "5.34.0-3ubuntu1.7"
},
{
"binary_name": "perl",
"binary_version": "5.34.0-3ubuntu1.7"
},
{
"binary_name": "perl-base",
"binary_version": "5.34.0-3ubuntu1.7"
},
{
"binary_name": "perl-debug",
"binary_version": "5.34.0-3ubuntu1.7"
},
{
"binary_name": "perl-modules-5.34",
"binary_version": "5.34.0-3ubuntu1.7"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.38t64",
"binary_version": "5.38.2-3.2ubuntu0.3"
},
{
"binary_name": "perl",
"binary_version": "5.38.2-3.2ubuntu0.3"
},
{
"binary_name": "perl-base",
"binary_version": "5.38.2-3.2ubuntu0.3"
},
{
"binary_name": "perl-debug",
"binary_version": "5.38.2-3.2ubuntu0.3"
},
{
"binary_name": "perl-modules-5.38",
"binary_version": "5.38.2-3.2ubuntu0.3"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-7ubuntu0.1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-7ubuntu0.1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-7ubuntu0.1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-7ubuntu0.1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-7ubuntu0.1"
}
]
}{
"binaries": [
{
"binary_name": "libcgi-fast-perl",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
},
{
"binary_name": "libperl5.18",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
},
{
"binary_name": "perl",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
},
{
"binary_name": "perl-base",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
},
{
"binary_name": "perl-debug",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
},
{
"binary_name": "perl-modules",
"binary_version": "5.18.2-2ubuntu1.7+esm7"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-base",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
},
{
"binary_name": "perl-modules-5.22",
"binary_version": "5.22.1-9ubuntu0.9+esm2"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.26",
"binary_version": "5.26.1-6ubuntu0.7+esm2"
},
{
"binary_name": "perl",
"binary_version": "5.26.1-6ubuntu0.7+esm2"
},
{
"binary_name": "perl-base",
"binary_version": "5.26.1-6ubuntu0.7+esm2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.26.1-6ubuntu0.7+esm2"
},
{
"binary_name": "perl-modules-5.26",
"binary_version": "5.26.1-6ubuntu0.7+esm2"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.30",
"binary_version": "5.30.0-9ubuntu0.5+esm2"
},
{
"binary_name": "perl",
"binary_version": "5.30.0-9ubuntu0.5+esm2"
},
{
"binary_name": "perl-base",
"binary_version": "5.30.0-9ubuntu0.5+esm2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.30.0-9ubuntu0.5+esm2"
},
{
"binary_name": "perl-modules-5.30",
"binary_version": "5.30.0-9ubuntu0.5+esm2"
}
]
}