Fatal 3rror - No. 08
@eZine
Published in
Fatal 3rror
· 2 years ago
... a que usa um algoritmo simples de geracao de numeros de cpf randomicos. <++> geracpf/geracpf.pl #!/usr/bin/perl #Gerador de CPF #2002 by pcHazard <cybercrash@ig.com.br> print STDERR "-[+]--------------------------------[+]-\n"; print STDERR " CPFuckYou by pcHazard\n"; print STDERR "-[+]--------------------------------[+]-\n"; $cpfs = $ARGV[0] || 1; @numeros = ('0' .. '9'); for ($i=1;$i <= $cpfs; $i++) { $numero = ''; for $x (1 .. 9) { $numero .= $numeros[rand @numeros]; } $digito = calcula_digito_cpf($numero); $numero_final = "$numero$digito"; $numero_final = substr($numero_final,0,3).".".subs ...
