آموزش ها سورس ها و کتابخانه ها

آموزش ایجاد Captcha در برنامه

نوشته شده توسط حامد باقری

بنام خدا و با عرض سلام خدمت شما دوستان عزیز !

با یک آموزش جذاب و کاربردی دیگر در خدمت شما هستیم و در این قسمت میخواهیم کد امنیتی Captcha در برنامه قرار دهیم ! برای شروع ابتدا کتابخانه CaptchaView را از لینک زیر دانلود نموده و آن را در پروژه مورد نظرتان فعال کنید :

دانلود کتابخانه     دانلود سورس

متغیر مربوط به این کتابخانه را در Sub Globals ایجاد کنید :

Dim cp As CaptchaView

با استفاده از گزینه Initialize یک EventName برای آن انتخاب کنید :

cp.Initialize("cp")

حالا باید مشخص کنید که میخواهید کد امنیتی در کجا نمایش داده شود . برای مثال ما یک Panel با نام Captcha ایجاد کرده ایم و میخواهیم کد امنیتی در آن نمایش داده شود . برای این کار از گزینه AddToParent استفاده میکنیم :

cp.AddToParent(captcha,0,0,captcha.Width,captcha.Height)

و با استفاده از گزینه Pattern باید مشخص کنید که چه کاراکتر هایی در تصویر امنیتی نمایش داده شوند . برای مثال در کد زیر میخواهیم حروف کوچک a تا z نمایش داده شوند :

cp.Pattern = "abcdefghijklmnopqrstuvwxyz"

برای ایجاد کد امنیتی میتوانید از حروف کوچک و بزرگ و اعداد استفاده کنید . همچنین از حروف فارسی هم میتوانید استفاده کنید ولی توجه داشته باشید که در خروجی از چپ به راست خوانده میشوند …

با استفاده از گزینه Length میتوانید مشخص کنید چند کاراکتر در تصویر امنیتی نمایش داده شوند :

cp.Length = 5

همچنین با استفاده از گزینه های enableDotBlur و enableLineBlur میتوانید مشخص کنید که خط ها و نقطه ها در تصویر امنیتی نمایش داده شوند یا نه :

cp.enableDotBlur(False)' نمایش نقطه ها در تصویر امنیتی
cp.enableLineBlur(True)' نمایش خط ها در تصویر امنیتی

حالا اگر از برنامه خروجی بگیرید تصویر امنیتی نمایش داده میشود . یک EditText با نام Code در برنامه قرار میدهیم تا کاربر کد امنیتی موجود در تصویر را در آن وارد کند و یک Button با نام Check ایجاد میکنیم تا با کلیک روی آن کد وارد شده بررسی شود :

Sub check_Click 
 If cp.Captcha.SubString2(0,cp.Length) = code.Text.Trim Then
  ToastMessageShow("کد وارد شده صحیح است !",False)
 Else
  ToastMessageShow("کد وارد شده اشتباه است !",False)
  cp.Refresh
  code.Text = ""
 End If
End Sub

همچنین با استفاده از گزینه Refresh میتوانید یک تصویر جدید نمایش دهید :

cp.Refresh

کتابخانه CaptchaView را همراه با سورس میتوانید از لینک زیر دانلود کنید :

دانلود کتابخانه     دانلود سورس

در پایان امیدواریم که این آموزش هم مورد استفاده شما عزیزان قرار گرفته باشد …

موفق باشید !

 

شما هم به کانال تلگرامی سایت ما بپیوندید !
همین حالا کلیک کنید !

درباره نویسنده

نظر بدهید