On Wed, 20 Jan 2010, Res wrote:
On Wed, 20 Jan 2010, RW wrote:
It appears to be just a regular expression:
sub check_for_illegal_ip {
my ($self, $pms) = @_;
foreach my $rcvd ( @{$pms->{relays_untrusted}} ) {
# (note this might miss some hits if the Received.pm skips any
invalid IPs) foreach my $check ( $rcvd->{ip}, $rcvd->{by} ) {
return 1 if ($check =~ /^
(?:[01257]|(?!127.0.0.)127|22[3-9]|2[3-9]\d|[12]\d{3,}|[3-9]\d\d+)\.\d+\.\d+\.\d+
Thats crazy! It's wrong since 1/8 is now allocated, it also does not detect
most other bogon ranges, What is the point of this...
Another rule I now need to disable.
Please open a bug...
--
John Hardin KA7OHZ http://www.impsec.org/~jhardin/
jhar...@impsec.org FALaholic #11174 pgpk -a jhar...@impsec.org
key: 0xB8732E79 -- 2D8C 34F4 6411 F507 136C AF76 D822 E6E6 B873 2E79
-----------------------------------------------------------------------
Where are my space habitats? Where is my flying car?
It's 2010 and all I got from the SF books of my youth is
the lousy dystopian government. -- perlhaqr
-----------------------------------------------------------------------
4 days until John Moses Browning's 155th Birthday
