程序中实现校验码图像生成物业

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

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

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

1． 生成校验码的字符串

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

具体步骤

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

\'\'\' ＜summary＞

\'\'\' 产生随机数（包含字母与数字）用于校验码

\'\'\' ＜/summary＞

\'\'\' ＜param name=\"CodeLength\"＞＜/param＞

\'\'\' ＜returns＞＜/returns＞

\'\'\' ＜remarks＞＜/remarks＞

Private Function generateVCode(ByVal CodeLength As Integer) As String

Dim VCode As String = pty

Dim randObj As New Random()

Dim c As Integer = 63

For i As Byte = 1 To CodeLength

c = xt(35)

If c ＞= 10 Then

c += 7

End If

c += 48

VCode += Chr(c)

Next

Return VCode

End Function

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

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

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

\'\'\' ＜summary＞

\'\'\' 产生随机的笔触样式(用于图像的背景)

\'\'\' ＜/summary＞

\'\'\' ＜returns＞＜/returns＞

\'\'\' ＜remarks＞＜/remarks＞

Private Function generateHatchStyle() As HatchStyle

Dim slist As New ArrayList

For Each style As HatchStyle In tValues(GetType(HatchStyle))

d(style)

Next

Dim randObj As New Random()

Dim index As Integer = xt(unt - 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 = omImage(oBitmap)

Dim foreColor As lor

Dim backColor As lor

Dim sText As String = generateVCode(5) \'获取校验码字符串

Dim sFont As String = \"Comic Sans MS\" \'设置自己喜欢的字体

\'前景、背景的颜色

foreColor = omArgb(220, 220, 220)

backColor = omArgb(190, 190, 190)

\'设置用于背景的画笔

Dim oBrush As New HatchBrush(CType(generateHatchStyle(), HatchStyle), foreColor, backColor)

\'用于输出校验码的画笔

Dim oBrushWrite As New SolidBrush(ay)

\'生成的图像矩形大小

llRectangle(oBrush, 0, 0, 100, 50)

xtRenderingHint = tiAlias

Dim oFont As New Font(sFont, 14)

Dim oPoint As New PointF(5.0F, 4.0F)

awString(sText, oFont, oBrushWrite, oPoint)

ntentType = \"image/jpeg\"

ve(tputStream, eg)

我向你们鞠躬”“对于纳粹罪行 spose()

Return sText

End Function

上面介绍的都是几个实现具体功能的函数，我们还需要在px的Page Load事件里面添加调用这些函数的代码，具体如下：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As entArgs) Handles ad

Dim code As String = GenerateVCodeImage()

Session(\"VCode\") = code

End Sub

现在来看看效果，刷新几次比较一下，注意背景的不同：