Вверх ↑
Ответов: 189
Рейтинг: 4
#1: 2010-05-28 07:44:36 ЛС | профиль | цитата
Не знаю, все капчи, которые я видел хорошие, но я буду использовать собственную капчу, так, как в ней цифры создаются по кардинатам в файле +-3 каждая кардината от решения компонента random, также наложние сверху полос и самое главное, что это всё делается на random'е и вероятность взлома ботом минимальна

а вот и капча, созданная по системе Ф.В. (фиг взломаеш)

code_18544.txt

P.s. ссори за непонятную схему
------------ Дoбавленo в 07.44:
Чуть не забыл...

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

маленько доделав получилось вот,что

Add(MainForm,2953706,21,105)
{
link(onCreate,16625765:doSleepMks,[])
}
Add(Img_Point,15527500,504,259)
{
DrawSource=1
Point(Color)
Point(Size)
Point(X)
Point(Y)
link(Bitmap,15464153:Var3,[(510,247)(384,247)(384,282)])
link(Color,6379375:Color,[(517,229)(363,229)])
link(Size,12499390:Random,[(524,159)(543,162)(576,159)])
link(X,3926494:Random,[(531,183)(636,183)])
link(Y,13088675:Random,[(538,200)(709,200)])
}
Add(Random,12499390,570,98)
{
Min=1
Max=3
link(onRandom,3926494:doRandom,[])
}
Add(Random,3926494,630,98)
{
Max=1280
link(onRandom,13088675:doRandom,[])
}
Add(Random,13088675,703,98)
{
Max=1024
link(onRandom,6379375:doRGB,[(746,104)(746,314)(345,314)(345,174)])
}
Add(Random,2793007,329,98)
{
Max=255
link(onRandom,2105411:doRandom,[])
}
Add(RGB,6379375,357,168)
{
link(onRGB,15527500:doDraw,[(447,174)(447,265)])
link(R,2793007:Random,[(363,149)(335,149)])
link(G,2105411:Random,[(370,141)(395,141)])
link(B,13644107:Random,[(377,149)(454,149)])
}
Add(Random,2105411,389,98)
{
Max=255
link(onRandom,13644107:doRandom,[])
}
Add(Random,13644107,448,98)
{
Max=255
link(onRandom,12499390:doRandom,[])
}
Add(Hub,3460842,245,133)
{
OutCount=10
link(onEvent1,2793007:doRandomize,[(282,139)(282,111)])
link(onEvent2,2105411:doRandomize,[(282,146)(282,111)])
link(onEvent3,13644107:doRandomize,[(282,153)(282,111)])
link(onEvent4,12499390:doRandomize,[(415,160)(415,111)])
link(onEvent5,3926494:doRandomize,[(282,167)(282,111)])
link(onEvent6,13088675:doRandomize,[(282,174)(282,111)])
link(onEvent8,2873132:doEvent1,[(399,188)(399,412)])
}
Add(Hub,11562311,819,364)
{
link(onEvent1,2793007:doRandom,[(851,370)(851,73)(317,73)(317,104)])
link(onEvent2,15080785:doValue,[(845,377)(845,356)(667,356)(667,335)])
}
Add(Bitmap,14998229,252,238)
{
HWidth=250
HHeight=100
Point(doCreate)
}
Add(Hub,2873132,539,406)
{
link(onEvent1,14998229:doCreate,[(572,412)(572,335)(240,335)(240,258)])
link(onEvent2,4233303:doRepeat,[(585,419)(585,405)])
}
Add(GetDataEx,15464153,259,277)
{
Angle=3
link(Data,14998229:Bitmap,[(258,282)])
}
Add(Sleep,16625765,112,119)
{
Delay=100
link(onSleep,3460842:doEvent1,[(194,125)(194,139)])
}
Add(Math,5732318,679,399)
{
Op2=1
link(onResult,11562311:doEvent1,[(765,405)(765,370)])
link(Op1,5155326:Var2,[])
}
Add(Memory,15080785,679,329)
{
Default=Integer(0)
}
Add(Repeat,4233303,616,399)
{
Type=1
Op2=Integer(900000)
link(onRepeat,5732318:doOperation,[])
link(Op1,5155326:Var1,[(622,382)])
}
Add(GetDataEx,5155326,679,377)
{
link(Data,15080785:Value,[])
}

P.s.для того, чтоб убрать "рябь" нужно развернуть и свернуть любое окно.

карма: 0

0
файлы: 1code_18544.txt [20.5KB] [188]