发帖 回复
返回列表
  • 3359阅读
  • 0回复

asp彩色随机码的生成 [复制链接]

 上一主题 下一主题
离线cai
管理员
 
只看楼主 倒序阅读 0楼 发表于: 2005-09-26
代码:

复制代码
  2. <%
  3. Option Explicit
  4. Response.Expires = 0
  5. Response.AddHeader "Pragma","no-cache"
  6. Response.AddHeader "cache-ctrol","no-cache"
  7. Response.ContentType = "Image/BMP"
  8. Randomize Timer
  10. Dim Text_Data(9),Text_Len,Int_Temp(),I,j,k,Int_Temp2
  12. ''***** 参数配置区 *****
  14. Text_Len = 4 ''验证码长度(支持1-25位)
  16. ''**********************
  18. ReDim Int_Temp( Text_Len - 1 )
  20. Text_Data(0) = "00000000000001111000001100110000110111000011011100001100110000111011000011101100001100110000011110000000000000"
  21. Text_Data(1) = "00000000000000011000000011100000111110000000011000000001100000000110000000011000000001100000000110000000000000"
  22. Text_Data(2) = "00000000000001111000001100110000110011000000001100000001100000001100000001100000001100000000111111000000000000"
  23. Text_Data(3) = "00000000000001111000001100110000110011000000001100000011100000000011000011001100001100110000011110000000000000"
  24. Text_Data(4) = "00000000000001100000000110000000011011000001101100000110110000110011000011111110000000110000000011000000000000"
  25. Text_Data(5) = "00000000000011111100001100000000110000000011000000001111100000000011000000001100000001100000111100000000000000"
  26. Text_Data(6) = "00000000000000111000000011000000011000000011111000001100110000110011000011001100001100110000011110000000000000"
  27. Text_Data(7) = "00000000000011111100000000110000000110000000011000000011000000001100000001100000000110000000011000000000000000"
  28. Text_Data(8) = "00000000000001111000001100110000110011000011101100000111100000110111000011001100001100110000011110000000000000"
  29. Text_Data(9) = "00000000000001111000001100110000110011000011001100001100110000011111000000011000000011000000011100000000000000"
  31. ''下面随机生成各位验证码
  32. Session("Num") = ""
  33. For I = 0 To Text_Len - 1
  34.   Int_Temp(I) = Int(Rnd * 10)
  35.   Session("Num") = Session("Num") + Mid("0123456789",Int_Temp(I)+1,1)
  36. Next
  38. ''下面输出文件头部分
  39. Int_Temp2 = (Text_Len - 1) \ 4 * 220 + ((Text_Len - 1) / 4 - (Text_Len - 1) \ 4 * 4) * 44
  40. Response.BinaryWrite ChrB(&H42) & ChrB(&H4D)
  41. Response.BinaryWrite ChrB(((Int_Temp2 + 206) / 256 - (Int_Temp2 + 206) \ 256) * 256) & ChrB((Int_Temp2 + 206) \ 256)   ''特殊位
  42. Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H76) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H28) & ChrB(0) & ChrB(0) & ChrB(0)
  43. Response.BinaryWrite ChrB(Text_Len * 10)   ''特殊位
  44. Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&HB) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H1) & ChrB(0) & ChrB(&H4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
  45. Response.BinaryWrite ChrB(((Int_Temp2 + 88) / 256 - (Int_Temp2 + 88) \ 256) * 256) & ChrB((Int_Temp2 + 88) \ 256)   ''特殊位
  47. Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(16) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(16) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(&H80) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(0) & ChrB(&H80) & ChrB(0)
  48. Response.BinaryWrite ChrB(&H80) & ChrB(&H80) & ChrB(0) & ChrB(0) & ChrB(&H80) & ChrB(&H80) & ChrB(&H80) & ChrB(0) & ChrB(&HC0) & ChrB(&HC0) & ChrB(&HC0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(&HFF) & ChrB(0) & ChrB(&HFF) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(0) & ChrB(&HFF) & ChrB(0) & ChrB(&HFF) & ChrB(&HFF) & ChrB(0) & ChrB(0) & ChrB(&HFF) & ChrB(&HFF) & ChrB(&HFF) & ChrB(0)
  50. ''下面输出图片数据
  51. For i = 10 to 0 Step -1
  52.   For j = 0 to Text_Len - 1
  53.     For k = 1 to 9 Step 2
  54.       If Mid(Text_Data(Int_Temp(j)) , i * 10 + k , 1) = "0" Then Int_Temp2 = Get_BackColor() * 16 Else Int_Temp2 = Get_ForeColor() * 16
  55.       If Mid(Text_Data(Int_Temp(j)) , i * 10 + k + 1 , 1) = "0" Then Int_Temp2 = Int_Temp2 + Get_BackColor() Else Int_Temp2 = Int_Temp2 + Get_ForeColor()
  56.       Response.BinaryWrite ChrB(Int_Temp2)
  57.     Next
  58.   Next
  59.   Int_Temp2 = (Text_Len / 4 - Text_Len \ 4) * 4
  60.   Select Case Int_Temp2
  61.   Case 1
  62.     Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0)
  63.   Case 2
  64.     Response.BinaryWrite ChrB(0) & ChrB(0)
  65.   Case 3
  66.     Response.BinaryWrite ChrB(0)
  67.   End Select
  68. Next
  70. Function Get_BackColor()
  71. ''得到一个背景色
  72. If Int(Rnd * 30) = 0 Then ''注：此处的 Rnd * 30 是决定背景杂色的多少，值越大，则杂色越少，图片越容易看清楚
  73.   Get_BackColor = CInt(Mid("00021209",Int(Rnd * 4) * 2 + 1,2))
  74. Else
  75.   Get_BackColor = CInt(Mid("081515151515",Int(Rnd * 6) * 2 + 1,2))
  76. End If
  77. End Function
  79. Function Get_ForeColor()
  80. ''得到一个前景色
  81. Get_ForeColor = CInt(Mid("00021209",Int(Rnd * 4) * 2 + 1,2))
  82. End Function
  84. %>


使用的时候:
使用 Session("Num") 比较
grant all privileges on *.* to 'a'@'localhost' identified by 'a' with grant option;flush privileges;
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个