ASP.NET程序中实现校验码图像生成

ASP.NET程序中实现校验码图像生成2011-03-18 天极 Activer在Web系统中很多时候需要用到校验码，例如我们经常遇到不少电子邮件、论坛的注册过程需要我们输入校验码，这是为了提高安全性。今天我们就来讲讲如何生成校验码。

使用ASP.NET来生成校验码图像很方便，网上也有不少教程与文章有介绍，但是都讲的太简单了，不够实用。我来介绍一点自己的思路，算是抛砖引玉吧。

首先我们来看看，生成校验码的一种常见方式：

1．生成校验码的字符串

2．将该字符串输出为图像

具体步骤

下面我们就开始简单的例子来介绍这个过程，首先打开VS.NET，新建一个Web Site，添加一个新的 Web Form，取名为 VCode.aspx，在其代码文件（VCode.aspx.vb）中添加一个函数generateVCode，此函数用于生成校验码的字符串，具体代码如下：

""" <summary>
""" 产生随机数（包含字母与数字）用于校验码
""" </summary>
""" <param name="CodeLength"></param>
""" <returns></returns>
""" <remarks></remarks>
Private Function generateVCode（ByVal CodeLength As Integer） As String
Dim VCode As String = String.Empty
Dim randObj As New Random（）
Dim c As Integer = 63
For i As Byte = 1 To CodeLength
c = randObj.Next（35）
If c >= 10 Then
c += 7
End If
c += 48
VCode += Chr（c）
Next
Return VCode
End Function

上面的的函数使用随机数来代表需要产生的校验码，包含数字与大写的字母。

接着我们需要将上面生成的校验码字符串作为图像输出。利用ASP.NET的强大图像处理功能可以很方便的实现这一点。但是考虑到直接将校验码生成图像输出，安全性太差，我们需要做一些增强。这里我介绍一种简单的方法，就是为校验码图像增加背景，可以使用现有的一些图像作为背景，也可以使用ASP.NET直接画出背景。为了讲解的方便，这里我们介绍使用ASP.NET直接来画出背景。

首先，图像上输出文字之前，可以随即选择一种画笔的笔触（HatchBrush），具体的代码如下：

""" <summary>
""" 产生随机的笔触样式（用于图像的背景）
""" </summary>
""" <returns></returns>
""" <remarks></remarks>
Private Function generateHatchStyle（） As HatchStyle
  Dim slist As New ArrayList
  For Each style As HatchStyle In System.Enum.GetValues（GetType（HatchStyle））
slist.Add（style）
  Next
  Dim randObj As New Random（）
  Dim index As Integer = randObj.Next（slist.Count - 1）
  Return CType（slist（index）, HatchStyle）
End Function

现在校验码字符串已经产生，用于图像背景的画笔也有了，我们就介绍具体的图像输出，使用函数GenerateVCodeImage来输出图像，

""" <summary>
""" 产生随机数校验码图像
""" </summary>
""" <remarks></remarks>
Private Function GenerateVCodeImage（）
  Dim oBitmap As Bitmap = New Bitmap（90, 35）
  Dim oGraphic As Graphics = Graphics.FromImage（oBitmap）
  Dim foreColor As System.Drawing.Color
  Dim backColor As System.Drawing.Color
  Dim sText As String = generateVCode（5） "获取校验码字符串
  Dim sFont As String = "Comic Sans MS" "设置自己喜欢的字体
  "前景、背景的颜色
  foreColor = Color.FromArgb（220, 220, 220）
  backColor = Color.FromArgb（190, 190, 190）

  "设置用于背景的画笔
  Dim oBrush As New HatchBrush（CType（generateHatchStyle（）, HatchStyle）, foreColor, backColor）
  "用于输出校验码的画笔
  Dim oBrushWrite As New SolidBrush（Color.Gray）
  "生成的图像矩形大小
  oGraphic.FillRectangle（oBrush, 0, 0, 100, 50）
  oGraphic.TextRenderingHint = TextRenderingHint.AntiAlias
  Dim oFont As New Font（sFont, 14）
  Dim oPoint As New PointF（5.0F, 4.0F）
  oGraphic.DrawString（sText, oFont, oBrushWrite, oPoint）

  Response.ContentType = "image/jpeg"
  oBitmap.Save（Response.OutputStream, ImageFormat.Jpeg）
  oBitmap.Dispose（）
  Return sText
End Function