Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Email-Address CPAN distribution.

Report information
The Basics
Id: 52966
Status: resolved
Priority: 0/
Queue: Email-Address

People
Owner: Nobody in particular
Requestors: cb [...] df7cb.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.889
Fixed in: (no value)



Subject: Email::Address takes very long to parse weird strings
Download (untitled) / with headers
text/plain 584b
The header contained in the attached file makes Email::Address->parse take very long to complete; our amavisd-new instance kills the subprocess after 8 minutes. Of course, the header is all weird and probably broken, and I don't even expect correct parsing results, but still, this is some DoS attack vector. How to reproduce: $ cat run.pl use Email::Address; undef $/; my $a = <>; $a =~ s/^To: //; print Email::Address->parse($a); $ perl run.pl < to.txt We also have a much shorter (some 100 bytes) header that makes the run time explode that I'll attach as soon I can find it...
Subject: to.txt
Download to.txt
text/plain 78.5k

Message body is not shown because it is too large.

From: cb [...] df7cb.de
Download (untitled) / with headers
text/plain 605b
Am Di 22. Dez 2009, 05:52:35, myon schrieb: Show quoted text
> We also have a much shorter (some 100 bytes) header that makes the run > time explode that I'll attach as soon I can find it...
Here is it. I cannot reproduce it, though, I guess the problem vanished with some perl upgrade, there's some very old (possibly pre 5.8) version on that customer machine. use Email::Address; print Email::Address->parse('xxxxxxxxx.xxxxxxx @xxx.xxxx.de '); # note the trailing spaces on localpart and domain The problem stated in the first mail is still valid.
From: cb [...] df7cb.de
Download (untitled) / with headers
text/plain 272b
Show quoted text
> print Email::Address->parse('xxxxxxxxx.xxxxxxx > @xxx.xxxx.de '); # note the > trailing spaces on localpart and domain
To clarify, as it's not visible in the web interface: these are >30 spaces each.
Download (untitled) / with headers
text/plain 140b
I believe this was fixed by shrinking space only sequences into one space. I think it's ok to close the ticket. -- Best regards, Ruslan.
Resolved as suggested. -- rjbs


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.