VBCoding Библиотека кодов Visual Basic .NET Другое Проверить номер кредитной карточки

Visual Basic .NET
Проверить номер кредитной карточки
Воспользуйтесь алгоритмом Luhn:

Function ValidateLuhn(ByVal Expression As String) As Boolean
        Dim ChkSum As Integer = 0, DblFlag As Boolean = (Expression.Length Mod 2 = 0)
        Dim OneChar As Char, OneCharValue As Integer
        For Each OneChar In Expression
            OneCharValue = Integer.Parse(OneChar)
            If DblFlag Then
                OneCharValue *= 2
                If OneCharValue > 9 Then
                    OneCharValue -= 9
                End If
            End If
            ChkSum += OneCharValue
            DblFlag = Not DblFlag
        Next
        Return (ChkSum Mod 10 = 0)
End Function
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET Другое Проверить номер кредитной карточки  
Powered by Exponenta -