Реклама Опции

[vitt_vox]

<описание>
<связь>

[Altair]

Итак чем отличается эта реклама от обычной? Ура, боты научились региться!
Стоит ИМХО ввести более сложную картинку для защит от автоматической регистрации...

[arhimag]

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

Сообщение отредактировано: arhimag - 30.12.2006 1:52

[Bokul]

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

Давай На чем написан?

[volvo]

Я по-моему где-то давал ссылку на код, который распознает 95% всех существующих на данный момент защит (в виде картинок)... Правда та программа - платная, 400 баксов по-моему стоит, но мало ли, может поломали? Тогда спасу не будет...

[Altair]

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

[мисс_граффити]

Или делать защиту в виде вопросов...
Или не просто "введите число с картинки", а "введите сумму цифр" (причем менять задание: сумму первой и третей, сумму восьмой и шестой...)

[arhimag]

Код

a:=1; b:=1; c:=2; // по умолчанию, а=1 - средняя, b=1 - большая, с=2 - маленькая

Определения положения каждой из 3-х цифр.

// 1 цифра
for x:=1 to 13 do
    if img1[1,x]=clblack then // нам встретился черный цвет, значит…
        a:=2; // первая цифра большая
// 2 цифра
for x:=1 to 13 do
    if img2[4,x]=clblack then
        b:=2; // 2 цифра - средняя
// 3 цифра
for x:=1 to 13 do
    if img3[4,x]=clblack then
        c:=3; // третья цифра средняя
// 3 цифра
for x:=1 to 13 do
    if (img3[1,x]=clblack) and (img3[14,x]=clblack) then
        c:=4; // 3 цифра большая
// 3 цифра
for x:=1 to 13 do
     if (img3[15,x]=clblack) and (img3[4,x]=clwhite) then
         c:=1; // 3 цифра косая

(автор перепутал x и y ?.. --прим. редактора)
ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ
ХХХХХХХХХХХХХХХХХХХХХХХ

Имея базу для сравнения, можно приступать к распознанию цифр.

for d:=1 to 3 do begin // 1..3 цифра
    if (a=1)and(d=1) then begin // рассматриваем средний размер 1 цифры
        for j:=0 to 9 do begin // 0..9 цифр
            Z:=0; // число совпадений
            for x:=0 to 17 do
                for y:=0 to 14 do begin
                    // Проверяем, является ли цифра - нулем
                    if j=0 then begin
                        if img1[x,y]= cifra0[x,y] then Z:= Z +1; // совпадение
                        if Z =270 then S1:=j; // Первая цифра 0!
                    end;
                    // .. проверяем остальные Cifra0-9 цифр
                end;
        end;
    if (a=2) and (d=1) then begin // рассматриваем большой размер 1 цифры
        // .. массив cifraB0[x,y] // cifraB - массив из больших цифр
        // .. проверяем остальные CifraB0-9 цифр

    end;
end;

// ..проверяем для 2 и 3 цифры, S2 и S3

вот кусок кода, как общеал, полный исходник не нашел

[Altair]

вот кусок кода, как общеал

зачем?

[arhimag]

что зачем?

[Altair]

Зачем нужен этот код?

[volvo]

Олег, а может, правда, сделать как на Арбузе (десяток вопросов придумать только) ? Для человека - доступно, а для ботов (пока, по крайней мере) непроходимо...

[arhimag]

На одном форуме была такая штука:
числовая картинка а ввести надо буквы русские с этими номерами, тоесть:
число 1 2 1 3 2 1
надо ввести а б а в б а

[Lapp]

числовая картинка а ввести надо буквы русские с этими номерами, тоесть:
число 1 2 1 3 2 1
надо ввести а б а в б а

Вот это для бота как раз плевое дело..
Но хотел бы я посмотреть на человека, который вводит строку с такими номерами:
28 31 23 18 12 ...
))

[klem4]

просто в тему ...

Вот такая картинка сейчас на rapideshare.com

такое мне кажется мло какому боту под силу Хотя кто его знает ...

[Altair]

Главное не переборщить:

Это с форума "Естественные науки" на Исходниках.ру

[mamont001]

А зачем картинку ?
Так как ето форум о паскале, то можно задавать вопрос по синтаксису ,заодно избавимся от тех ,кто не знает даже как бегин писать...
Вопросы несложные ,типа :" какой буквы нехватает в етом слове:'repat'

[klem4]

заодно избавимся от тех ,кто не знает даже как бегин писать...

Можно тогда сразу по ООП, WinAPI и ассемблеру вопрос задать, избавимся и от них сразу

Не забывай, когда-то ты тоже не знал как begin писать

[mamont001]

Когда я не знал как писать бегин ,мне не нужен был паскаль