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

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

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 　Dim code As String = GenerateVCodeImage() 　Session("VCode") = code End Sub

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


　　我们已经能够生成校验码的图像了，那么如何使用呢？下面介绍一个简单的例子说明如何使用这个VCode.aspx。

　　在VS.NET中，转到Default.aspx页面添加一个名为：TextBox1的TextBox，在其右边添加一个Button，ID设置为btnCheck，还要再添加一个用于显示提示信息的Label，把它的ID设置为lblMessage。最后是我们的重点，添加一个Image控件，设置ImageUrl=''VCode.aspx''。以上几个步骤设置结束后的参考HTML如下：

<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox> <asp:Button ID="btnCheck" runat="server" Text="Check It" />&nbsp; <asp:Label ID="lblMessage" runat="server"></asp:Label><br /> <br /> <asp:Image ID="Image1" runat="server" Height="32px" Width="104px" ImageUrl=''VCode.aspx'' />&nbsp;<br /> <br />

　　当然，我们还需要实现检查用户输入校验码是否正确，并给出提示。具体代码如下：

Protected Sub btnCheck_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCheck.Click 　Dim code As String = Session("VCODE") 　If TextBox1.Text.Trim.ToUpper = code Then 　　lblMessage.Text = "校验成功！" 　　lblMessage.ForeColor = Color.Blue 　Else 　　lblMessage.Text = "您输入的注册码错误！" 　　lblMessage.ForeColor = Color.Red 　End If 　TextBox1.Text = "" End Sub

　　具体的效果如下：


　　总 结

　　上述的方法考虑到讲述的方便，省略了一些细节。当然我们可以根据具体的应用对上述实现的方法进行一些改进，例如上面介绍的字符串生成函数会生成字符O与数字0，会对用户造成混淆。对于这个问题，可以在其循环过程中添加如下代码解决（不生成数字0， 当然也可以选择两个都不生成）：

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 　　''是否显示 数字：0， 因为数字0 与字母O 容易混淆 　　''While (c = 63) 　　　'' c = randObj.Next(35) 　　''End While 　　c = randObj.Next(35) 　　If c >= 10 Then 　　　c += 7 　　End If 　　c += 48 　　VCode += Chr(c) 　Next 　Return VCode End Function

　　我们还可以在生成图像的过程中，使用更加复杂的方法来增强安全性，常用的方法有：

　　1．在上述图像生成结束后，在图像上添加随机的杂点，或者是随机的线条

　　2．使用彩色的字体或者背景;

　　3．使用预先准备的干扰性更强的背景;

　　4．还可以移动或者旋转每个字符的位置与角度;

　　当然我们也可以使用汉字来做校验码，但是用户恐怕很难接受吧，哈哈遇到校验码里面的字居然不认识的时候，说不定很抓狂～～。