Archive::Tar versions before 3.10 for Perl allow memory exhaustion via attacker controlled entry size field in tar header. readtar() reads each entry's payload with $handle->read($$data, $block), where $block is derived from the entry's 12-byte size field in the tar header with no upper bound on that value. A crafted header declaring a multi-gigabyte size causes Perl to allocate a scalar of that size.
{
"binaries": [
{
"binary_name": "libperl5.26",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-base",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-debug",
"binary_version": "5.26.1-6ubuntu0.7"
},
{
"binary_name": "perl-modules-5.26",
"binary_version": "5.26.1-6ubuntu0.7"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.30",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-base",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.30.0-9ubuntu0.5"
},
{
"binary_name": "perl-modules-5.30",
"binary_version": "5.30.0-9ubuntu0.5"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.34",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-base",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.34.0-3ubuntu1.5"
},
{
"binary_name": "perl-modules-5.34",
"binary_version": "5.34.0-3ubuntu1.5"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.38t64",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-base",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-debug",
"binary_version": "5.38.2-3.2ubuntu0.2"
},
{
"binary_name": "perl-modules-5.38",
"binary_version": "5.38.2-3.2ubuntu0.2"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-6build1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-6build1"
}
]
}{
"binaries": [
{
"binary_name": "libperl5.40",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-base",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-debug",
"binary_version": "5.40.1-7build1"
},
{
"binary_name": "perl-modules-5.40",
"binary_version": "5.40.1-7build1"
}
]
}{
"binaries": [
{
"binary_name": "libcgi-fast-perl",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "libperl5.18",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-base",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-debug",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
},
{
"binary_name": "perl-modules",
"binary_version": "5.18.2-2ubuntu1.7+esm5"
}
]
}{
"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"
}
]
}