Foro - Perl en Español

Publicado: **2014-01-07 15:08 @672**

¿ Hay algún script en perl ya hecho de cómo generar con números de 6 dígitos usando el algoritmo de Luhn ?

Encontré este módulo: http://search.cpan.org/~tayers/Algorith ... 00/LUHN.pm , pero solo sirve para verificar.

Publicado: **2014-01-07 15:56 @706**

Usa la función check_digit() del módulo Algorithm::LUHN.

Publicado: **2014-01-14 17:07 @755**

Ya lo probé y solo sirve para verificar.

Publicado: **2014-01-14 17:26 @768**

Perdón por el doble mensaje, pero encontré algo así ya hecho en Python:

Sintáxis: [ Descargar ] [ Ocultar ]

Using python Syntax Highlighting

from random import Random
import copy
generator = Random()
generator.seed()
 
def creditcard(type=""):
        def credit_card_number(generator, prefixList, length):
            def _completed_number(prefix, length):
                ccnumber = prefix
                while len(ccnumber) < (length - 1):
                    digit = generator.choice(['0',  '1', '2', '3', '4', '5', '6', '7', '8', '9'])
                    ccnumber.append(digit)
                sum, pos = (0, 0)
                reversedCCnumber = []
                reversedCCnumber.extend(ccnumber)
                reversedCCnumber.reverse()
                while pos < length - 1:
                    odd = int( reversedCCnumber[pos] ) * 2
                    if odd > 9:
                        odd -= 9
                    sum += odd
                    if pos != (length - 2):
                        sum += int( reversedCCnumber[pos+1] )
                    pos += 2
                checkdigit = ((sum / 10 + 1) * 10 - sum) % 10
                ccnumber.append( str(checkdigit) )
                return ''.join(ccnumber)
            result = []
            ccnumber = copy.copy( generator.choice(prefixList) )
            result.append( _completed_number(ccnumber, length) )
            return result
             
        if type in "visa":
            visaPrefixList = [['4','0','2','4', '0', '0', '7', '1'],]
            return credit_card_number(generator, visaPrefixList, 16)
        elif type is "amex":
            amexPrefixList = [['3','4'],['3', '7']]
            return credit_card_number(generator, amexPrefixList, 16)
        elif type is "discover":
            discoverPrefixList = [['6','0','1','1']]
            return credit_card_number(generator, discoverPrefixList, 16)
        elif type is "mastercard":
            mastercardPrefixList = [['5','1'],['5','2'],['5','3'],['5','4'],['5','5']]
            return credit_card_number(generator, mastercardPrefixList, 16)
 
 
print creditcard("visa");
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Publicado: **2014-01-14 17:26 @768**

No. check_digit() devuelve el dígito de control del número que pasas como argumento.

is_valid() es la función que comprueba si un número es válido o no.

Entonces, solo necesitas crear o generar la raíz del número, y check_digit() lo completa para hacerlo válido.

Eso es justo lo que hace el programa en Python: genera el número, de forma aleatoria, con un dígito menos, y luego genera el dígito de control y se lo pega.

Publicado: **2014-01-14 17:44 @780**

Bueno, entonces mi idea es generar un número de 16 dígitos diferente constantemente en un while y después comprobar con el módulo, pero ¿me podes ayudar porque no sé usar el random en Perl? Lo sé hacer en Python, pero no en Perl.

Publicado: **2014-01-15 05:29 @270**

Es sencillísimo...

my $numero = join '', map { int rand 10 } 1 .. 16;

o incluso:

my $numero = int rand 1_0000_0000_0000_0000;

Bueno, en este último caso, habría que mirar si le faltan '0' delante.

Publicado: **2014-01-15 09:47 @449**

Bueno, el código quedó así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
 
use Algorithm::LUHN qw/check_digit is_valid/;
 
while (1) {
    my $numero = join '', map { int rand 10 } 1 .. 16;
    if ( is_valid($numero) ) {
        print "[+] $numero\n";
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿ Una vez generado hay alguna forma de saber si es Visa, Mastercard u otro ?

Publicado: **2014-01-15 10:55 @496**

Ese código tiene un problema: que genera más números de los que son necesarios. Quiero decir que estás eligiendo números al azar, y luego compruebas si son válidos o no. Si no lo son, lo vuelves a intentar con otro número.

Es mejor lo que hemos dicho antes: generar los primeros dígitos y luego el módulo nos extrae el último número de control (que es lo que realmente hace el programa en Python):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
use Algorithm::LUHN qw/check_digit/;
 
for (1..100) {
    my $numero = join '', map { int rand 10 } 1 .. 15;   # generamos uno menos del largo
    my $check  = check_digit($numero);                   # dígito de control
    print "[+] $numero$check\n";                         # salida directa del resultado
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El saber a qué empresa pertenece, pues según la norma ISO/IEC 7812, los primeros dígitos están reservados para indicar a qué entidad se refiere el número. En el programa en Python verás que se crea un prefijo distinto según el tipo de tarjeta que queramos crear. Por ejemplo, en Visa, se elige uno de entre 8 dígitos posibles , mientras que en Amex, se elige entre dos combinaciones: '34' o '37'.

Publicado: **2014-01-15 12:11 @549**

Sí, esa es la parte que no entiendo, el tema de los prefijos. Por ejemplo, si quiero generar uno con Visa tengo que cambiar el primer número por cualquiera de estos: visaPrefixList = [['4','0','2','4', '0', '0', '7', '1'],] ¿ O hay que cambiar más de dos ?

Foro - Perl en Español

Algoritmo de Luhn

Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn

Re: Algoritmo de Luhn