. // // 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 ?> Windows

Síguenos en Google+

Windows posts etiquetados

Video: Actualizando desde Windows 1.0 hasta Windows 7

marzo 5, 2011 Posted in  Curiosidades, Informatica, Windows | Comments: 0

A través de Genbeta he visto el siguiente video en el cual en una máquina virtual se comenzó instalando Windows 1.0 (previa instalación necesaria de MSDOS 5.0) hasta llegar a Windows 7 (actualizando siempre a la siguiente versión de Windows, pasando por ejemplo por Windows 3.1, Windows 98, Windows XP…).

Se pueden ver cosas curiosas como por ejemplo instalar en MSDOS 5.0 el Monkey Island y el Doom II, y poder seguir ejecutándolos hasta en Windows 7; o cómo mantiene el esquema de colores establecido también en MSDOS. También observar que no todo fue siguiente -> siguiente -> siguiente ya que por ejemplo surgen problemas con el formato de disco duro entre las versiones anteriores a XP y éste mismo.

Enlaces

Vis...

Ver más

Apagar el equipo sin instalar actualizaciones

febrero 23, 2011 Posted in  Informatica, Trucos, Windows | Comments: 3

Cuando se está trabajando con el ordenador nos interesa tener todos los recursos disponibles libres, por ello Windows se espera al momento de apagar el equipo para instalar las actualizaciones que se haya descargado. No es mala ocasión, pero en el caso de trabajar con un portátil y tener que esperar cierto tiempo a que termine para recoger las cosas… personalmente me ha llegado a desquiciar, sobre todo en el caso de estos días del ServicePack1 de Windows7.

Aquí va un truquillo para poder apagar el ordenador sin que instale las actualizaciones.

Tenie...

Ver más

Microsoft Mathematics, el Mathematica simple y gratuito

enero 20, 2011 Posted in  Software, Universidad, Windows | Comments: 2

Cuando alguien estudia y se tiene que enfrentar a cálculos para comprobar soluciones o simplemente llegar hasta un cierto punto más rápido, este tipo de soluciones le viene como anillo al dedo.

Ver más

Decora tu PC en navidad

diciembre 21, 2010 Posted in  Configuraciones, Informatica, Windows | Comments: 1

Llega la Navidad, el ambiente festivo y un sinfín de etcéteras. Se ponen lucecitas en los árboles, en las puertas, todo muy colorido… ¿y por qué no hacer lo mismo en el ordenador?

Busca...

Ver más

Guía: Instalación de SQL Server 2008

diciembre 17, 2010 Posted in  Configuraciones, HowTo | Comments: 0

Siguiendo las entradas de MSDN, ha aparecido una guía muy bien detallada paso a paso de cómo instalar el SQL Server 2008 R2 en Windows Server 2008.

Ver más

Usar tu cuenta de correo para servicios Live (Messenger, Skydrive…)

noviembre 12, 2010 Posted in  Internet, Trucos | Comments: 0

Es evidente que si Microsoft quiere que uses sus servicios Windows Live, esto ha de ser mediante un Live ID (es decir, mediante una cuenta de correo hotmail).

En este post os explicamos cómo convertir cualquier correo electrónico en un Live ID para así poder disfrutar de SkyDrive, Messenger, Live Mesh, Office Online y alguna que otra cosilla más.

Ver más

AquaSnap, mejorando AeroSnap

noviembre 9, 2010 Posted in  Software | Comments: 0

No vamos a ser muy quisquillosos si queremos aumentar la productividad cuando disponemos por ejemplo de un miniportatil con una pantalla de 10″, pero si disponemos de pantallas de 17″… 22″… es muy común tener un solo programa abierto y desperdiciar un alto porcentaje de pantalla. En Windows7 se encuentra AeroSnap, con el cual arrastrando las ventanas a los laterales conseguimos que se peguen y así tener 2 ventanas sin que se solapen.

Si aún así quieres más productividad (no tiene por qué ser productividad exactamente, se puede dar el caso de tener el messenger, facebook y alguna que otra aplicación más… y así se produce poco) dale una oportunidad a AquaSnap.

El programa es bien sencillo de usa...

Ver más