使用Lua GD库动态生成验证码图片(2)

在前一篇文章中初步的实现了验证码的随机生成，觉得很容易被破解，因此加了一些干扰；

鹤冲天建议使用表达式作为验证码，即使破解程序识别了验证码，也要计算结果才能通过验证，在一定程度上增加了破解难度。

因此我对代码进行了重新整理，通过控制运行时配置选项来达到不同效果。

现在主要做到了：

（1）字符内容随机（普通字符串或表达式）

（2）每个字符的字体随机

（3）每个字符大小随机

（4）每个字符倾斜角度随机

（5）干扰线条随机

除了（4）其他都可以通过配置来控制。

下面是代码，有详细的注释，就不多说了：

  1  require ( " gd " )
  2  require ( " lfs " )
  3 
  4  -- ---------------------------------------------------------------------------------------------------------------------------------
  5  -- 运行配置项
  6  -- ---------------------------------------------------------------------------------------------------------------------------------
  7  -- 字体：-1-使用gd.FONT_GIANT字体;1-使用随机字体;其他-使用“fonts”中第一个字体
  8  -- 字体预先在变量“fonts”中定义；如果fonts没有值，将搜索系统中的所有字体，字体路径在“FONT_PATH”中预定义
  9  FONT = 1
 10 
 11  -- 每个字符字体随机：1-是，其他-否
 12  -- 仅当“FONT”值为“1”时，本变量起作用
 13  FONT_RANDOM_CHAR = 0
 14 
 15  -- 每个字符字体大小是否随机：1-是，其他-否
 16  -- 仅当FONT^=-1时起作用
 17  FONT_SIZE_RANDOM = 1
 18 
 19  -- 是否增加线条干扰：1-是；其他-否
 20  XLINE_FALG = 1
 21 
 22  -- 干扰线条的最多条数
 23  -- 仅当“XLINE_FALG”的值为“是”是，本变量起作用
 24  XLINE_LIMIT = 6
 25 
 26  -- 验证码类型：TEXT-字符串；EXPRESSION-表达式
 27  MARK_TYPE = " TEXT "
 28  -- MARK_TYPE="EXPRESSION"
 29 
 30  -- 字符个数：仅当“MARK_TYPE”=“TEXT”时，本变量起作用
 31  TEXT_NUM = 6
 32 
 33  -- 表达式项数限制（最多不超过EXPRESSION_ITEMS项）：仅当“MARK_TYPE”=“EXPRESSION”时，本变量起作用
 34  EXPRESSION_ITEMS = 3
 35 
 36  -- 生成验证码个数
 37  MARK_NUM = 100000
 38 
 39 
 40  -- ---------------------------------------------------------------------------------------------------------------------------------
 41  -- 预定义变量
 42  -- ---------------------------------------------------------------------------------------------------------------------------------
 43  -- 词典
 44  dict = { ' a ' , ' b ' , ' c ' , ' d ' , ' e ' , ' f ' , ' g ' , ' h ' , ' i ' , ' j ' , ' k ' , ' l ' , ' m ' , ' n ' , ' o ' , ' p ' , ' q ' , ' r ' , ' s ' , ' t ' , ' u ' , ' v ' , ' w ' , ' x ' , ' y ' , ' z ' , ' A ' , ' B ' , ' C ' , ' D ' , ' E ' , ' F ' , ' G ' , ' H ' , ' I ' , ' J ' , ' K ' , ' L ' , ' M ' , ' N ' , ' O ' , ' P ' , ' Q ' , ' R ' , ' S ' , ' T ' , ' U ' , ' V ' , ' W ' , ' X ' , ' Y ' , ' Z ' , ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' }
 45  numbers = { " 1 " , " 2 " , " 3 " , " 4 " , " 5 " , " 6 " , " 7 " , " 8 " , " 9 " } -- 表达式可使用数字，排除0
 46  operators = { " + " , " - " , " * " } -- 表达式可使用运算符，不支持“/”
 47 
 48  -- 随机种子，防止通过获取系统时间得到随机数种子，直接计算出验证码
 49  math.randomseed ( os.time ())
 50 
 51  -- 大小
 52  IMG_WIDTH = 100
 53  IMG_HEIGHT = 40
 54 
 55  -- 颜色
 56  im2  =  gd.createTrueColor(IMG_WIDTH,IMG_HEIGHT)
 57  fg  =  im2:colorAllocate( 129 , 32 , 28 ) -- 前景色
 58  bg  =  im2:colorAllocate( 216 , 235 , 238 ) -- 背景色
 59 
 60  -- 字体
 61  FONT_PATH = " C:/WINDOWS/Fonts/ " -- 系统字体路径
 62  fonts = {}
 63  -- fonts={"courbd.ttf","courbi.ttf","DejaVuMonoSans.ttf","DejaVuMonoSansBold.ttf","DejaVuMonoSansBoldOblique.ttf","DejaVuMonoSansOblique.ttf","lucon.ttf","monosbi.ttf","nina.ttf","simhei.ttf","simkai.ttf","swissci.ttf","tahomabd.ttf","timesbd.ttf","timesbi.ttf","timesi.ttf","trebuc.ttf","trebucit.ttf"}
 64  font_size = { 14 , 15 , 16 , 17 , 18 , 19 , 20 } -- 随机字体大小
 65 
 66  -- 生成的随机码
 67  stringmark = ""
 68 
 69  -- ---------------------------------------------------------------------------------------------------------------------------------
 70  -- 功能函数
 71  -- ---------------------------------------------------------------------------------------------------------------------------------
 72  -- 初始化：创建图片、设置背景
 73  function  init()
 74      im2  =  gd.createTrueColor(IMG_WIDTH, IMG_HEIGHT)
 75      im2:filledRectangle( 0 , 0 ,IMG_WIDTH,IMG_HEIGHT,bg)
 76      stringmark = ""
 77  end
 78 
 79  -- 查找字体
 80  function  searchFont()
 81       if  table.getn(fonts) == 0   then   -- 没有指定字体，就搜索系统字体
 82           local  i = 1
 83           for  file  in  lfs.dir(FONT_PATH)  do
 84               if   string.find (file, " .ttf " ) and   not   string.find (file, " esri " )   then   -- 排除特定字体
 85                  fonts[i] = file
 86                  i = i + 1
 87               end
 88           end
 89       end
 90  end
 91 
 92  -- 生成text字符串
 93  function  makeText()
 94       local  num = table.getn(dict)
 95       for  i = 1 ,TEXT_NUM  do
 96          stringmark = stringmark..dict[ math.random (num)]
 97       end
 98  end
 99 
100  -- 生成表达式字符串
101  function  makeExpression()
102       local  n = math.random ( 2 , 3 ) -- 表达式项数
103       local  strings = {}
104       for  i = 1 ,n * 2 - 1   do -- 表达式项数+运算符项数
105           local  str = ""
106           if  i % 2 == 1   then -- 数字
107               local  n2 = math.random ( 1 , 2 )
108               for  j = 1 ,n2  do -- 每个数字最多2位
109                  str = str..numbers[ math.random ( 9 )]
110               end
111           else -- 运算符
112              str = operators[ math.random ( 3 )]
113           end
114          strings[i] = str
115       end  
116       return  strings
117  end
118 
119  -- 主函数
120  function  doIt()
121      searchFont()
122       local  numfonts = table.getn(fonts)
123       if  numfonts < 1   then
124           print ( " 没有找到字体! " )
125           return
126       end
127 
128       for  i = 1 ,MARK_NUM  do
129          init()
130           local  font = fonts[ 0 ];
131           local  fontsize = 20 ;
132          
133           if  MARK_TYPE == " TEXT "   then -- 普通字符串验证码
134              makeText()
135  --             print(stringmark)    
136               if  FONT ==- 1   then
137                  im2:string(gd.FONT_GIANT, 18 , 10 ,stringmark, fg)
138               else
139                   for  nIndex = 1 , string.len (stringmark)  do
140                       if  FONT == 1   then  font = fonts[ math.random (numfonts)]  end
141                       if  FONT_SIZE_RANDOM == 1   then  fontsize = font_size[ math.random ( 7 )]  end
142                      im2:stringFT(fg,FONT_PATH..font,fontsize, math.random () / math.pi , 5 + (nIndex - 1 ) * 15 ,  25 ,  string.sub (stringmark,nIndex,nIndex))
143                   end         
144               end
145           elseif  MARK_TYPE == " EXPRESSION "   then -- 表达式验证码
146               local  strings = makeExpression()
147               local  raise = 0
148               local  ncharacter = 0  
149               for  j = 1 ,table.getn(strings)  do
150                   if  j % 2 == 0   then  raise = 3   end
151                  stringmark = stringmark..strings[j]
152                   if  FONT == 1   then  font = fonts[ math.random (numfonts)]  end
153                   if  FONT_SIZE_RANDOM == 1   then  fontsize = font_size[ math.random ( 5 )]  end           
154                  im2:stringFT(fg,FONT_PATH..font,fontsize, math.random () / math.pi , 5 + ncharacter * 12 + raise,  25 , strings[j])
155                  ncharacter = ncharacter + string.len (strings[j])
156               end
157  --             print(stringmark) 
158  --             value=tonumber(stringmark)
159  --             print(value)
160           end
161          
162           --   随机线条干扰
163           if  XLINE_FALG == 1   then
164               local  xlineNum = math.random (XLINE_LIMIT)
165               for  i = 1 ,xlineNum  do
166                  im2:line( math.random (IMG_WIDTH), math.random (IMG_HEIGHT), math.random (IMG_WIDTH), math.random (IMG_HEIGHT),fg)
167               end
168           end
169 
170          im2:png( " ./output/ " ..font.. " .png " , 100 )                
171       end
172  end
173 
174 -- start = os.clock ()
175  doIt()
176 -- print ( os.clock () - start)

效果大致如下：