Shahryar (18-10-08)
با سلام!
Captcha يك تصوير شامل حروف و اعداد در هم ريخته است كه از آن براي مقابله با ربات هاي اسپم استفاده مي شود زيرا محتواي اين تصوير را فقط انسان مي تواند بخواند.
قصد ما در اين تاپيك اين است كه نحوه ي ساخت Captcha در VB.Net و استفاده از آن را در موارد مختلف فرا بگيريم.
براي ساخت اين گونه كد ها، يك رشته ي دلخواه انتخاب مي كنيم و توسط Graphics.DrawString رشته را در يك مختصات تصادفي در يك Bitmap رسم مي كنيم. سپس Bitmap ساخته شده را با يك PictureBox به كاربر نشان مي دهيم.
كاربر بر اساس كد امنيتي نشان داده شده مقداري را در يك فيلد وارد مي كند. اگر مقدار وارد شده برابر رشته ي دلخواه ما بود پس كاربر كد را به درستي تشخيص داده است.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
براي به دست آوردن مختصات تصادفي معمولا" يك متغير از نوع Random تعريف مي كنند و بدين وسيله مختصات كاركتر در Bitmap را به دست مي آورند.
من بر اين اساس يك نرم افزار ساختم كه كد آن شما در ساخت نرم افزار مشابه و البته كامل تر ياري مي كند:
نرم افزار TCaptcha يك نرم افزار ساده براي ساخت Captcha هاي تصادفي است. البته من در آن اصلا از Random استفاده نكردمبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید :
برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
دانلود همراه با سورس VB.Net 2008
لينك مستقيم
20 كيلوبايت
اميدوارم برايتان مفيد باشد!
هر گونه مشكلي بود در خدمتم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
با سپاس
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
آخرین ویرایش توسط ravegoat در تاریخ 19-11-08 انجام شده است
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
Shahryar (18-10-08)
با سلام
در اين پست سورس هاي VB.Net ديگري رو در مورد Captcha قرار مي دم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
من اين سورس ها رو به سه دسته تقسيم كردم:
دسته ي اول:
سورس هايي كه Captcha رو بر اساس متني كه شما به آن ها مي ديد درست مي كنند.
دسته ي دوم:
يه سورس Captcha Killer (تست نشده)
دسته ي سوم:
سورس هايي كه Captcha رو خودشون به طور تصادفي درست مي كنند.
تمامي اين كد ها رو در اين جا پيوست كردم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
با سپاس
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
'چو ایران نباشد، تن من مباد
Dim Armin As Iranian
If Iran.Enabled = False Then Armin.Enabled = False
1 کاربر در حال مشاهده این موضوع. (0 عضو و 1 میهمان)
Bookmarks