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

1. Способы, требующие действий от пользователя. Существует множество идей CAPTCHA-защиты, отличающихся от классического варианта "введите код, изображенный на картинке". Их можно также разделить на две основные части: задачи, обращающиеся к "рефлексам" пользователя (на узнавание-распознавание), и задачи, обращающиеся к его логике (вопросы, задачи). Первые приятнее для пользователя, т.к. не заставляют его думать.

Аудио-CAPTCHA предлагает пользователю прослушать некую фразу и затем ввести ее. Обычно фраза состоит из проговариваемых цифр, как правило, с варьируемой тональностью, паузами и фоновыми шумами. Преимущество у аудио-CAPTCHA в том, что на такой вопрос сможет ответить пользователь с нарушениями зрения. Недостатки - посетитель должен иметь на компьютере оборудование для воспроизведения звука; распознавание речи - не настолько сложная задача, поэтому степень защищенности такого решения, как правило, невысока. К тому же реализация звуковых искажений довольно требовательна к квалификации программиста и ресурсам сервера. Это ведет к тому, что аудио-CAPTCHA применяется довольно редко и только как альтернатива для слепых пользователей.

Текстовые задачи. Человеку задается вопрос или загадка, на который он должен дать ответ. Ответ нужно либо выбрать из списка, либо ввести в поле. Посколько при выборе из списка вероятность дать правильный ответ наугад довольно велика (1/n, где n - количество вариантов), обычно пользователя заставляют ответить на ряд вопросов, ибо вероятность угадать правильные ответы на несколько вопросов будет произведением вероятностей ответить на каждый из них.

Преимущества: проверка доступна для людей с нарушениями зрения, а также для тех, кто пользуются клиентами, не отображающими изображения.

Недостатки:

· пользователь должен быть хорошо знаком с языком, на котором задаются вопросы (а зачастую и с реалиями и менталитетом коренных носителей языка);

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

Распознавание предметов

Блок схема для генерации CAPTCHA картинки

Блок схема для установки отображаемой CAPTCHA картинки

Блок схема для проверки CAPTCHA картинки

2.3 Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Mask, XPMan;

type

TForm1 = class (TForm)

Image1: TImage;

Label1: TLabel;

MaskEdit1: TMaskEdit;

ButtonTest: TButton;

Button1: TButton;

XPManifest1: TXPManifest;

Button2: TButton;

procedure FormCreate (Sender: TObject);

procedure SetCaptcha;

function TestCaptcha (C: String): Boolean;

procedure ButtonTestClick (Sender: TObject);

procedure Image1Click (Sender: TObject);

procedure Captcha (Code: string);

function RandStr (len: integer): string;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

end;

var

Form1: TForm1;

CurCod: string;

implementation

{$R *. dfm}

// ************************************************************

// Создание формы

procedure TForm1. FormCreate (Sender: TObject);

begin

SetCaptcha;

end;

// ************************************************************

// Клик по картинке, обновление капчи

procedure TForm1. Image1Click (Sender: TObject);

begin

SetCaptcha;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

SetCaptcha;

end;

// ************************************************************

// Генерация капчи

procedure TForm1. SetCaptcha;

begin

CurCod: = RandStr (6);

Captcha (CurCod);

end;

// ************************************************************

// Создание случайной строки

function TForm1. RandStr (len: integer): string;

const

alfa='QWERTYUIOPASDFGHJKLZXCVBNM';

var

i: integer;

begin

randomize;

result: ='';

for i: = 1 to len do

result: =result+alfa [random (length (alfa) - 1) +1];

end;

// ************************************************************

procedure TForm1. Captcha (Code: string);

const

lines = 3;

var

x,y,g: integer;

begin

// Установки картинки

Image1. Canvas. Brush. Color: = clWhite;

Image1. Canvas. Brush. Style: = bsSolid;

Image1. Canvas. FillRect (Image1. Canvas. ClipRect);

// Точки на капче

for x: = 0 to Image1. Width - 1 do

for y: = 0 to Image1. Height - 1 do

if Random (1000) mod 2 = 0 then begin

g: = Random (100) +100;

Image1. Canvas. Pixels [x,y]: = rgb (g,g,g);

end;

// Буквы на капче

Image1. Canvas. Brush. Style: = bsClear;

for x: = 1 to 6 do begin

g: = Random (100) +100;

// Случайный цвет

case Random (3) of

0: Image1. Canvas. Font. Color: = rgb (g,0,0);

1: Image1. Canvas. Font. Color: = rgb (0,g,0);

2: Image1. Canvas. Font. Color: = rgb (0,0,g);

end;

// Случайный шрифт

case random (2) of

0: Image1. Canvas. Font. Style: = [fsBold];

1: Image1. Canvas. Font. Style: = [];

end;

// Случайный размер и положение

Image1. Canvas. Font. Size: = 15 + Random (6);

Image1. Canvas. TextOut ( (x-1) *15+10,random (image1. Height-Image1. Canvas. TextHeight ('1')), Code [x]);

end;

// Линии на капче

Image1. Canvas. Pen. Color: = clBlack;

for x: = 0 to lines - 1 do begin

Image1. Canvas. MoveTo (0, Random (Image1. Height));

Image1. Canvas. LineTo (Image1. Width, Random (Image1. Height));

end;

end;

// ************************************************************ // Проверка

procedure TForm1. ButtonTestClick (Sender: TObject);

begin

if TestCaptcha (MaskEdit1. Text) then

ShowMessage ('Капча верная! ')

else

ShowMessage ('Капча неверная! ')

end;

// ************************************************************

// Функция проверки

function TForm1. TestCaptcha (C: String): Boolean;

begin

Result: = (CurCod = C);

end;

// ************************************************************

procedure TForm1. Button2Click (Sender: TObject);

begin

close;

end;

end.

2.4 Результаты тестирования программы