VB.NET实现验证信用卡卡号
2015-05-18 11:35
627 查看
VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证
Dim creditCardNumber As String creditCardNumber = "1234567891234563" '这里请自行输入你要验证的号码 If creditCardNumber.Length < 16 Then Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('错误数字只有" & creditCardNumber.Length & "碼');", True) Else Dim Int(15) As Integer Dim x, num, sun As Integer For x = 0 To 15 num = creditCardNumber.Substring(x, 1) If (x + 1) Mod 2 <> 0 Then '偶数乘1奇数乘2 Int(x) = num * 2 Else Int(x) = num End If Next For x = 0 To 15 If (Int(x) > 9) Then Int(x) = (Int(x) Mod 10) + 1 End If sun += Int(x) Next If (sun Mod 10 = 0) Then Page.ClientScript.RegisterStartupScript(Me.GetType(), "ddd", "alert('正确的信用卡');", True) Else Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('错误);", True) End If End If
以上所述就是本文的全部内容了,希望对大家学习vb.net能够有所帮助。
您可能感兴趣的文章:
相关文章推荐
- VB.NET验证邮件地址的合法性实现代码
- VB.NET通过Socket实现字符串发送与接收程序
- vb.net的windows窗体实现dos命令
- [VB.NET]急!!!! 实现矩阵转置,即将矩阵的行,列互换,一个3行2列的矩阵将转换为2行3列.
- 用vb.net实现类似写字板程序的部分源代码
- 使用VB.net实现sql数据库的备份与恢复
- VB实现SQL Server数据库备份/恢复----from http://blog.csdn.net/zjcxc/
- 在Asp.Net MVC中实现RequiredIf标签对Model中的属性进行验证
- 使用javascript实现银行卡号的Luhn校验或验证算法
- [VB.NET]断点续传怎么实现
- VB.NET实现 TreeView控件查找节点,显示节点
- ASP.NET MVC如何实现自定义验证(服务端验证+客户端验证)
- [VB.NET]如何在DataGridView中实现多列排序?大于2列的,可以有很多列的排序?(急)
- ASP.NET 如何:实现简单的 Forms 身份验证
- ASP.NET MVC实现网站验证码功能(上)
- VB.net,VB2005实现TCP协议编程
- VB.NET实现关机和重新启动
- 验证邮箱是否真实存在类(vb.net)
- ASP.NET 表单验证 Part.2(实现表单验证)