IO:::Uncompress::Unzip версии до 2.220 для Perl позволяют исчерпать процессор через цикл чтения с проибо в fastForward. fastForward() сравн…

IO:::Uncompress::Unzip версии до 2.220 для Perl позволяют исчерпать процессор через цикл чтения с проибо в fastForward. fastForward() сравнивает длину $offset (цифровое количество офсета, от 1 до 19) с размером $c вместо самого $c, поэтому $c сокращается с 16 KiB до 1-19 байт за итерацию. Извлечение именованной записи от злоумышленника, поставляемого на молнии через IO::Uncompress::Unzip->new($zip, Имя => $target) приводит в движение цикл считыванием сжатым размером записи до не-Zip64 4 GiB.