Плагин математической капчи.

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

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

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

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


Автор: Elsper.ru


VN:F [1.9.14_1148]
Rating: 0.0/10 (0 votes cast)

Как поставить с разных страниц разные ссылки.

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

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

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

Предположим этот файл назовется 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];
}

?>


Автор: Elsper.ru


VN:F [1.9.14_1148]
Rating: 10.0/10 (2 votes cast)

Delphi. Получение списка всех файлов в папке и ее подпапках.

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

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

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. я его честно где-то стащил. 🙂


Автор: Elsper.ru


VN:F [1.9.14_1148]
Rating: 8.0/10 (7 votes cast)

Скрипт, упрощающий смену ссылок.

В комментах к прошлой записи HenzO написал

Мне бы хотя бы один скрипт, который на главной каждого сайта ставит ссылку, а если нужно чтоб сразу все им же и убрать можно было)

Сказано, сделано.

Если я конечно правильно понял. 🙂

Самое просто что пришло на ум это:

Continue reading «Скрипт, упрощающий смену ссылок.»


Автор: Elsper.ru


VN:F [1.9.14_1148]
Rating: 0.0/10 (0 votes cast)

О программирование, ты бабло!

Итак нафиг нужно программирование?

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

Для автоматизации

(да, вот так зеленым голосом и говорю)

Все мы (ну почти все) знаем где можно достать денежку. Не в смысле с полки, а в смысле с инета.
Это и сапа/лиекс, и контекст, и смс-ки, и прочие более узкотематичные вещи.

И что же останавливает нас на пути к мировому господству? Continue reading «О программирование, ты бабло!»


Автор: Elsper.ru


VN:F [1.9.14_1148]
Rating: 0.0/10 (0 votes cast)
Страница 3 / 4« 1 2 3 4 »

Спoнcopcкиe ссылки