老丁家三少 發表於 2015-5-18 11:35:00

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

<p>VB.NET代码验证信用卡卡号是否正确，本代码使用luhn算法验证</p>
<div class="jb51code">
<pre class="brush:vb;">
Dim creditCardNumber As String
creditCardNumber = "1234567891234563" '这里请自行输入你要验证的号码
If creditCardNumber.Length &lt; 16 Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('错误数字只有" &amp; creditCardNumber.Length &amp; "碼');", 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 &lt;&gt; 0 Then '偶数乘1奇数乘2
      Int(x) = num * 2
    Else
      Int(x) = num
    End If
Next
For x = 0 To 15
    If (Int(x) &gt; 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
</pre>
</div>
<p>以上所述就是本文的全部内容了，希望对大家学习vb.net能够有所帮助。</p>
                           
                            <div class="art_xg">
                              <b>您可能感兴趣的文章:</b><ul><li>Go语言通过Luhn算法验证信用卡卡号是否有效的方法</li><li>php实现通用的信用卡验证类</li><li>php实现用于验证所有类型的信用卡类</li><li>Python3通过Luhn算法快速验证信用卡卡号的方法</li></ul>
                            </div>

                        </div>
                        <!--endmain-->
頁: [1]
查看完整版本: VB.NET实现验证信用卡卡号