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 & "a');", 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 을 배 우 는 데 도움 이 되 기 를 바 랍 니 다.