VB.NET实现验证信用卡卡号
VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证
DimcreditCardNumberAsString creditCardNumber="1234567891234563"'这里请自行输入你要验证的号码 IfcreditCardNumber.Length<16Then Page.ClientScript.RegisterStartupScript(Me.GetType(),"dd","alert('错误数字只有"&creditCardNumber.Length&"碼');",True) Else DimInt(15)AsInteger Dimx,num,sunAsInteger Forx=0To15 num=creditCardNumber.Substring(x,1) If(x+1)Mod2<>0Then'偶数乘1奇数乘2 Int(x)=num*2 Else Int(x)=num EndIf Next Forx=0To15 If(Int(x)>9)Then Int(x)=(Int(x)Mod10)+1 EndIf sun+=Int(x) Next If(sunMod10=0)Then Page.ClientScript.RegisterStartupScript(Me.GetType(),"ddd","alert('正确的信用卡');",True) Else Page.ClientScript.RegisterStartupScript(Me.GetType(),"dd","alert('错误);",True) EndIf EndIf
以上所述就是本文的全部内容了,希望对大家学习vb.net能够有所帮助。