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