Elsper

Решил я тут капчу поменять на некоторых блогах.

Нашел плагин спрашивающий сумму двух чисел.

http://sw-guide.de/wordpress/plugins/math-comment-spam-protection/

Но вот неудобство, его надо устанавливать в шаблон. Это конечно можно сделать за пять минут, но нафига, если можно средствами плагина сделать это автоматически?

Итого покопавшись в исходниках этого плагина и плагина от http://dimoning.ru (который встраивается автоматически) соединил их лучшие стороны, и представляю вам Math Comment Spam Protection Plugin, не требующий установки в шаблон.
elsper.ru/math-comment-spam-protection.zip

Еще один недостаток этого плагина, в том что надо обязательно зайти в настройки и сохранить их. Но с этим я возиться не стал.

Итак все знают как поставить одну ссылку, и как поставить сквозняк.

Но как сделать так чтобы ссылка на каждой странице была разная и при этом не ставить каждую вручную думаю знают не все.

Первым делом нам нужен собственно сам список ссылок. Правда если все ссылки будут вести на одну страницу, то достаточно обзавестись списком ключей, а формирование ссылки приписать в самом пшп коде.

Предположим этот файл назовется kei.txt

Можно конечно сделать просто вывод рандомной ссылки на странице

<?

$f_ar2 = file(‘kei.txt’);  // Связываемся с файлом.

$skokaslov = count($f_ar2); // Узнаем сколько в нем строк

$i = rand(0,$skokaslov); // Делаем рандомное число

echo $f_ar2[$i]; // Делаем вывод строки

?>

Или же можно одной строкой. Смысл один и тот же.

<? $f_ar2 = file(‘kei.txt’); echo $f_ar2[rand(0,count($f_ar2))]; ?>

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

Поэтому я считываю текущий урл, пробегаю по базе уже сохраненных урлов, если текущий урл в базе есть то вызываю ссылку соответствующую позиции урла в базе. Если урла нет, то дописываю его в конец и опять же вызываю ссылку соответствующую позиции урла в базе.

<?

$adres = $_SERVER['REQUEST_URI'].»\n»; //Считываем урл. Я сразу же приписываю знак переноса строки. чтобы потом с ним не возиться.

$f_ar2 = file(‘kei.txt’); // Уже знакомый файл ключей
if ( file_exists(‘site.txt’)){
$f_ar1 = file(‘site.txt’);}  // Та самая база урлов. Встроенна проверка на наличие. Если файла нет, то к нему не будет обращения и не будет ошибки, одна ко же в дальнейшем код скрипта сам его сформирует.

$skokaslov = count($f_ar2);//Так же получаем количество ключей. Это нам пригодится на случай если ключей окажется меньше чем страниц.

$str = -1; // Этакий «ключ» обозначающий что строка в базе урлов не найдена.

for ($i = 0; $i < count($f_ar1); $i++)  // Пускаемся в поиски

if ($adres == $f_ar1[$i]) {  // сравниваем соотвествтует ли текущий урл, урлу в базе
$str = $i;  // Если соответствует то переключаем ключ
echo  $f_ar2[$i%$skokaslov]; // Выводим строчку из списка ссылок. Знак процента обозначает остаток от деления.
break; //Прерываем цикл.
}

if ($str == -1){ // Если ключ так и не переключен, значит в базе урл не найден, а следовательно надо его добавить.
$fp = fopen(‘site.txt’, ‘a’); // Открываем файл на дозапись. Или же создаем если его не было до этого.

fwrite($fp, $adres); // Дозаписываем.

fclose($fp); // Закрываем файл.
echo  $f_ar2[$i%$skokaslov]; // Радуемся жизни. Ведь параметр $i на выходе из цикла как раз соответствует номеру последней строки.
}

?>

Разумеется вокруг строчки echo  $f_ar2[$i%$skokaslov]; можно что нибудь еще дописать на вывод. Ну это думаю понятно.

Замечания, Пожелания?
Если вам понравилось буду рад ссылке

Из минусов, думаю при больших объемах пробежка по списку урлов может нагружать ресурсы… Желающие вполне могут улучшить скрипт, да и вообще взять идею на вооружение.

UPD.

В каментах MrMozg подсказал функцию, с которой поиск по архиву можно реализовать намного проще.

Ну я и реализовал

<?
$adres = $_SERVER['REQUEST_URI'].»\n»;
$f_ar2 = file(‘kei.txt’);
if ( file_exists(‘site.txt’)){
$f_ar1 = file(‘site.txt’);}

$skokaslov = count($f_ar2);

$key = array_search($adres,$f_ar1); // та самая функция.
if ($key > -1) { // если значение есть в массиве то она выдаст его, это будет число больше чем -1, следовательно условие выполнится. А если значение не будет найдено, то уже пофиг, что выдаст функция, она все равно пойдет в else.
echo  $f_ar2[$key%$skokaslov];

}
else
{
$fp = fopen(‘site.txt’, ‘a’);
fwrite($fp, $adres);
fclose($fp);
echo  $f_ar2[count($f_ar1)%$skokaslov];
}

?>

Всем здрасте.

Я в очередной раз решил немного отвлечься от деньгоделания, и попрограммировать просто так

Вынес результат в отдельную статью.

Стереокартинки. Гиперкубы. Стерео-Гиперкубы.

Стерео тессеракт размещенный на википедии по сравнению с моими просто фигня. Неравные длины граней, и более сложный способ просмотра.

Пошарил по рунету нигде больше и нет стерео пар гиперкубов, не считая уже упомянутой картинки на вике, многократно утянутой.

P.S Если вам понравится, поставьте на меня ссылку Ну пажалуйста..

Почему то никогда не любил работать с файловой системой, поэтому код представленный ниже я предпочел бы иметь в готовом виде, а не писать заново при необходимости.

Поэтому оставлю его здесь.

procedure GetAllFiles( Path: string; Lb: TListBox );
var
sRec: TSearchRec;
isFound: boolean;
begin
isFound := FindFirst( Path + ‘\*.*’, faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> ‘.’ ) and ( sRec.Name <> ‘..’ ) then
begin
if ( sRec.Attr and faDirectory ) = faDirectory then
GetAllFiles( Path + ‘\’ + sRec.Name, Lb );
Lb.Items.Add( Path + ‘\’ + sRec.Name );
end;
Application.ProcessMessages;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
end;

И вызов что-нибудь типа:  GetAllFiles( ‘C:\’, listbox1 );

p.s. я его честно где-то стащил.

Здравствуйте.
Давненько не писал.

Чтобы развлечь читателей покажу несколько картинок.

Я уже показывал гиперкубы, так вот теперь я нарисовал множество (фрактал) мандельброта.

Оно выглядит вот так: Читать полностью »