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能够有所帮助。
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下