VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 |
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能够有所帮助。
2015年全国职称计算机考试教材(2007模 .. 定价:¥225 优惠价:¥213 更多书籍 | |
全国职称计算机考试速成过关系列套装:W .. 定价:¥133 优惠价:¥133.0 更多书籍 |