Jump to content
Fórum Script Brasil
  • 0

Algoritmo Luhn


Question

Pessoal, alguém tem um código do algoritmo Luhn...consegui um VB.net e mudei algumas coisas, mas infelizmente não estou conseguindo fazer funcionar. Alguém possui algum material ou partes do código?

Abaixo segue como está o meu código:

Function Verificacartaodecredito()    

    Dim CartaodeCredito As String
    Dim Digito (16) As Integer
    Dim DuploDigito (2) As String
    Dim SomaCartaodeCredito As Integer    

    'primeira parte do cálculo
    For i = 15 to 1 step-2
    
         Digito(i) = Mid(CartaodeCredito, i, 1)
         
         Digito(i)  =  Digito(i) * 2
         
         If     Digito(i) > 9 Then
         DuploDigito(1) = Mid(Digito(i),1,1)
         DuploDigito(2) = Mid(Digito(i),2,1)
         Digito(i) = Convert.ToInt32(DuploDigito(1)) + Convert.ToInt32(DuploDigito(2))         
        End If
        
         SomaCartaodeCredito = SomaCartaodeCredito + Digito(i)
         
    Next

    'segunda parte do cálculo
    For i = 2 To 16 Step 2
        Digito(i) = Mid(CartaodeCredito, i, 1)
        SomaCartaodeCredito = SomaCartaodeCredito + Digito(i)
    Next

    If SomaCartaodeCredito Mod 10 = 0  Then 
    Verificacartaodecredito = 1
    Else
    Verificacartaodecredito = 0   
    End If   
    
End Function

 

Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148910
    • Total Posts
      645015
×
×
  • Create New...