VB.NET实现验证信用卡卡号

页面导航:首页 > 软件编程 > vb.net > VB.NET实现验证信用卡卡号

VB.NET实现验证信用卡卡号

来源:互联网 作者:脚本宝典 时间:2015-07-28 19:20 【

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 这里请自行输入

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能够有所帮助。


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<