Hackers Net Devil: O Algorítmo do CPF

O Algorítmo do CPF

19:42

O CPF (Cadastro de Pessoas Físicas) tem um algrítmo que não é lá aquelas coisas, se é que você me entende :)
Com uma série de cálculos é possível gerar números válidos de CPF. É claro que existem programas que fazem estes cálculos, mas se você gosta de matemática e programação, eu criei em três linguagens diferentes, scripts que usam o algorítmo do CPF para gerar numeros válidos, todos eles pedem apenas 9 digitos (9 digitos qualqueres) para que sejam gerados os dois ultimos.

Aqui estão:

Delphi:

{
  Gerador de CPF by Rafhack
  Este programa deve ser usado somente para fins acadêmicos.
  O usuário deste código ou do próprio software é responsável por
  seus prórprios atos.
}

unit U_CPF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function gerar(digitos: String) : String;
var
  x, y, quased,d,quasedp, dp, atual : integer;
  digitosatualizados : String;
begin
  x:= 1;
  quased:= 0;
  for y:= 10 downto 2 do begin
    try
      atual:= StrToInt(digitos[x]);
      quased:= quased + atual * y;
    except
      Application.MessageBox('Apenas numeros', 'Erro', 16);
      Break;
    end;
    x := x + 1;
  end;
  d:= 11 - (quased mod 11);
  if d > 9 then d:= 0;
  x:= 1;
  quasedp:= 0;
  digitosatualizados:= digitos + inttostr(d);
  for y:= 11 downto 2 do begin
    try
      atual:= StrToInt(digitosatualizados[x]);
      quasedp:= quasedp + atual * y;
    except
      Application.MessageBox('Apenas numeros', 'Erro', 16);
      Break;
    end;
    x:= x + 1;
  end;
  dp:= 11 - (quasedp mod 11);
  if dp > 9 then dp:= 0;
  result:= digitos + inttostr(d) + inttostr(dp);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.Text <> '') and (length(edit1.Text) = 9) then begin
    Edit2.Text:= gerar(edit1.Text);
  end else begin
     Application.MessageBox('Digite os primeiros 9 digitos','Erro', 16);
  end;
end;

end.

Java:

import java.awt.Container;
import java.awt.Font;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;

import javax.swing.JButton;
import javax.swing.JFrame;
import javax.swing.JLabel;
import javax.swing.JOptionPane;
import javax.swing.JPanel;
import javax.swing.JTextField;

/**
 * Gerador de CPF by Rafhack
 *  Este programa foi criado apenas para fins acadêmicos
 *  O uso deste código ou do próprio software são de respoonsabilidade
 *  do próprio ultilizador.
 * @author RAFAEL
 * @version 1.0
 * @since 1.0
 */
@SuppressWarnings("serial")
public class CPF extends JFrame {
 
 JTextField primeiros,cpfPronto;
 public JButton btnGerar,btnLimpar;
 JLabel cima,baixo;
 String primeiro, segundo;
 JPanel p;
 
 /* Criando a JFrame */
 public CPF() {
  super("Gerador de CPF");
  
  Font f = new Font("Courier", Font.PLAIN, 12); //Fonte usada nos TextFields
  
  primeiros = new JTextField(); //TextField dos 9 primeiros digitos
  primeiros.setFont(f);
  primeiros.setBounds(102, 11, 318, 20);
  
  cima = new JLabel("9 Digitos");
  cima.setBounds(20, 14, 49, 14);
  
  baixo = new JLabel("CPF");
  baixo.setBounds(20, 77, 46, 14);
  
  btnGerar = new JButton("Gerar CPF");
  btnGerar.setBounds(102, 42, 93, 23);
  btnGerar.setDefaultCapable(true);
  btnGerar.addActionListener(new ActionListener() {
   
   @Override
   public void actionPerformed(ActionEvent e) {
     primeiro = gerar(primeiros.getText()); //Os dois ultimos digitos
     cpfPronto.setText(primeiros.getText() + primeiro);
   }
  });
  
  cpfPronto = new JTextField(); //TextField do resultado
  cpfPronto.setFont(f);
  cpfPronto.setBounds(102, 74, 318, 20);
  cpfPronto.setEditable(false);
  
  btnLimpar = new JButton("Limpar");
  btnLimpar.setBounds(331, 42, 89, 23);
  btnLimpar.addActionListener(new ActionListener() {
   
   @Override
   public void actionPerformed(ActionEvent e) {
    primeiros.setText(null);
    cpfPronto.setText(null);
   }
  });
  
  p = new JPanel(null);
  p.add(primeiros);
  p.add(cima);
  p.add(baixo);
  p.add(btnGerar);
  p.add(btnLimpar);
  p.add(cpfPronto);
  
  Container c = getContentPane();
  c.add(p);
  this.getRootPane().setDefaultButton(btnGerar);
  
  setVisible(true);
  setSize(300,300);
  setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  setBounds(100, 100, 450, 147);
 }
 /**
  * Retorna dois digitos conforme os 9 primeiros indicados
  * 
  * Algoritimo: São apresentados 9 digitos, o primeiro digito é multiplicado por 10,
  * o segundo é multiplicado por 9, o terceiro é multiplicado por 8, o quarto por 7,
  * o quinto por 6, o sexto 5, o sétimo por 4, o oitavo por 3 e o nono por 2.
  * Soma-se todos os resultados das multiplicações e extrai-se o resto da divisão por 11.
  * Subtrai-se 11 do resto desta divisão. Se o resultado for maior que 9 então o decimo
  * digito será definido como 0, caso contrário o decimo digito será definido como o resultado
  * da subtração.
  *
  * Temos agora dez digitos. Multiplicamos o primeiro por 11, o segundo por 10, o terceiro
  * por 9, o quarto por 8, o quinto por 7, o sexto por 6, o sétimo por 5, o oitavo por 4, o
  * nono por 3 e o décimo por 2.
  * Soma-se todos os resultados das multiplicações e extrai-se o resto da divisão por 11.
  * Subtrai-se 11 do resto desta divisão. Se o resultador for maior que 9 então o decimo
  * primeiro digito será definido como 0, caso contrário o decimo primeiro digito será
  * definido como o resultado da subtração 
  *
  * @param digs
  * @return Os dois ultimos dígitos
  */
 public String gerar(String digs) {
  int quasep = 0;
  int x = 0;
  for (int i = 10; i >= 2; i--) {
   char atual = digs.charAt(x);
   try {
    quasep += Integer.parseInt(Character.toString(atual)) * i;
   } catch (Exception e) {
    JOptionPane.showMessageDialog(p, "Apenas numeros", "Inane error",
      JOptionPane.ERROR_MESSAGE);
   }
   x++;
  }
  int decimo = 11 - (quasep % 11);
  if(decimo > 9) {
   decimo = 0;
  }
  
  x = 0;
  int quases = 0;
  String digsatualizado = digs + Integer.toString(decimo);
   for (int i = 11; i >= 2; i--) {;
    char atual = digsatualizado.charAt(x);
    try{
     quases += Integer.parseInt(Character.toString(atual)) * i;
    } catch (Exception e) {
     JOptionPane.showMessageDialog(p, "Apenas numeros", "Inane error",
       JOptionPane.ERROR_MESSAGE);
    break;
    }
    x++;
   }
  int decimoprimeiro = 11 - (quases % 11);
  if(decimoprimeiro > 9) {
   decimoprimeiro = 0;
  }  
  
  return Integer.toString(decimo)+Integer.toString(decimoprimeiro);
 }

 
 public static void main(String[] args) {
  new CPF();
 }
 
}

Batch (DOS):

:: Gerador de CPF by Rafhack
:: Este programa deve ser usado somente para fins
:: acadêmicos. O usuário deste código ou do próprio
:: software se resposabiliza por seus próprios atos

@echo off
title Gerador de CPF
goto inicio

:gerar
set ioesent=%~1
set x=0
set y=10
set quased=0
:_return
 echo/set string=%ioesent%>defcur.cmd
 echo/set atual=%%string:~%x%,1%%>>defcur.cmd
 call defcur.cmd
 set /a quased=quased + atual * y
 if not %x% GTR 7 (
  set /a x= x + 1
  set /a y= y - 1
  goto _return)
 set /a d=11 - (quased %% 11)
 if %d% GTR 9 (
  set d=0
 )
set ioesent=%ioesent%%d%
set x=0
set y=11
set quasedp=0
:_returndp
 echo/set string=%ioesent%>defcur.cmd
 echo/set atual=%%string:~%x%,1%%>>defcur.cmd
 call defcur.cmd
 set /a quasedp=quasedp + atual * y
 if not %x% GTR 8 (
  set /a x= x + 1
  set /a y= y - 1
  goto _returndp)
 set /a dp=11 - (quasedp %% 11)
 if %dp% GTR 9 (
  set dp=0
 ) 
 del defcur.cmd
 set cpf=%ioesent%%dp%
 echo/
 echo/CPF:       %cpf%&echo/

:inicio
 set /p "digitos=Insira 9 digitos: "
 CALL:GERAR %DIGITOS%
 pause>nul
 goto inicio

3 comentários :

Unknown disse...: Eu quero ser como você Rafael, Eu estou visitando o Seul site e sua página no facebook, Eu estou estudando para transformar em um programador, E um hacker de conceito rs! Como você é.; 25 de fevereiro de 2015 às 13:28
Unknown disse...: Eu quero ser como você Rafael, Eu estou visitando o Seul site e sua página no facebook, Eu estou estudando para transformar em um programador, E um hacker de conceito rs! Como você é.; 25 de fevereiro de 2015 às 13:28
Unknown disse...: mas vc tem algo que eu possdescobirocpf atraves do nome completo e rg e tal .; 3 de julho de 2016 às 10:26