Title: IO::Uncompress::Unzip de PMQS, Description: Las versiones de IO::Uncompress::Unzip anteriores a la 2.220 para Perl permiten el agotamiento de la CPU a través de un bucle de lectura byte a byte en fastForward.

fastForward() compara la longitud $offset (el recuento de dígitos del offset, de 1 a 19) contra el tamaño del fragmento $c en lugar de $offset mismo, por lo que $c se reduce de 16 KiB a 1-19 bytes por iteración.

La extracción de una entrada con nombre de un archivo zip proporcionado por un atacante a través de IO::Uncompress::Unzip->new($zip, Name => $target) impulsa un bucle de lectura byte a byte que escala con el tamaño comprimido de la entrada, hasta el límite de 4 GiB no-Zip64.

Title: IO::Uncompress::Unzip de PMQS, Description: Las versiones de IO::Uncompress::Unzip anteriores a la 2.220 para Perl permiten el agotamiento de la CPU a través de un bucle de lectura byte a byte en fastForward.

fastForward() compara la longitud $offset (el recuento de dígitos del offset, de 1 a 19) contra el tamaño del fragmento $c en lugar de $offset mismo, por lo que $c se reduce de 16 KiB a 1-19 bytes por iteración.

La extracción de una entrada con nombre de un archivo zip proporcionado por un atacante a través de IO::Uncompress::Unzip -> new($zip, Name => $target) impulsa un bucle de lectura byte a byte que escala con el tamaño comprimido de la entrada, hasta el límite de 4 GiB no-Zip64.

Title: IO::Uncompress::Unzip de PMQS, Description: Las versiones de IO::Uncompress::Unzip anteriores a la 2.220 para Perl permiten el agotamiento de la CPU a través de un bucle de lectura byte a byte en fastForward.

fastForward() compara la longitud $offset (el recuento de dígitos del offset, de 1 a 19) contra el tamaño del fragmento $c en lugar de $offset mismo, por lo que $c se reduce de 16 KiB a 1-19 bytes por iteración.

La extracción de una entrada con nombre de un archivo zip proporcionado por un atacante a través de IO::Uncompress::Unzip->new($zip, Name => $target) impulsa un bucle de lectura byte a byte que escala con el tamaño comprimido de la entrada, hasta el límite de 4 GiB no-Zip64.

{"timestamp":"2026-05-29T15:50:09.916092Z","id":"CVE-2026-48959","options":[{"exploitation":"none"},{"automatable":"yes"},{"technicalImpact":"partial"}],"role":"CISA Coordinator","version":"2.0.3"}

[{"vendor":"PMQS","product":"IO::Uncompress::Unzip","defaultStatus":"unaffected","collectionURL":"https://cpan.org/modules","packageName":"IO-Compress","programFiles":["lib/IO/Uncompress/Unzip.pm"],"programRoutines":[{"name":"IO::Uncompress::Unzip::fastForward"}],"repo":"https://github.com/pmqs/IO-Compress","versions":[{"version":"0","lessThan":"2.220","versionType":"custom","status":"affected"}]}]

AV:N/AC:L/PR:N/UI:N/S:U/C:N/I:N/A:H

http://www.openwall.com/lists/oss-security/2026/05/27/2

IO::Uncompress::Unzip versions before 2.220 for Perl allow CPU exhaustion via per-byte read loop in fastForward.

fastForward() compares length $offset (the digit count of the offset, 1 to 19) against the chunk size $c instead of $offset itself, so $c shrinks from 16 KiB to 1-19 bytes per iteration.

Extracting a named entry from an attacker supplied zip via IO::Uncompress::Unzip->new($zip, Name => $target) drives a per-byte read loop scaling with the entry's compressed size, up to the non-Zip64 4 GiB cap.

CWE-407

https://github.com/pmqs/IO-Compress/commit/68db44076f4c1a86a2ffe53a958eac6cabaf72e2.patch

https://metacpan.org/release/PMQS/IO-Compress-2.220/changes