7.5 High
CVSS2
Attack Vector
NETWORK
Attack Complexity
LOW
Authentication
NONE
Confidentiality Impact
PARTIAL
Integrity Impact
PARTIAL
Availability Impact
PARTIAL
AV:N/AC:L/Au:N/C:P/I:P/A:P
6.5 Medium
AI Score
Confidence
Low
0.04 Low
EPSS
Percentile
92.1%
The remote host is missing an update to the system
as announced in the referenced advisory.
# SPDX-FileCopyrightText: 2008 E-Soft Inc.
# Some text descriptions might be excerpted from (a) referenced
# source(s), and are Copyright (C) by the respective right holder(s).
#
# SPDX-License-Identifier: GPL-2.0-only
if(description)
{
script_oid("1.3.6.1.4.1.25623.1.0.56271");
script_version("2023-07-26T05:05:09+0000");
script_tag(name:"last_modification", value:"2023-07-26 05:05:09 +0000 (Wed, 26 Jul 2023)");
script_tag(name:"creation_date", value:"2008-09-04 20:41:11 +0200 (Thu, 04 Sep 2008)");
script_cve_id("CVE-2005-3912", "CVE-2005-3962");
script_tag(name:"cvss_base", value:"7.5");
script_tag(name:"cvss_base_vector", value:"AV:N/AC:L/Au:N/C:P/I:P/A:P");
script_name("FreeBSD Ports: perl");
script_category(ACT_GATHER_INFO);
script_copyright("Copyright (C) 2008 E-Soft Inc.");
script_family("FreeBSD Local Security Checks");
script_dependencies("gather-package-list.nasl");
script_mandatory_keys("ssh/login/freebsd", "ssh/login/freebsdrel");
script_tag(name:"insight", value:"The following packages are affected:
perl
webmin
usermin
CVE-2005-3912
Format string vulnerability in miniserv.pl Perl web server in Webmin
before 1.250 and Usermin before 1.180, with syslog logging enabled,
allows remote attackers to cause a denial of service (crash or memory
consumption) and possibly execute arbitrary code via format string
specifiers in the username parameter to the login form, which is
ultimately used in a syslog call. NOTE: the code execution might be
associated with an issue in Perl.
CVE-2005-3962
Integer overflow in the format string functionality (Perl_sv_vcatpvfn)
in Perl 5.9.2 and 5.8.6 Perl allows attackers to overwrite arbitrary
memory and possibly execute arbitrary code via format string
specifiers with large values, which causes an integer wrap and leads
to a buffer overflow, as demonstrated using format string
vulnerabilities in Perl applications.");
script_tag(name:"solution", value:"Update your system with the appropriate patches or
software upgrades.");
script_xref(name:"URL", value:"http://dev.perl.org/perl5/news/2005/perl_patches_fix_sprintf_buffer.html");
script_xref(name:"URL", value:"http://www.securityfocus.com/bid/15629");
script_xref(name:"URL", value:"http://www.dyadsecurity.com/perl-0002.html");
script_xref(name:"URL", value:"http://www.dyadsecurity.com/webmin-0001.html");
script_xref(name:"URL", value:"http://www.webmin.com/security.html");
script_xref(name:"URL", value:"http://www.vuxml.org/freebsd/bb33981a-7ac6-11da-bf72-00123f589060.html");
script_tag(name:"summary", value:"The remote host is missing an update to the system
as announced in the referenced advisory.");
script_tag(name:"qod_type", value:"package");
script_tag(name:"solution_type", value:"VendorFix");
exit(0);
}
include("revisions-lib.inc");
include("pkg-lib-bsd.inc");
vuln = FALSE;
txt = "";
bver = portver(pkg:"perl");
if(!isnull(bver) && revcomp(a:bver, b:"5.6.0")>=0 && revcomp(a:bver, b:"5.6.2")<0) {
txt += 'Package perl version ' + bver + ' is installed which is known to be vulnerable.\n';
vuln = TRUE;
}
if(!isnull(bver) && revcomp(a:bver, b:"5.8.0")>=0 && revcomp(a:bver, b:"5.8.7_1")<0) {
txt += 'Package perl version ' + bver + ' is installed which is known to be vulnerable.\n';
vuln = TRUE;
}
bver = portver(pkg:"webmin");
if(!isnull(bver) && revcomp(a:bver, b:"1.250")<0) {
txt += 'Package webmin version ' + bver + ' is installed which is known to be vulnerable.\n';
vuln = TRUE;
}
bver = portver(pkg:"usermin");
if(!isnull(bver) && revcomp(a:bver, b:"1.180")<0) {
txt += 'Package usermin version ' + bver + ' is installed which is known to be vulnerable.\n';
vuln = TRUE;
}
if(vuln) {
security_message(data:txt);
} else if (__pkg_match) {
exit(99);
}