CVE-2013-2145 (published 2013-08-19T23:55Z)

The cpansign verify functionality in the Module::Signature module before 0.72 for Perl allows attackers to bypass the signature check and execute arbitrary code via a SIGNATURE file with a "special unknown cipher" that references an untrusted module in Digest/.

Severity: MEDIUM
CVSS v2 base score: 4.4 (AV:L/AC:M/Au:N/C:P/I:P/A:P)

Weakness information:
cwe_id: CWE-20
cwe_name: Improper Input Validation
description: The product receives input or data, but it does
        not validate or incorrectly validates that the input has the
        properties that are required to process the data safely and
        correctly.
extended_description: 
	   Input validation is a frequently-used technique
	   for checking potentially dangerous inputs in order to
	   ensure that the inputs are safe for processing within the
	   code, or when communicating with other components.  When
	   software does not validate input properly, an attacker is
	   able to craft the input in a form that is not expected by
	   the rest of the application. This will lead to parts of the
	   system receiving unintended input, which may result in
	   altered control flow, arbitrary control of a resource, or
	   arbitrary code execution.
	   Input validation is not the only technique for
	   processing input, however.  Other techniques attempt to
	   transform potentially-dangerous input into something safe, such
	   as filtering (CWE-790) - which attempts to remove dangerous
	   inputs - or encoding/escaping (CWE-116), which attempts to
	   ensure that the input is not misinterpreted when it is included
	   in output to another component. Other techniques exist as well
	   (see CWE-138 for more examples.)
	   Input validation can be applied to:
	   
	     raw data - strings, numbers, parameters, file contents, etc.
	     metadata - information about the raw data, such as headers or size
	   
	   Data can be simple or structured.  Structured data
	   can be composed of many nested layers, composed of
	   combinations of metadata and raw data, with other simple or
	   structured data.
	   Many properties of raw data or metadata may need
	   to be validated upon entry into the code, such
	   as:
	   
	     specified quantities such as size, length, frequency, price, rate, number of operations, time, etc.
	     implied or derived quantities, such as the actual size of a file instead of a specified size
	     indexes, offsets, or positions into more complex data structures
	     symbolic keys or other elements into hash tables, associative arrays, etc.
	     well-formedness, i.e. syntactic correctness - compliance with expected syntax 
	     lexical token correctness - compliance with rules for what is treated as a token
	     specified or derived type - the actual type of the input (or what the input appears to be)
	     consistency - between individual data elements, between raw data and metadata, between references, etc.
	     conformance to domain-specific rules, e.g. business logic 
	     equivalence - ensuring that equivalent inputs are treated the same
	     authenticity, ownership, or other attestations about the input, e.g. a cryptographic signature to prove the source of the data
	   
	   Implied or derived properties of data must often
	   be calculated or inferred by the code itself.  Errors in
	   deriving properties may be considered a contributing factor
	   to improper input validation.
	   
	   Note that "input validation" has very different
	   meanings to different people, or within different
	   classification schemes.  Caution must be used when
	   referencing this CWE entry or mapping to it.  For example,
	   some weaknesses might involve inadvertently giving control
	   to an attacker over an input when they should not be able
	   to provide an input at all, but sometimes this is referred
	   to as input validation.
	   Finally, it is important to emphasize that the
	   distinctions between input validation and output escaping
	   are often blurred, and developers must be careful to
	   understand the difference, including how input validation
	   is not always sufficient to prevent vulnerabilities,
	   especially when less stringent data types must be
	   supported, such as free-form text. Consider a SQL injection
	   scenario in which a person's last name is inserted into a
	   query. The name "O'Reilly" would likely pass the validation
	   step since it is a common last name in the English
	   language. However, this valid name cannot be directly
	   inserted into the database because it contains the "'"
	   apostrophe character, which would need to be escaped or
	   otherwise transformed. In this case, removing the
	   apostrophe might reduce the risk of SQL injection, but it
	   would produce incorrect behavior because the wrong name
	   would be recorded.
       
         

Fix information:
repo_url: https://github.com/audreyt/module-signature
commit_details: repo_url: https://github.com/audreyt/module-signature
author: Audrey Tang
author_date: 2013-06-05 23:21:02+08:00
msg: * 0.72 with an improved path checker from @fweimer
repository: repo_url: https://github.com/audreyt/module-signature
repo_name: audreyt/module-signature
description: Module signature file manipulation
repo_language: Perl
owner: audreyt
file_changes: filename: Changes
change_type: ModificationType.MODIFY
diff: @@ -1,3 +1,10 @@
+[Changes for 0.72 - Wed Jun  5 23:19:02 CST 2013]
+
+* Only allow loading Digest::* from absolute paths in @INC,
+  by ensuring they begin with \ or / characters.
+
+  Contributed by: Florian Weimer
+
 [Changes for 0.71 - Tue Jun  4 18:24:10 CST 2013]
 
 * Constrain the user-specified digest name to /^\w+\d+$/.

programming_language: Markdown
filename: META.yml
change_type: ModificationType.MODIFY
diff: @@ -25,4 +25,4 @@ requires:
   perl: 5.005
 resources:
   repository: http://github.com/audreyt/module-signature
-version: 0.71
+version: 0.72

programming_language: Ruby
filename: README
change_type: ModificationType.MODIFY
diff: @@ -245,6 +245,8 @@ SEE ALSO
 
     Module::Install, ExtUtils::MakeMaker, Module::Build
 
+    Dist::Zilla::Plugin::Signature
+
 AUTHORS
     唐鳳 <cpan@audreyt.org>
 

programming_language: Perl
filename: Signature.pm
change_type: ModificationType.MODIFY
diff: @@ -1,5 +1,5 @@
 package Module::Signature;
-$Module::Signature::VERSION = '0.71';
+$Module::Signature::VERSION = '0.72';
 
 use 5.005;
 use strict;
@@ -534,7 +534,7 @@ sub _digest_object {
     my($algorithm) = @_;
 
     # Avoid loading Digest::* from relative paths in @INC.
-    local @INC = grep { /^[^.]/ } @INC;
+    local @INC = grep { m{^[\\/]} } @INC;
 
     # Constrain algorithm name to be of form ABC123.
     my ($base, $variant) = ($algorithm =~ /^([_a-zA-Z]+)([0-9]+)$/g)

programming_language: Perl
repo_url: https://github.com/audreyt/module-signature
commit_details: repo_url: https://github.com/audreyt/module-signature
author: Audrey Tang
author_date: 2013-06-04 18:28:43+08:00
msg: * Version 71 with advisory from @fweimer
repository: repo_url: https://github.com/audreyt/module-signature
repo_name: audreyt/module-signature
description: Module signature file manipulation
repo_language: Perl
owner: audreyt
file_changes: filename: Changes
change_type: ModificationType.MODIFY
diff: @@ -1,3 +1,11 @@
+[Changes for 0.71 - Tue Jun  4 18:24:10 CST 2013]
+
+* Constrain the user-specified digest name to /^\w+\d+$/.
+
+* Avoid loading Digest::* from relative paths in @INC.
+
+  Contributed by: Florian Weimer
+
 [Changes for 0.70 - Thu Nov 29 01:45:54 CST 2012]
 
 * Don't check gpg version if gpg does not exist.

programming_language: Markdown
filename: META.yml
change_type: ModificationType.MODIFY
diff: @@ -25,4 +25,4 @@ requires:
   perl: 5.005
 resources:
   repository: http://github.com/audreyt/module-signature
-version: 0.70
+version: 0.71

programming_language: Ruby
filename: Signature.pm
change_type: ModificationType.MODIFY
diff: @@ -1,5 +1,5 @@
 package Module::Signature;
-$Module::Signature::VERSION = '0.70';
+$Module::Signature::VERSION = '0.71';
 
 use 5.005;
 use strict;
@@ -532,18 +532,23 @@ sub _mkdigest {
 
 sub _digest_object {
     my($algorithm) = @_;
+
+    # Avoid loading Digest::* from relative paths in @INC.
+    local @INC = grep { /^[^.]/ } @INC;
+
+    # Constrain algorithm name to be of form ABC123.
+    my ($base, $variant) = ($algorithm =~ /^([_a-zA-Z]+)([0-9]+)$/g)
+        or die "Malformed algorithm name: $algorithm (should match /\\w+\\d+/)";
+
     my $obj = eval { Digest->new($algorithm) } || eval {
-        my ($base, $variant) = ($algorithm =~ /^(\w+?)(\d+)$/g) or die;
         require "Digest/$base.pm"; "Digest::$base"->new($variant)
     } || eval {
         require "Digest/$algorithm.pm"; "Digest::$algorithm"->new
     } || eval {
-        my ($base, $variant) = ($algorithm =~ /^(\w+?)(\d+)$/g) or die;
         require "Digest/$base/PurePerl.pm"; "Digest::$base\::PurePerl"->new($variant)
     } || eval {
         require "Digest/$algorithm/PurePerl.pm"; "Digest::$algorithm\::PurePerl"->new
     } or do { eval {
-        my ($base, $variant) = ($algorithm =~ /^(\w+?)(\d+)$/g) or die;
         warn "Unknown cipher: $algorithm, please install Digest::$base, Digest::$base$variant, or Digest::$base\::PurePerl\n";
     } and return } or do {
         warn "Unknown cipher: $algorithm, please install Digest::$algorithm\n"; return;

programming_language: Perl