Mandriva Update for perl MDVSA-2008:100 (perl). Free vulnerability in Perl 5.8.8 and earlier versions, causes denial of service via crafted regex with UTF8 characters
Reporter | Title | Published | Views | Family All 76 |
---|---|---|---|---|
![]() | Oracle Linux 5 : perl (ELSA-2008-0522) | 12 Jul 201300:00 | β | nessus |
![]() | RHEL 3 / 4 / 5 : perl (RHSA-2008:0522) | 12 Jun 200800:00 | β | nessus |
![]() | GLSA-200805-17 : Perl: Execution of arbitrary code | 22 May 200800:00 | β | nessus |
![]() | SuSE9 Security Update : Perl (YOU Patch Number 12208) | 24 Sep 200900:00 | β | nessus |
![]() | openSUSE 10 Security Update : perl (perl-5443) | 24 Aug 200800:00 | β | nessus |
![]() | SuSE 10 Security Update : Perl (ZYPP Patch Number 5444) | 24 Aug 200800:00 | β | nessus |
![]() | CentOS 3 / 4 / 5 : perl (CESA-2008:0522) | 16 Jun 200800:00 | β | nessus |
![]() | Debian DSA-1556-2 : perl - heap buffer overflow | 28 Apr 200800:00 | β | nessus |
![]() | Mandriva Linux Security Advisory : perl (MDVSA-2008:100) | 23 Apr 200900:00 | β | nessus |
![]() | Scientific Linux Security Update : perl on SL3.x, SL4.x, SL5.x i386/x86_64 | 1 Aug 201200:00 | β | nessus |
###############################################################################
# OpenVAS Vulnerability Test
#
# Mandriva Update for perl MDVSA-2008:100 (perl)
#
# Authors:
# System Generated Check
#
# Copyright:
# Copyright (c) 2009 Greenbone Networks GmbH, http://www.greenbone.net
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2
# (or any later version), as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
###############################################################################
include("revisions-lib.inc");
tag_insight = "A double free vulnerability in Perl 5.8.8 and earlier versions,
allows context-dependent attackers to cause a denial of service
(memory corruption and crash) via a crafted regular expression
containing UTF8 characters.
The updated packages have been patched to prevent this.";
tag_affected = "perl on Mandriva Linux 2007.1,
Mandriva Linux 2007.1/X86_64,
Mandriva Linux 2008.0,
Mandriva Linux 2008.0/X86_64";
tag_solution = "Please Install the Updated Packages.";
if(description)
{
script_xref(name : "URL" , value : "http://lists.mandriva.com/security-announce/2008-05/msg00014.php");
script_id(830543);
script_version("$Revision: 6568 $");
script_tag(name:"last_modification", value:"$Date: 2017-07-06 15:04:21 +0200 (Thu, 06 Jul 2017) $");
script_tag(name:"creation_date", value:"2009-04-09 14:18:58 +0200 (Thu, 09 Apr 2009)");
script_tag(name:"cvss_base", value:"5.0");
script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:N/I:N/A:P");
script_xref(name: "MDVSA", value: "2008:100");
script_cve_id("CVE-2008-1927");
script_name( "Mandriva Update for perl MDVSA-2008:100 (perl)");
script_summary("Check for the Version of perl");
script_category(ACT_GATHER_INFO);
script_copyright("Copyright (C) 2009 Greenbone Networks GmbH");
script_family("Mandrake Local Security Checks");
script_dependencies("gather-package-list.nasl");
script_mandatory_keys("ssh/login/mandriva_mandrake_linux", "ssh/login/release");
script_tag(name : "affected" , value : tag_affected);
script_tag(name : "solution" , value : tag_solution);
script_tag(name : "insight" , value : tag_insight);
script_tag(name:"qod_type", value:"package");
script_tag(name:"solution_type", value:"VendorFix");
exit(0);
}
include("pkg-lib-rpm.inc");
release = get_kb_item("ssh/login/release");
res = "";
if(release == NULL){
exit(0);
}
if(release == "MNDK_2007.1")
{
if ((res = isrpmvuln(pkg:"perl", rpm:"perl~5.8.8~10.2mdv2007.1", rls:"MNDK_2007.1")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-base", rpm:"perl-base~5.8.8~10.2mdv2007.1", rls:"MNDK_2007.1")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-devel", rpm:"perl-devel~5.8.8~10.2mdv2007.1", rls:"MNDK_2007.1")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-doc", rpm:"perl-doc~5.8.8~10.2mdv2007.1", rls:"MNDK_2007.1")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-suid", rpm:"perl-suid~5.8.8~10.2mdv2007.1", rls:"MNDK_2007.1")) != NULL)
{
security_message(data:res);
exit(0);
}
if (__pkg_match) exit(99); # Not vulnerable.
exit(0);
}
if(release == "MNDK_2008.0")
{
if ((res = isrpmvuln(pkg:"perl", rpm:"perl~5.8.8~12.2mdv2008.0", rls:"MNDK_2008.0")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-base", rpm:"perl-base~5.8.8~12.2mdv2008.0", rls:"MNDK_2008.0")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-devel", rpm:"perl-devel~5.8.8~12.2mdv2008.0", rls:"MNDK_2008.0")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-doc", rpm:"perl-doc~5.8.8~12.2mdv2008.0", rls:"MNDK_2008.0")) != NULL)
{
security_message(data:res);
exit(0);
}
if ((res = isrpmvuln(pkg:"perl-suid", rpm:"perl-suid~5.8.8~12.2mdv2008.0", rls:"MNDK_2008.0")) != NULL)
{
security_message(data:res);
exit(0);
}
if (__pkg_match) exit(99); # Not vulnerable.
exit(0);
}
Transform Your Security Services
Elevate your offerings with Vulners' advanced Vulnerability Intelligence. ContactΒ us for a demo andΒ discover the difference comprehensive, actionable intelligence can make in your security strategy.
Book a live demo