КАПЕТАН генерације у Перл користећи Аутхен:: Цаптцха

Календар Октобар 7, 2009 | Постед би димио

генерације Цаптцха за Перл Дао сам алгоритам и спреман код за генерисање слике верификацију (САПТЦХА) за Перл, који се реализује уз помоћ библиотеке Слика:: Магија (обезбеђује интерфејс између Перл и већина ИмагеМагицк). Сада желим да кажем о раду са библиотеком Аутхен:: цаптцха, од интеракције са лакше, али је изгубио флексибилност опције генерисаних слика. Успут, постоји флексибилност у библиотеци ГД:: СецуритиИмаге, али отстутствует једноставан механизам за проверу резултата корисничког уноса (овај недостатак би требало да буде без ГД:: СецуритиИмаге:: АЦ - "Легура" Аутхен:: Цаптцха и ГД:: СецуритиИмаге, који Ја увек покушати и рећи ће вам о резултатима).

Перл код за генерисање слике КАПЕТАН 

 # / Уср / бин / перл!
 употреба Аутхен:: Цаптцха;
 употреба Дигест: КВ МД5 (мд5_хек);
 мој $ цап_дата_фолдер = 'тмп / капетан'; # Неће бити текстуални фајл, са кодова КАПЕТАН
 мој $ цап_оут_фолдер = 'тмп / оутпутцаптцха'; # Ево проверите слика КАПЕТАН
 мој $ цап_ленгтх = 4; # Колико ће се састојати карактера Цаптцха
 мој $ цаптцха = Аутхен:: Цаптцха-> нев (дата_фолдер => $ цап_дата_фолдер, оутпут_фолдер => $ цап_оут_фолдер,);
 мој $ мд5сум = $ цаптцха-> генерате_цоде ($ цап_ленгтх);

Овај код ће створити скуп знакова ће генерисати слике на основу њега и да се вратите МД5 хеш за њега. Наш следећи задатак - да проверите ушао корисника сгенерированномуиу код соотвтетствие.

Перл код за проверу унете вредности КАПЕТАН

Да бисте проверили корисник унео вредности капетан да се израчуна његов МД5 хеш (посебно за ову библиотеку користи Дигест: МД5). 

 мој $ мд5сум = мд5_хек ($ цап_инпут_валуе); # Вицхслиаем мд5 хасх корисника унос
 мој $ ресулт = $ цаптцха-> цхецк_цоде ($ цап_инпут_валуе, $ мд5сум); # Враћамо се распрсне на провери

Резултати теста дати су у документацији за Аутхен:: цаптцха, али ја ћу их дупликат испод:

1: Усвојено
0: Шифра не проверава (датотеку грешка)
-1: Фаилед: код истекао
-2: Фаилед: неважећи код (не у базу)
-3: Фаилед: неисправан код (шифра не одговара гробница)

Дакле, једноставно да услови рада, у зависности од резултата теста. Као комад торте :)

Више о сличним темама:

Категорија Категорије: Интернет , Програмирање | Надимак Тагс: , , , | Коментари Нема коментара

Допуст један Одговор