Замучали скамеры на знакомствах

В дупель заеимучали спамеры-скамеры афро-невесты: "Я вдова, сижу в Африке.. у меня миллионы баков.. Помогите мне уехать из страны и получить деньги. Я вас сильно любить."

Я не расист, но афро-америконо-нигеры уже достали. Регистрятся пачками и спамят спамят..

На сам сайт наверное ставить не надо, а вот в регистрацию нужно.

Для сайтов знакомств и соц. сетей.

Базу периодически качаем тут

http://software77.net/cgi-bin/ip-country/geo-ip.pl?action=downloadZ

функция оттуда же.

Ставим в начало регистрации

подправляем путь к файлу *.csv

<?

function countrybyip($ip)

{

$ip=sprintf("%u", ip2long($ip));

$low = 0;

$csvfilename="IpToCountry.csv";

$fp = fopen($csvfilename, "r");

fseek($fp, 0, SEEK_END);

$high = ftell($fp);

while ($low <= $high)

{

$mid = floor(($low + $high) / 2);

fseek($fp, $mid);

if ($mid != 0) $line=fgets($fp);

$ipdata=fgetcsv($fp,100);

if ($ip >=$ipdata[0] && $ip<=$ipdata[1]) $low=999999999;

elseif($ip >$ipdata[0]) $low = $mid + 1;

else $high = $mid - 1;

}

fclose($fp);

$line='';

return $ipdata[4];

}

//Zimbabwe (ZW) Zambia (ZM) Uganda (UG) South Africa (ZA) Nigeria (NG) Mauritius (MU) Senegal (SN)

$ban_array = array('ZW','ZM','UG','ZA','NG','MU','SN');

if ( in_array(countrybyip($_SERVER['REMOTE_ADDR']),$ban_array) || in_array(countrybyip($_SERVER['HTTP_X_FORWARDED_FOR']),$ban_array) ) {echo 'Пошла в ***! Заеимучала меня уже в дупель афро-синегальская корова! Чтоб ты покрылась вся бородавками! Из-за тебя я старый, больной человек, потерял покой и вынужден сидеть и писать на серче всякую хрень! А оно мне надо?!!!!'; exit;}