這篇文章主要介紹了VB.NET實現驗證信用卡卡號是否正確的代碼,主要根據luhn算法來驗證,有需要的小夥伴可以參考下。
VB.NET代碼驗證信用卡卡號是否正確,本代碼使用luhn算法驗證
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能夠有所幫助。