bebrother

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