Hola Martin
..
Gracias por la data lo voy a probar y ver que obtengo, lo
que si observo es que no cubre el universo de las tarjetas argentinas, pero
voy a ver cuales quedan a fuera a ver si la puedo canalizar de otra manera.-
Un fuerte abrazo Mario
De: [email protected] [mailto:[email protected]] En nombre de Martín Glanz
Enviado el: Martes, 20 de Abril de 2010 08:54 p.m.
Para: GUFA List Member
Asunto: [GUFA] RE: [GUFA] Tarjetas de Créditos
Mario:
Para las tarjetas de 16 dígitos (Visa, Master, Visa Electron y muchas otras)
se utiliza la siguiente función para obtener el dígito verificador
PARAMETER lPcc
LOCAL lArgo, pEso1, sUma, pEso2, pEso3, pEsoc
sUma = 0
lArgo = LEN(ALLTRIM(lPcc))
pEso1 = 2
FOR x = 1 TO lArgo
pEso2 = VAL(SUBSTR(lPcc, x, 1)) * pEso1
pEso3 = IIF(pEso2 > 9, pEso2 - 9, pEso2)
sUma = sUma + pEso3
pEso1 = IIF(pEso1 = 2, 1, 2)
ENDFOR
RETURN RIGHT(ALLTRIM(STR(10 - (MOD(sUma, 10)))), 1)
ENDFUNC
Pasándole los 15 primeros obtenés el último dígito o dígito verificador (al
igual que las CUIT/CUIL).
Existen otras tarjetas (Maestro, American Express, etc) que utilizan otro
largo (de acuerdo a los estándares internacionales pueden llegar hasta 19
dígitos y creo que 15 es el mínimo) para las cuales no sirve este algoritmo.
Espero que te sirva y cualquier duda avisá.
Atte,
Martín A. Glanz
Departamento de Informática
Cooperativa Faro Limitada
Tel. 02941 434601
Cel. 02941 15513059
Cel. 0299 155502921
[email protected]
De: [email protected] [mailto:[email protected]] En nombre de Mario Luis Cabral
Enviado el: Martes, 20 de Abril de 2010 19:59
Para: GUFA List Member
Asunto: [GUFA] Tarjetas de Créditos
Buenas Tarde Gente
..
Alguien tendría disponible los códigos verificadores de las
tarjetas de créditos de la ARGENTINA, para poder realizar un verificación
automática de las misma, obviamente si tienen código de FOX, bienvenido
sea.-
Desde ya muchas gracias por cualquier mano que me acerquen.-
Mario Luis Cabral
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5045 (20100420) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5045 (20100420) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
