[Вопрос]

Объясню для чего.
Китайские боты достали
у меня есть список всех айпи адресов принадлежащих китаю
like this

# ipformat.pm: (c) 2005 Boyan Krosnov
# ipformat.pm: using template prefix
# prefix notation
# ipgetintervals.pm: (c) 2005 Boyan Krosnov
# prefix data acquired from http://ip.ludost.net/
# ipgetintervals.pm: datasets list cleared
# ipgetintervals.pm: added cn to the list of datasets
# ipgetintervals.pm: loading file var/country.db
# ipgetintervals.pm: dumping database
58.14.0.0/15
58.16.0.0/13
58.24.0.0/15
58.30.0.0/15
58.32.0.0/11
58.66.0.0/15
58.68.128.0/17

http://ip.ludost.net/cgi/process?cou...ormat_default=
можно ли в таком же формате прописать адреса в админке?
пока что обпиливаю напильником скрипт который из таких адресов быдет выгонять что-то типа
58,14,0,*
58,15,0,*
и т.д

дык в htaccess проще, админка вроде так не позволяет.
ну и поставь рекапчу, у меня ещё ни один бот не прорвался.
а если форум русскоговорящий, то можно и на русском какие-нибудь дополнительные вопросы/ответы замутить.

SirArthur, и через админку, и через .htaccess предлагаемое вами действие очень сильно нагрузит сервер. Лучше используйте другие средства защиты, такие как модуль NoSpam! или система RECaptcha.

Originally Posted by zzzru

SirArthur, и через админку, и через .htaccess предлагаемое вами действие очень сильно нагрузит сервер. Лучше используйте другие средства защиты, такие как модуль NoSpam! или система RECaptcha.

согласен - нагрузит прилично. Но - может быть это только мне так везет, но через recaptca2 китайцы спокойно регистрируются, потом (спустя некоторое время) начинаю свою деятельность.
Я думаю что регистрируют их руками, либо при помощи какого-то OCR софта. После обновления на 3.8 NOSpam перестал работать.
Вообщем вот скрипт:

#!/usr/bin/perl -w
# written by GrayCat 
# Getting filename from command line parameter (no foolproof)
$file = $ARGV[0];

open (InFile, "$file");
foreach $line (<InFile>)
 {
# 58.14.0.0 - 58.25.255.255
  @startnet = ($line =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.\d{1,3} -/);
  @endnet = ($line =~ /- (\d{1,3})\.(\d{1,3})\.(\d{1,3})\.\d{1,3}/);

#  print join(".", @startnet), "\n";
#  print join(".", @endnet), "\n";

  for ( $i = $startnet[0]; $i <= $endnet[0]; $i +=1 )
   {
    if ($startnet[0] != $endnet[0]) { print $i, ".*.*.*\n"; next; };
    for ( $j = $startnet[1]; $j <= $endnet[1]; $j +=1 )
     {
      if ($startnet[1] != $endnet[1]) { print $i, ".", $j, ".*.*\n"; next; };
      for ( $k = $startnet[2]; $k <= $endnet[2]; $k +=1 )
       {
        print $i, ".", $j, ".", $k, ".*\n";
       }
     }
   }

 };
close(InFile);

использовать :

script.pl inputfile.txt > outputfile.txt

Originally Posted by SirArthur

После обновления на 3.8 NOSpam перестал работать.

ИМХО лучше решить эту проблему.

То, что вы предлагаете, я пробывал, и на намного меньшем количестве сетей. Результат по времени отклика сервера и его нагрузке - неудовлетворительный.