<?
///////////////////////////////////////////////////////////////////////////
//
//    DNSBL - Spam IP address checker.
//    Copyright (C) 2011 Alexey A.Znayev
//
//    This program is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation, either version 3 of the License, or
//    (at your option) any later version.
//
//    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, see <http://www.gnu.org/licenses/>.
//
//    Alexey A.Znayev, znaeff@mail.ru, http://xbsoft.org, http://xbsoft.ru
//
///////////////////////////////////////////////////////////////////////////

// This file contains public class DNSBL

// This class performs IP address check in spam blocking lists as described
// on http://ru.wikipedia.org/wiki/RBL

class DNSBL {

    private $_aCheckers = array(	// list of checkers available for individual checking
	    'spamhaus' 	=> array('.zen.spamhaus.org', true), 	//available for group checking with 'all' key
	    'spamcop' 	=> array('.bl.spamcop.net',   true),	//available for group checking with 'all' key
	    'dsbl' 	=> array('.list.dsbl.org',    false),	//not available for group checking with 'all' key
	    'ordb' 	=> array('.relays.ordb.org',  false),	//not available for group checking with 'all' key
	    'sorbs' 	=> array('.dnsbl.sorbs.net',  false),	//not available for group checking with 'all' key
	    'njabl' 	=> array('.dnsbl.njabl.org',  false)	//not available for group checking with 'all' key
    ); // AZ - 1. Key 'all' is illegal
       // AZ - 2. Most of spammer IP addresses is covered by 'spamhaus' & 'spamcop' (and they are fast),
       //         some of the rest may not work sometimes, you can make them group checking available after individual testing
    
    private $_sDefaultChecker = 'spamhaus';

///////////////////////////////////////////////////////////////////////////
// CheckSpamIP - check IP for spam in checkers : given, default or all available for group checking (may be slow)
// parameters:
// string $ip - ip address
// string $checker - checker name or 'all' or nothing
// returns:
// true when IP exitsts in spam-lists of $checker or at least one of all checkers
// false when not or when ip address is local or not correct
    public function CheckSpamIP($ip, $checker = ''){
	if(empty($ip)) return false;
	if(preg_match('/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/', $ip) != 1) return false;
	$octets = explode('.', $ip);
	if($octets[0] == '127') return false;
	if($octets[0] == '10') return false;
	if($octets[0] == '192' && $octets[0] == '168') return false;
	if($octets[0] == '169' && $octets[0] == '254') return false;	// ms windows
	if((int)$octets[0] > 255 || (int)$octets[1] > 255 || (int)$octets[2] > 255 || (int)$octets[3] > 255 ) return false;
	$ret_val = false;
	$PTR = implode(array_reverse($octets), '.');
	if($checker === 'all'){
	    foreach(array_values($this->_aCheckers) as $c){
		if($c[1]){
		    $ret_val = $ret_val || $this->_CheckDNSAnswer(dns_get_record($PTR . $c[0], DNS_A));
		}
		if($ret_val) break;
	    }
	}else if(array_key_exists($checker, $this->_aCheckers)){
    	    $ret_val = $this->_CheckDNSAnswer(dns_get_record($PTR . $this->_aCheckers[$checker][0], DNS_A));
	}else{
    	    $ret_val = $this->_CheckDNSAnswer(dns_get_record($PTR . $this->_aCheckers[$this->_sDefaultChecker][0], DNS_A));
	}
	return $ret_val;
    }

///////////////////////////////////////////////////////////////////////////
// GetCheckers - gets list of available checker names
// returns:
// array of strings
    public function GetCheckers(){
	return array_keys($this->_aCheckers);
    }        

///////////////////////////////////////////////////////////////////////////
// GetGroupCheckers - gets list of checker names available for group checking with 'all' key
// returns:
// array of strings
    public function GetGroupCheckers(){
	$ret_val = array();
	foreach(array_keys($this->_aCheckers) as $k) if($this->_aCheckers[$k][1]) array_push($ret_val, $k);
	return $ret_val;
    }        

///////////////////////////////////////////////////////////////////////////
// GetDefaultChecker - gets default checker name
// returns:
// string
    public function GetDefaultChecker(){
	return $this->_sDefaultChecker;
    }

///////////////////////////////////////////////////////////////////////////
// SetDefaultChecker - sets default checker name
// parameters:
// string $new_checker - new default checker name
// returns:
// true when success
// false when failed ($new_checker is not in the list of available checker names)
    public function SetDefaultChecker($new_checker){
	if(array_key_exists($new_checker, $this->_aCheckers)){
	    $this->_sDefaultChecker = $new_checker;
	    return true;
	}else{
	    return false;
	}
    }

///////////////////////////////////////////////////////////////////////////
// EnableGroupChecking - sets checker available for group checking
// parameters:
// string $checker - checker name
// returns:
// true when success ($checker is included)
// false when failed ($checker is not in the list of available checker names)
    public function EnableGroupChecking($checker){
	if(array_key_exists($checker, $this->_aCheckers)){
	    $this->_aCheckers[$checker][1] = true;
	    return true;
	}else{
	    return false;
	}
    }

///////////////////////////////////////////////////////////////////////////
// DisableGroupChecking - sets checker not available for group checking
// parameters:
// string $checker - checker name
// returns:
// true when success ($checker is excluded)
// false when failed ($checker is not in the list of available checker names)
    public function DisableGroupChecking($checker){
	if(array_key_exists($checker, $this->_aCheckers)){
	    $this->_aCheckers[$checker][1] = false;
	    return true;
	}else{
	    return false;
	}
    }

// private methods

///////////////////////////////////////////////////////////////////////////
// _CheckDNSAnswer - checks DNS-server answer for 127.0.0.* values
// returns:
// true when success
// false when failed
    private function _CheckDNSAnswer($dns_answer){
	if(!is_array($dns_answer)) return false;
	$len = count($dns_answer);
	if($len <= 0) return false;
	for($i=0; $i<$len; $i++){
	    $obj = $dns_answer[$i];
	    if(!(is_object($obj) || is_array($obj))) return false;
	    $ip_str = $obj['ip'];
	    if(!is_string($ip_str)) return false;
	    $pos = strpos($ip_str, '127.0.0.');
	    if($pos !== false) return true;
	}
	return false;
    }        

} // end of class DNSBL

?>
<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>flut &#8211; Christian Aurich</title>
	<atom:link href="http://c-aurich.de/wordpress/tag/flut/feed/" rel="self" type="application/rss+xml" />
	<link>http://c-aurich.de/wordpress</link>
	<description>all about my personal interests</description>
	<lastBuildDate>Wed, 15 Jun 2016 20:21:23 +0000</lastBuildDate>
	<language>en-US</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>https://wordpress.org/?v=4.7.28</generator>
	<item>
		<title>Hochwasser in Chemnitz</title>
		<link>http://c-aurich.de/wordpress/2010/08/hochwasser-in-chemnitz/</link>
		<comments>http://c-aurich.de/wordpress/2010/08/hochwasser-in-chemnitz/#respond</comments>
		<pubDate>Mon, 09 Aug 2010 07:05:44 +0000</pubDate>
		<dc:creator><![CDATA[Christian]]></dc:creator>
				<category><![CDATA[chemnitz]]></category>
		<category><![CDATA[flut]]></category>

		<guid isPermaLink="false">http://c-aurich.de/wordpress/?p=29</guid>
		<description><![CDATA[Am Samstag früh war ich zum Frühstück im Chemnitzer Zentrum eingeladen. Auf dem Weg dorthin wurde es mir teilweise etwas mulmig. Schon in Reichenhain, wo ich startete, musste ich durch eine ca. 15cm tiefe &#8220;Pfütze&#8221; auf der Straße, die sich aber über ettliche Meter Länge erstreckte. Als ich dann aber an der Chemnitz vorbeikam, war &#8230; <p class="link-more"><a href="http://c-aurich.de/wordpress/2010/08/hochwasser-in-chemnitz/" class="more-link">Continue reading<span class="screen-reader-text"> "Hochwasser in Chemnitz"</span></a></p>]]></description>
				<content:encoded><![CDATA[<p>Am Samstag früh war ich zum Frühstück im Chemnitzer Zentrum eingeladen. Auf dem Weg dorthin wurde es mir teilweise etwas mulmig. Schon in Reichenhain, wo ich startete, musste ich durch eine ca. 15cm tiefe &#8220;Pfütze&#8221; auf der Straße, die sich aber über ettliche Meter Länge erstreckte.<br />
Als ich dann aber an der Chemnitz vorbeikam, war das schon ein ganz anderer Eindruck: dort stand eine komplette Kreuzung nebst 200-300m Straße so tief unter Wasser, dass die Wasserwacht mit Booten anrückte.</p>
<p>Am Nachmittag dann habe ich dieses kleine Filmchen von der Chemnitz gedreht:<br />
<object width="640" height="505"><param name="movie" value="http://www.youtube.com/v/P7Pwd3DRYkI&amp;hl=de_DE&amp;fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/P7Pwd3DRYkI&amp;hl=de_DE&amp;fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="640" height="505"></embed></object><br />
Hier stand das Wasser so hoch, dass nur noch wenige Zentimeter unter der Brücke Luft blieben.</p>
<p>Am Sonntag dann war ich mit meiner Freundin mal wieder auf Geocaching-Tour. Hier bot sich selbst am eigentlich kleinen Kappelbach ein Bild, dass an das sog. &#8220;Jahrhunderthochwasser&#8221; von 2002 erinnerte. An der Zwickauer Straße musste das Wasser am Vortag auch über die Ufer getreten sein, was sich mit diesem Video bestätigte.<br />
<object width="640" height="385"><param name="movie" value="http://www.youtube.com/v/8WKRyj8mmjg&amp;hl=de_DE&amp;fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/8WKRyj8mmjg&amp;hl=de_DE&amp;fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="640" height="385"></embed></object></p>
<p>Wenn man bei Youtube noch ein wenig weiter sucht, zeigt sich, dass das Ausmaß weit schlimmer war, als ich gedacht hätte. Aber zum Glück ist ein Großteil schon wieder abgelaufen. So konnte man Sonntag nachmittag/abend schon wieder fast alle Chemnitzer Flutgebiete ungehindert passieren.</p>
 <img src="http://c-aurich.de/wordpress/?feed-stats-post-id=29" width="1" height="1" style="display: none;" />]]></content:encoded>
			<wfw:commentRss>http://c-aurich.de/wordpress/2010/08/hochwasser-in-chemnitz/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>