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

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

赞 (0)

相关推荐

  • php实现通用的信用卡验证类

    本文实例讲述了php实现通用的信用卡验证类.分享给大家供大家参考. 原文说明如下: Credit Card Validation Solution (PHP Edition) Version 3.5 Description Credit Card Validation Solution™ uses a four step process to ensure credit card numbers are keyed in correctly. This procedure accurately

  • php实现用于验证所有类型的信用卡类

    本文实例讲述了php实现用于验证所有类型的信用卡类.分享给大家供大家参考.具体如下: 这个php类比较完整,可以用于验证各种不同的信用卡,针对信用卡的卡号的通用规则进行了验证,同时对不同类型的信用卡进行了针对性的识别. 代码接受一个信用卡号码和有效日期,如果两者都有效,则返回TRUE,否则返回FALSE. 本插件接受以下参数: $number 表示信用卡号码的一个字符串 $expiry 信用卡有效日期,采用07/12或0712这样的格式 <?php // Plug-in 32: Validate

  • Python3通过Luhn算法快速验证信用卡卡号的方法

    本文实例讲述了Python3通过Luhn算法快速验证信用卡卡号的方法.分享给大家供大家参考.具体分析如下: Python3通过Luhn算法快速验证信用卡卡号,python用起来就是爽,很简单的三行代码就可以验证信用卡卡号是否有效 def luhn_check(num): ''' Number - List of reversed digits ''' digits = [int(x) for x in reversed(str(num))] check_sum = sum(digits[::2]

  • Go语言通过Luhn算法验证信用卡卡号是否有效的方法

    本文实例讲述了Go语言通过Luhn算法验证信用卡卡号是否有效的方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: package main import (     "fmt"     "strings" ) const input = `49927398716 49927398717 1234567812345678 1234567812345670` var t = [...]int{0, 2, 4, 6, 8, 1, 3, 5, 7, 9}

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

    VB.NET代码验证信用卡卡号是否正确,本代码使用luhn算法验证 Dim creditCardNumber As String creditCardNumber = "1234567891234563" '这里请自行输入你要验证的号码 If creditCardNumber.Length < 16 Then Page.ClientScript.RegisterStartupScript(Me.GetType(), "dd", "alert('错误数

  • PHP验证信用卡卡号是否正确函数

    可以使用以下PHP函数,验证一个卡号是否是信用卡: function validateCard ( $cardnumber ) { $cardnumber = preg_replace ( " /\D|\s/ " , "" , $cardnumber ) ; # strip any non-digits $cardlength = strlen ( $cardnumber ) ; if ( $cardlength != 0 ) { $parity = $cardle

  • PHP随机生成信用卡卡号的方法

    本文实例讲述了PHP随机生成信用卡卡号的方法.分享给大家供大家参考.具体分析如下: 这段PHP代码根据信用卡卡号产生规则随机生成信用卡卡号,是可以通过验证的,仅供学习参考,请不要用于非法用途,否则后果自负. <?php /* PHP credit card number generator Copyright (C) 2006 Graham King graham@darkcoding.net This program is free software; you can redistribute

  • Python随机生成信用卡卡号的实现方法

    本文实例讲述了Python随机生成信用卡卡号的实现方法.分享给大家供大家参考.具体分析如下: 这段Python代码根据信用卡卡号产生规则随机生成信用卡卡号,是可以通过验证的,仅供学习参考,请不要用于非法用途,否则后果自负. #!/usr/bin/python """ gencc: A simple program to generate credit card numbers that pass the MOD 10 check (Luhn formula). Usefull

  • JavaScript随机生成信用卡卡号的方法

    本文实例讲述了JavaScript随机生成信用卡卡号的方法.分享给大家供大家参考.具体分析如下: 这段JS代码根据信用卡卡号产生规则随机生成信用卡卡号,是可以通过验证的,仅供学习参考,请不要用于非法用途,否则后果自负. var visaPrefixList = new Array( "4539", "4556", "4916", "4532", "4929", "40240071", &

  • PHP实现通过Luhn算法校验信用卡卡号是否有效

    本文实例讲述了PHP实现通过Luhn算法校验信用卡卡号是否有效的方法.分享给大家供大家参考.具体实现方法如下: $numbers = "49927398716 49927398717 1234567812345678 1234567812345670"; foreach (split(' ', $numbers) as $n) echo "$n is ", luhnTest($n) ? 'valid' : 'not valid', '</br>'; fu

  • Python OpenCV招商银行信用卡卡号识别的方法

    Python OpenCV招商银行信用卡卡号识别的方法

    学在前面 从本篇博客起,我们将实际完成几个小案例,第一个就是银行卡号识别,预计本案例将写 5 篇左右的博客才可以完成,一起加油吧. 本文的目标是最终获取一套招商银行卡,0~9 数字的图,对于下图的数字,我们需要提取出来,便于后续模板匹配使用.不过下图中找到的数字不完整,需要找到尽量多的卡片,然后补齐这些数字. 提取卡片相关数字 先对上文中卡片中的数字进行相关提取操作,加载图片的灰度图,获取目标区域.在画板中模拟一下坐标区域,为了便于进行后续的操作. 具体代码如下: import cv2 as c

  • Android实现读取NFC卡卡号示例

    Android实现读取NFC卡卡号示例,具体如下: 1.权限 <uses-permission android:name="android.permission.NFC" /> <uses-feature android:name="android.hardware.nfc" android:required="true" /> 2.注册(静态) <intent-filter> <action andro

随机推荐