VB.NET实现验证信用卡卡号
更新时间：2015年05月18日 11:35:00 投稿：hebedich
这篇文章主要介绍了VB.NET实现验证信用卡卡号是否正确的代码，主要根据luhn算法来验证，有需要的小伙伴可以参考下。
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实现的MD5加密算法,结合具体实例形式分析了VB.NET实现的md5加密算法相关操作步骤与加密处理技巧,需要的朋友可以参考下2017-03-03
看完这篇文章才知道说明是水晶报表2008-01-01
vb.net 水晶报表，发布教程下面是用vs.net打包的过程，注意最后关于水晶的问题：2008-01-01
这篇文章主要介绍了VB.NET中调用MSI卸载软件的2个方法,一是直接调用MSI安装包命令,二是产品序列号卸载程序,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了VB.NET中使用种子填充算法实现给图片着色的例子,在开发一个画图工具时遇到的问题,需要的朋友可以参考下2014-07-07
读取写入前需创建Word的引用，打开文件并获取Word的Document对象。 需要说明的一点是，Word自定义属性所能写入的长度是有限制的，约255个字符。2013-02-02
这篇文章主要介绍了vb.net操作注册表的方法,结合实例形式分析了vb.net针对注册表的增加,修改,删除及查询操作相关实现技巧,需要的朋友可以参考下2017-03-03
StreamWriter 在其构造函数上采用一个编码参数。如果指定编码，则 Visual Basic 写入文件以指示所使用的编码。2008-08-08
主要包括vb.net 字符串函数，vb.net 时间日期函数，2008-01-01
这篇文章主要介绍了VB实现的递归复制文件和搜索文件的代码分享,代码写的比较简单,容易看懂,需要的朋友可以参考下2014-07-07
最新评论