Skip to content

Instantly share code, notes, and snippets.

@hc0d3r

hc0d3r/cpf.pl

Created January 26, 2018 01:04
Show Gist options
  • Save hc0d3r/29dc2d551796fdde495fa6a5b83efe93 to your computer and use it in GitHub Desktop.
Save hc0d3r/29dc2d551796fdde495fa6a5b83efe93 to your computer and use it in GitHub Desktop.
Download ZIP
gerador de cpf
Raw
cpf.pl
my(@cpf, $sum);
push @cpf, int rand 10 foreach (2 .. 10);
map { $sum += $cpf[$_] * (reverse 2..10)[$_] } 0..8;
push @cpf, $sum * 10 % 11 % 10;
map { $sum += $_ } unpack('(A)10XA', join('', @cpf));
push @cpf, $sum * 10 % 11 % 10;
print join('', @cpf) . "\n";
@v4p0r
Copy link

v4p0r commented Jan 26, 2018

de 22 linhas foi pra 7 vc é good d+

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment