Home>Network programming tutorial>ASP tutorial

ASP implementation of addition verification code

Author：Eve Cole Update Time：2025-03-16 04:00:03

This article mainly introduces the implementation of ASP addition verification code, which is an innovation based on the original verification code, and changes the verification code to addition operation. Interested friends can refer to it.

Change the verification code to an addition operation, for example, the verification code shows that 25+64 is equal? , then input 91 can pass the verification.

Let’s take a look at the rendering comparison: Character verification code: → Additive verification code:

advantage:

① Compared with pure character verification codes, this program prevents the automatic recognition of most (more than 99%) advertising machines. Even the Chinese verification code can be recognized by some advertising machines on the market.

② Compared with Chinese verification code, it avoids the hassle of switching the input method when users enter username, password verification code.

Note: This program requires the website space to support ASPJpeg components and fonts of Kaiyi_GB2312.

The code is as follows:

  1. <%
  2. ConstFontColor=&H000000'Font Color
  3. ConstBgColor=&HFFCCFF' Background Color
  4. CallCreatValidCode(GetCode)
  5. SubCreatValidCode(pSN)
  6. Dimx, Jpeg
  7. Randomize
  8. x=Array(1+Int(Rnd()*9),Int(Rnd()*10),1+Int(Rnd()*9),Int(Rnd()*10),0,0,+)
  9. x(4)=x(0)*10+x(1)
  10. x(5)=x(2)*10+x(3)
  11. 'Session(pSN)=CStr(Eval(x(4)&x(6)&x(5)))
  12. Session(pSN)=CStr(x(4)+x(5))
  13. SetJpeg=Server.CreateObject(Persits.Jpeg)
  14. Jpeg.New100,20,BgColor
  15. Jpeg.Quality=100
  16. WithJpeg.Canvas
  17. .Font.Bold=True
  18. .Font.Size=16
  19. .Font.Rotation=0
  20. .Font.Family=KaiTi_GB2312
  21. .Font.Color=FontColor
  22. .PrintText4,3,CStr(x(0))
  23. .PrintText14,3,CStr(x(1))
  24. .PrintText26,3,x(6)
  25. .PrintText38,3,CStr(x(2))
  26. .PrintText48,3,CStr(x(3))
  27. .Font.Rotation=15
  28. .PrintText55,3, etc.
  29. .PrintText70,3,
  30. .PrintText85,3,?
  31. EndWith
  32. 'No caching
  33. Response.ContentType=image/jpeg
  34. Response.Expires=-9999
  35. Response.AddHeaderpragma,no-cache
  36. Response.AddHeadercache-ctrol,no-cache
  37. Response.AddHeaderContent-Disposition,inline;filename=vcode.jpg
  38. Jpeg.SendBinary
  39. Jpeg.Close
  40. SetJpeg=Nothing
  41. EndSub
  42. %>
?
Related Articles