一個簡單的驗証碼

原创 2004年10月26日 21:51:00
网站上有很多登陸都用到了驗証碼,看著好玩自己也寫了個簡單了regular_smile.gif(好點的就要把驗証碼寫到圖片上去了,有點難度,還沒研究過confused_smile.gif)先搞個簡單的.
Sub page_load(sender as object,e as eventargs)
      If not ispostback then     
         Dim ranNum As random=New random
         '將生成的隨机數寫到label中
         lblRanNum.text=ranNum.Next(1111,9999).tostring
      end if
end sub

sub BtnOk_Click(sender as object,e as eventargs)
      Dim strTemp As string=lblRanNum.text.tostring
      '檢查在textbox中輸入的數字和產生的驗証碼是否一致,一致就ok,否則就error
      If strTemp=Trim(txtNumber.text) Then
         lblMessage.text=”OK!”
         lblRanNum.text=ranNum.next(1111,9999).tostring '如果不寫這句,則產生的驗証碼就一直是葉面第一次加載時生成的驗証碼
      else
         lblMessage.text=”Error!”
         lblRanNum.text=ranNum.next(1111,9999).tostring
      end if
end sub
<html>
<body>
<form runat=”server”>
<asp:textbox id=”txtNumber” runat=”server”></asp:textbox>
<asp:button id=”BtnOk” runat=”server” text=”OK”></asp:button>
<asp:label id=”lblRanNum” runat=”server”></asp:label>
<asp:label id=”lblMessage” runat=”server”></asp:label>
</form>
</body>
</html>
-------------------------------------------------------------------------
這個驗証碼的安全性不是很好.网站上一般都是將驗証碼寫到圖片上的,那樣的安全性好很多,即使被黑客截獲看到的也是亂碼.
但是我不會寫...還要慢慢研究!不好意思tongue_smile.gif

一個簡單的802.11b ad-hoc網路實驗

[一個簡單的802.11b ad-hoc網路實驗]        資料來源:http://mailman.isi.edu/pipermail/ns-users/2004-March/040068.ht...
  • xuekui8291
  • xuekui8291
  • 2006年07月11日 15:46
  • 1534

身份証號碼驗証

 private string CheckCidInfo(string cid){string[] aCity = new string[]{null,null,null,null,null,null...
  • JustLovePro
  • JustLovePro
  • 2007年06月15日 08:24
  • 591

ajax的一個簡單例子

  • beihangyjs
  • beihangyjs
  • 2010年05月06日 18:32
  • 325

一個簡單的HELLO程序

Hello.java:import java.rmi.Remote;import java.rmi.RemoteException;public interface Hello extends Rem...
  • fenglibing
  • fenglibing
  • 2006年04月12日 17:25
  • 6068

asp.net生成圖片驗証碼

ReportX2.5修改1、行列隐藏;2、导出Excel支持冻结窗口并提高效率;3、自定制打印预览窗口;如果还需要什么功能请回复此贴(会自动转到我的邮件)或发邮件(reportproj@yahoo.c...
  • jackeyabc
  • jackeyabc
  • 2008年03月06日 09:59
  • 473

精简菜单和完整菜单之间进行切换

初始显示精简菜单: 点击显示全部品牌之后,将隐藏的品牌显示,并高亮显示推荐的品牌,并且此时按钮的文字变为“显示精简品牌” show you code: jquery test .c...
  • QianShouYuZhiBo
  • QianShouYuZhiBo
  • 2014年06月06日 09:29
  • 984

【图像处理】简单的图像处理软件

http://blog.sina.com.cn/s/blog_6df50e1a01019z95.html
  • ayuee1992
  • ayuee1992
  • 2014年08月08日 16:43
  • 314

sqlserver 中文簡繁體保存時注意的問題,無法解析 equal to 動作的定序衝突,亂碼

時常發生這樣的狀況:繁體數據庫,需要保存簡體的字符;或簡體的數據庫,保存繁體的字符。解決方案是把欄位的屬性設定成nvarchar,或ntext,這樣據說數據庫是以unicode的字符保存的,所以能夠存...
  • fengying0529
  • fengying0529
  • 2009年08月12日 09:14
  • 2093

Linux服务器教程之路5--ProFtpd服务器设置篇

引言:Linux下的ftp服务器的配置方法网上的教程很多,以下我选了一篇介绍ProFTPD的教程,这篇教程对入门者很有帮助。在此,先谢谢原文作者鸟哥:-)簡易 FTP Server 架設 -- ...
  • jwsh1984
  • jwsh1984
  • 2006年04月22日 20:10
  • 3054

創建一個簡單的"專家"

這個單元可以編譯到一個包中,之後它可以出現在Delphi的幫助菜單中。注:在Interface的uses 語句中加入ToolsApi.type  TSDCSimpleExpert = class(TN...
  • szhourj
  • szhourj
  • 2005年08月16日 18:00
  • 613
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一個簡單的驗証碼
举报原因:
原因补充:

(最多只允许输入30个字)