VB.NET實(shí)現(xiàn)驗(yàn)證信用卡卡號
更新時間：2015年05月18日 11:35:00 投稿：hebedich
這篇文章主要介紹了VB.NET實(shí)現(xiàn)驗(yàn)證信用卡卡號是否正確的代碼，主要根據(jù)luhn算法來驗(yàn)證，有需要的小伙伴可以參考下。
VB.NET代碼驗(yàn)證信用卡卡號是否正確，本代碼使用luhn算法驗(yàn)證
Dim creditCardNumber As String
creditCardNumber = "1234567891234563" '這里請自行輸入你要驗(yàn)證的號碼
If creditCardNumber.Length < 16 Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('錯誤數(shù)字只有" & 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 '偶數(shù)乘1奇數(shù)乘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
以上所述就是本文的全部內(nèi)容了，希望對大家學(xué)習(xí)vb.net能夠有所幫助。
相關(guān)文章
本文給大家分享的是2個vb.net中驗(yàn)字符串類型的函數(shù)，十分的簡單實(shí)用，有需要的小伙伴可以參考下。2015-05-05
讀取寫入前需創(chuàng)建Word的引用，打開文件并獲取Word的Document對象。 需要說明的一點(diǎn)是，Word自定義屬性所能寫入的長度是有限制的，約255個字符。2013-02-02
這篇文章主要介紹了vb.net操作注冊表的方法,結(jié)合實(shí)例形式分析了vb.net針對注冊表的增加,修改,刪除及查詢操作相關(guān)實(shí)現(xiàn)技巧,需要的朋友可以參考下2017-03-03
VB.NET實(shí)現(xiàn)的MD5加密算法示例【32位】
這篇文章主要介紹了VB.NET實(shí)現(xiàn)的MD5加密算法,結(jié)合具體實(shí)例形式分析了VB.NET實(shí)現(xiàn)的md5加密算法相關(guān)操作步驟與加密處理技巧,需要的朋友可以參考下2017-03-03
看完這篇文章才知道說明是水晶報表2008-01-01
VB.NET中使用種子填充算法實(shí)現(xiàn)給圖片著色的例子
這篇文章主要介紹了VB.NET中使用種子填充算法實(shí)現(xiàn)給圖片著色的例子,在開發(fā)一個畫圖工具時遇到的問題,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了VB.NET獲取文件默認(rèn)圖標(biāo)的方法,涉及VB.NET基于Shell32.dll動態(tài)鏈接庫文件獲取系統(tǒng)圖標(biāo)的技巧,需要的朋友可以參考下2015-06-06
vb.net 水晶報表，發(fā)布教程下面是用vs.net打包的過程，注意最后關(guān)于水晶的問題：2008-01-01
此方法將檢查某些強(qiáng)密碼特性，并使用有關(guān)檢查密碼失敗的信息更新字符串參數(shù)。2008-08-08
StreamWriter 在其構(gòu)造函數(shù)上采用一個編碼參數(shù)。如果指定編碼，則 Visual Basic 寫入文件以指示所使用的編碼。2008-08-08