Нужно е просто да си направим функция, която приема за параметър String, изобразява го като картинка и ни връща Bitmap. Можем да си начертаем и малко шарени линийки за да замажем текста и това е!



Public Shared Function DrawText(ByVal text As String) As Bitmap

Try

Dim b As Bitmap = New Bitmap(1, 1)

Dim f As Font = New Font("Verdana", 24)

Dim graphics As Graphics = graphics.FromImage(b)

"измерваме големината на текста с размер 24, който създаваме по-горе и декларираме
"нов Bitmap с тези височина и ширина
Dim width As Integer = CInt(graphics.MeasureString(text, f).Width)
Dim height As Integer = CInt(graphics.MeasureString(text, f).Height)

b = New Bitmap(b, New Size(width, height))

graphics = graphics.FromImage(b)
graphics.Clear(Color.DarkBlue)

Dim rnd As Random = New Random()

Dim points(60) As Point

"Създаваме произволни координати, които ще ползваме за да начертаем
"graphics.DrawBeziers(pen0, points) по-късно

For i As Integer = 0 To points.Length - 1
points(i) = New Point(CInt(rnd.Next(width)), CInt(rnd.Next(height)))
Next


"създаваме различни Pen с които да нашарим нашия Bitmap
Dim pen0 As Pen = New Pen(Color.PaleVioletRed)
pen0.Width = 2
pen0.DashStyle = Drawing2D.DashStyle.Dot

Dim pen1 As Pen = New Pen(Color.OldLace)
pen1.Width = 3
pen1.DashStyle = Drawing2D.DashStyle.Dash

Dim pen2 As Pen = New Pen(Color.PaleGreen)
pen2.Width = 4
pen2.DashStyle = Drawing2D.DashStyle.Dash

Dim pen3 As Pen = New Pen(Color.PaleGreen)
pen3.Width = 4
pen3.DashStyle = Drawing2D.DashStyle.Dash

Dim pen4 As Pen = New Pen(Color.PaleGreen)
pen4.Width = 4
pen4.DashStyle = Drawing2D.DashStyle.DashDotDot

"и нашарваме картинката
graphics.DrawLine(pen1, 0, 1, height, width)
graphics.DrawLine(pen2, 0, 1, width, height)
graphics.DrawLine(pen3, 5, 1, rnd.Next(height), rnd.Next(width))
graphics.DrawLine(pen4, 1, 5, rnd.Next(height), rnd.Next(width))
graphics.DrawBeziers(pen0, points)
graphics.DrawString(text, f, New SolidBrush(Color.White), 0, 0)
graphics.Flush()
" връща получения Bitmap с нашия CAPTCHA текст
Return b
Catch ex As Exception
Throw (New Exception("Captcha.vb > DrawText()", ex))
End Try

End Function
Сега остава да направим една ASPX страница която ще съдържа единствено Page_Load събитие в codebehind файла:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try
"извикваме функцията, която връща картинка с текста
Dim b As Bitmap = Captcha.DrawText(Request.QueryString("text"))

Dim tempStream As System.IO.MemoryStream = New System.IO.MemoryStream()
b.Save(tempStream, System.Drawing.Imaging.ImageFormat.Gif)

Response.AddHeader("Content-Disposition", "inline; filename=captcha.gif")
Response.ContentType = "gif"
Response.BinaryWrite(tempStream.ToArray())
Catch ex As Exception
Log(ex, "GetCaptcha.aspx.vb > Page_Load()", "Request.QueryString(text) = " & Request.QueryString("text"))
Throw New Exception("GetCaptcha.aspx.vb > Page_Load()", ex)
End Try
End Sub

Тази страница ще използваме по-късно като ImageUrl на Image control в страницата където искаме да покажем нашите анти-бот цифрички и текст:)

Protected Sub DisplayCaptcha()
"създаваме произволно число (в случая, може и текст), което запазваме като
"ViewStatе("captcha") за да го сравним по-късно с това което е въвел потребителя
Dim rnd As Random = New Random()
ViewState("captcha") = rnd.Next(10000)
ImageCaptcha.ImageUrl = "GetCaptcha.aspx?text=" & ViewState("captcha")

End Sub
И това е! Както виждате е съвсем лесно да направим собствена анти бот CAPTCHA система, без да е нужно да ползваме готови и дори платени компоненти.

Доброго времени суток!У меня есть новость магазину он-лайн Тогда читайте новость - <a href=http://soft.ahtuba.com/user/latMiltaliets/>купить куртку женскую </a> штаны галифе мужские <a href=http://sk-avtoparts.ru/user/Impepsyaffelf/>купить платье в горох </a> фото рюкзак купить <a href=http://aslegalse.narod2.ru/>платья со схемами </a> молодежное пальто мужское ... Всем пока рад был сообщить...
.:::.
<a href=http://kamagra-paypal-online.blog.hr/>Kamagra hinta </a> - Kamagra erection : delivery Cheap Kamagra approval overnight mexican purchase : <a href=http://kamagra-oral-jelly.blog.hr/>lowest price Kamagra Cheap next day </a> - Buy Kamagra medication online

Доброго времени суток!У меня есть хорошая новость Тогда читайте новость - <a href=http://goldenbody.tomsk.ru/user/coftbleartoob/>бесплатно скачать выкройки платьев </a> casual одежда <a href=http://www.1on1amateur.com/user/mesedulaMal/>распродажи сейчас </a> бижутерия в запорожье <a href=http://clegaloc.narod2.ru/>мужские кофты </a> рубашки приталенные мужские ... Успехов Вам!
.:::.
<a href=http://kamagra-uk.blog.hr/>Cheap Kamagra for free </a> - Kamagra Oral Jelly Order pharmacy : Generic online Kamagra for saturday delivery : <a href=http://buy-no-prescription-kamagra.blog.hr/>Cheap Kamagra medication </a> - Kamagra UK Cheap genuine

Привет!У меня есть новость магазину он-лайн Тогда читайте новость - <a href=http://svscomics.com/user/useseffolmemo/>ювелирная бижутерия </a> подростковая одежда <a href=http://bananator.org/user/Twerysype/>интернет магазин дорогой одежды </a> купить шорты в интернет магазине <a href=http://svelagolez.narod2.ru/>купить платье sherri hill </a> заказ одежды по интернету ... Хороших Вам покупок!
.:::.
<a href=http://online-kamagra.blog.hr/>Kamagra Indian </a> - Order Generic Kamagra India best price : day Kamagra next UK : <a href=http://kamagra-express-shipping.blog.hr/>Buying Kamagra online UK </a> - Super Kamagra tablets ajanta pharma

Привет Всем!У меня есть новость магазину он-лайн Тогда читайте новость - <a href=http://www.mqv.de/mqvbb/member.php?action=profile&uid=81739>китайская бижутерия оптом </a> модные платья <a href=http://xn----itbkmfcfqqex1gl.xn--p1ai/user/DeariaErype/>купить стоковую одежду </a> модные футболки <a href=http://www.lamoda.kiev.ua/>купить штаны афгани </a> обтягивающие леггинсы ... Всем пока рад был сообщить...
.:::.
<a href=http://kamagra-fedex.blog.hr/>Kamagra Mexico </a> - Buy Generic online Kamagra drug store : Kamagra prescription online : <a href=http://buy-no-prescription-kamagra.blog.hr/>Kamagra Canada </a> - online consultation Kamagra overnight no script

Привет!Оформить заказ выгодный для Вас! Тогда читайте новость - <a href=http://pyku.net/user/Aparlorma/>чай вдвоем белое платье </a> женские полусапожки <a href=http://xn--b1agcrakcpq4ewdg.xn--p1ai/user/TilaDreabssib/>купить модную женскую одежду </a> магазин мужской одежды недорого <a href=http://dejavu.ua/>праздничные платья для девочек купить </a> сарафаны лето 2012 ... Всем пока рад был сообщить...
.:::.
<a href=http://kamagra-oral-jelly.blog.hr/>Kamagra Oral Jelly free shipping sildenafil citrate </a> - lowest price for Kamagra Online overnight delivery : Kamagra distributors : <a href=http://kamagra100.blog.hr/>Kamagra 100 mg </a> - Kamagra Oral Jelly new zealand

Доброго времени суток!Хотите заказать одежду на выгодных условиях? Тогда читайте новость - <a href=http://downextra.eu/user/glycleVen/>каталоги одежды 2012 2013 </a> магазин кошельки женские <a href=http://teendolls.ru/user/Cemyaltenna/>подскажите интернет магазин одежды </a> одежда больших размеров интернет магазин <a href=http://www.lamoda.kiev.ua/>костюм русалки купить </a> купить солнцезащитные очки ... Успехов Вам!
.:::.
<a href=http://kamagra-paypal-online.blog.hr/>Kamagra directly India blister </a> - viagra Kamagra offers erectile dysfunction : Kamagra overnight delivery fed ex : <a href=http://buy-kamagra.blog.hr/>order Kamagra overnight fed ex </a> - Canada pharmacy Kamagra

Доброго времени суток!У меня есть новость магазину он-лайн Тогда читайте новость - <a href=http://www.chimmashexport.ru/user/Glonnalit/>одежда и обувь украина </a> юбки женские купить <a href=http://worldfootball.us/forums/member.php?action=profile&uid=13642>купить копии брендовой одежды </a> вязание платья туники <a href=http://rediskin.net/user/CastRetabelia/>вечерние платья николаев </a> обувь для купания купить ... Успехов Вам!
-====-
<a href=http://100mg-kamagra.blog.hr/>Kamagra tablets UK </a> - 100mg online Buy Kamagra :.Cheap Kamagra for sale .:<a href=http://kamagra-fedex.blog.hr/>lowest price Kamagra costs US </a> - Kamagra buprenorphin

Привет!Хотите заказать одежду на выгодных условиях? Тогда читайте новость - <a href=http://cerkva.cv.ua/user/Gaxfeasia/>платья дешево </a> детская одежда брендовая <a href=http://www.lamoda.kiev.ua/#элитная-одежда-интернет-магазин»>элитная одежда интернет магазин</a> интернет магазин мужской одежды китай <a href=http://bestask.ru/user/COFliliapaype/>купить рубашку в интернет магазине </a> интернет магазин детской одежды ... Успехов Вам!
.:::.
Discount for Christmas 5-12% <a href=http://kamagra-express-shipping.blog.hr/#Kamagra-tablets-supplier-UK»>Kamagra tablets supplier UK</a> - Kamagra shipping : find Kamagra for sale on line : Discount for Christmas re 7% <a href=http://kamagra-prices.blog.hr/#Online-purchase-Kamagra-delivered-overnight»>Online purchase Kamagra delivered overnight</a> - Kamagra orange

Привет!Хотите купить одежду не выходя из дому? Тогда читайте новость - <a href=http://hk.takemetogreatdeals.com/wp-content/plugins/zingiri-forum/mybb/member.php?action=profile&uid=57209>купить футболку в москве </a> магазин мужских рубашек <a href=http://www.lamoda.kiev.ua/#интернет-магазин-одежды-бэмби»>интернет магазин одежды бэмби</a> ляпис в платье <a href=http://worldofwarplanes-chity.ru/user/Stuhcauth/>платье широкое </a> очки солнцезащитные ... Хороших Вам покупок!
.:::.
Discount for Christmas <a href=http://kamagra-now-online.blog.hr/>kamagra online pharmacy </a> - Order Kamagra Online Generic : Pattaya Kamagra : Discount for re 5 7 % <a href=http://now-kamagra-100mg.blog.hr/>official site of kamagra </a> - Bangkok Kamagra

Привет!Хотите купить одежду не выходя из дому? Тогда читайте новость - <a href=http://serial-boom.ru/user/Nalljaics/>быстрое платье </a> купить кожаную куртку в киеве <a href=http://www.lamoda.kiev.ua/#платье-для-первой-леди»>платье для первой леди</a> качественная одежда интернет магазин <a href=http://j-autos.ru/user/Fexidiods/>выкройки платьев из трикотажа </a> мужская куртка ... Успехов Вам!
-====-
Discount for Christmas - <a href=http://get-kamagra.blog.hr/>Kamagra 100mg sydney </a> - get Kamagra without a prescription or doctor :.treat impotence with kamagra products .: Discount for Christmas 7 5 % == <a href=http://discounted-kamagra.blog.hr/>kamagra gel cheap </a> - Kamagra Oral Jelly consulate