43.492 lecturas

Validar un número de tarjeta de crédito (ISO 2894)

En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894.
Publicado el lunes, 11 de septiembre de 2006
Enlaces patrocinados

En una aplicación de comercio electrónico o una aplicación que necesite validar el número de una tarjeta de crédito, se puede hace uso del algoritmo ISO 2894. Este algoritmo permite comprobar que la numeración de la tarjeta es correcta, pero obviamente no indica si la tarjeta sigue siendo válida (no ha sido anulada, ha caducado, etc.).


A continuación, se muestra el código Visual Basic para comprobar la validez en la numeración de una tarjeta de crédito:


Cree un nuevo proyecto en Visual Basic y añada una caja de texto y un botón.



Pegue el siguiente código:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Valida la tarjeta de crédito de acuerdo con el algoritmo ISO 2894
' El algoritmo es:
' 1. Calcular el peso para el primer dígito: si el número de dígitos
' es par el primer peso es 2 de lo contrario es 1. Después los
' pesos alternan entre 1, 2, 1, 2, 1 ...
' 2. Multiplicar cada dígito por su peso
' 3. Si el resultado del 2º paso es mayor que 9, restar 9
' 4. Sumar todos los dígitos
' 5. Comprobar que el resultado es divisible por 10
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function EsCCValido(sTarjeta As String) As Boolean
Dim iPeso As Integer
Dim iDigito As Integer
Dim iSuma As Integer
Dim iContador As Integer
Dim sNuevaTarjeta As String
Dim cCaracter As String * 1


    iPeso = 0
    iDigito = 0
    iSuma = 0


    'Reemplazar cualquier no digito por una cadena vacía
    For iContador = 1 To Len(sTarjeta)
        cCaracter = Mid(sTarjeta, iContador, 1)
        If IsNumeric(cCaracter) Then
            sNuevaTarjeta = sNuevaTarjeta & cCaracter
        End If
    Next iContador


    ' Si es 0 devolver Falso
    If sNuevaTarjeta = 0 Then
        EsCCValido = False
        Exit Function
    End If


    ' Si el número de dígitos es par el primer peso es 2, de lo
    ' contrario es 1
    If (Len(sNuevaTarjeta) Mod 2) = 0 Then
        iPeso = 2
    Else
        iPeso = 1
    End If


    For iContador = 1 To Len(sNuevaTarjeta)
        iDigito = Mid(sNuevaTarjeta, iContador, 1) * iPeso
        If iDigito >; 9 Then iDigito = iDigito - 9
        iSuma = iSuma + iDigito
        ' Cambiar peso para el siguiente dígito
        If iPeso = 2 Then
            iPeso = 1
        Else
            iPeso = 2
        End If
    Next iContador


    ' Devolver verdadero si la suma es divisible por 10
    If (iSuma Mod 10) = 0 Then
        EsCCValido = True
    Else
        EsCCValido = False
    End If


End Function


Private Sub btnComprobarCC_Click()
    If EsCCValido(Text1) Then
        MsgBox "Tarjeta válida"
    Else
        MsgBox "Tarjeta inválida"
    End If
End Sub



Ejecute la aplicación. En la caja de texto introduzca el número de la tarjeta de crédito y pulse el botón de comprobación. Puede probar con 4242 4242 4242 4242 que es un número válido.


Comparte el artículo en las redes sociales

20 comentarios del truco (página 1)
lalo dice
están bien follados del culo esa mamada que. eso no se puede hacer solo mandando msm es la única manera pendejos si quieren hacer trampa en un juego no se puede graben celo en sus huevos
Publicado el martes, 09 de agosto de 2011
Maximiliano Mérida dice
no pidan números de tarjetas válidos eso es delito
Publicado el jueves, 07 de julio de 2011
JULISSA dice
demen un numero de tarjeta de credito para un juego de clubpenguin que sea valido please
Publicado el miércoles, 15 de junio de 2011
sassss dice
hola a todas/os necesito un numero de tarjeta de juego ffalso no in porta porfavor rapido por que lo nesesito para un juego una targeta de credito que tiene que (VISA) porfaVOR gracias
Publicado el jueves, 09 de junio de 2011
dani dice
necesito una clave para el juegos mundo gaturrode targeta de credito visa
Publicado el viernes, 29 de abril de 2011
dayanna dice
porfa ayuden con el numero de la targeta la necesito
Publicado el miércoles, 20 de abril de 2011
Pepe dice
Deberíamos aprender a escribir aparte de validar tarjetas de crédito nesecito------>necesito targeta------->tarjeta
Publicado el jueves, 14 de abril de 2011
lola dice
necesito un numero de tarjeta falso para un juego
Publicado el lunes, 21 de marzo de 2011
alejo dice
amigo dame un numero valido de tarjeta de credito porfis si
Publicado el domingo, 27 de febrero de 2011
adrizpr dice
denme un numero de targeta valido para un juego llamado clubpenguin.com
Publicado el sábado, 29 de enero de 2011
Comentar el artículo
Nombre:
Mail:
Comentario:
Código de seguridad:
Captcha
Repite el código de seguridad

Los trucos más leídos de Visual Basic 6.0