Validação De Cartão Crédito

[hicarocastro]

Olá pessoal estou tentando migrar uma função do Visual Basic para VBScript, e não estou conseguindo, poderiam me ajudar?

Private Function ValidarCartaoCredito(ByVal pCardNumber As String) As Boolean
Dim CharPos As Integer
Dim CheckSum As Integer
Dim tChar As String

For CharPos = Len(pCardNumber) To 2 Step -2
  CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1))
  tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2)
  CheckSum = CheckSum + CInt(Left(tChar, 1))

  If Len(tChar) > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1))
Next

If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1))

If CheckSum Mod 10 = 0 Then
   ValidarCartaoCredito = True
Else
   ValidarCartaoCredito = False
End If

End Function

[hicarocastro]

Ae...

Primeiro gostaria de dizer q a página deu um erro grotesco aqui e por isso foi inserido duas vezes, não fio eu!!

Depois gostaria de dizer que consegui... e ai vai:

Function ValidarCartaoCredito(pCardNumber)
Dim CharPos 
Dim CheckSum
Dim tChar

For CharPos = Len(pCardNumber) To 2 Step -2
  CheckSum = CheckSum + Int(Mid(pCardNumber, CharPos, 1))
  tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2)
  CheckSum = CheckSum + Int(Left(tChar, 1))

  If Len(tChar) > 1 Then CheckSum = CheckSum + Int(Right(tChar, 1))
Next

If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + Int(Left(pCardNumber, 1))

If CheckSum Mod 10 = 0 Then
   ValidarCartaoCredito = True
Else
   ValidarCartaoCredito = False
End If

End Function


session("n_cartao")=request("n_cartao")


if ValidarCartaoCredito(session("n_cartao")) then
response.write("cartão ok"&session("n_cartao"))
else
response.write("cartão falso"&session("n_cartao"))
end if

[dark0]

Hicaro !!

brother, que bom que resolveu seu problema!

Sobre o erro do forum, não sei o que tem acontecido ultimamente.. Mas estao saindo varios topicos duplicados!

Quando alguém pegar o erro, tente dar um PRINT SCREEN da tela, e poste no Forum Scriptbrasil, com a imagem, pra os admins verem e resolverem

T+