[tutorial] criando geradores randomico de cpf

bom galera esse vai ser um tutorial basico de como criar geradores de cpf ou outro documento, para deixar o programa com visual melhor eu vou salvar uma imagem de cpf para usar ela no programa, a imagem foi essa

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

o nosso programa vai gerar o nome da pessoa (nome + sobrenome), o codigo (de forma randomica), e data de nascimento, agente poderia fazer um programa mais complexo como um exemplo de programas q da para escolher se vai ser sexo masculino ou feminino, os nomes ser carregado de uma lista de palavras etc (no caso o nosso vai ser por uma simples array com poucos nomes), bom vamos la com delphi aberto agente coloca um componete image da aba addittion, nos atributos da imagem em align colocamos alclient e no  strecth colocamos true e em picture damos dois click e carregamos a imagem do cpf  (so to usando a imagem para deixa com visual melhor mais isso e opcional), depois disso redimesionamos o form para um tamanho bom

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

criamos 3 edits da aba standard e colocamos em cima do nome, do codigo e a data, tambem criamos um button para gerar

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

vamos gerar o codigo do cpf primeiro, para isso damos dois clicks no botao criamos 4 variaveis do tipo integer q eu chamei de n1,n2,n3,n4

Código:

procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
begin
end;

na variavel n1 ate n3 temos q gerar numeros randomico de 0 a 999 e na n4 de 0 a 99, para gerar numeros randomico usamos RandomRange passamos como argumento o numero inicial e o final

Código:

procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
end;

agora criamos uma variavel do tipo string nela vamos atribuir os 4 juntos (temos q usar inttostr para converter para ) com um formato de cpf e depois exibir na edit do codigo

Código:

procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
end;

agora geramos a data de nascimento para isso criamos mais 3 variaveis tipo int colocamos uma para gerar 1 a 28, outra gerado 1 a 12 e outro 1970 ate 1995

Código:

procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
    d1, d2, d3 : integer;
    d4 : string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
   d1 := RandomRange(1,28);
   d2 := RandomRange(1,12);
   d3 := RandomRange(1970,1995);
   d4 :=  inttostr(d1) + '/' + inttostr(d2) + '/' +inttostr(d3);
   Edit3.Text := d4;
end;

nome vai ser mais chato vamos criar duas array uma vai se nome e a outra sobrenome, coloque 3 nomes e 3 sobrenome (as sugestoes dos nomes foram do meu sobrinho aq no lado kkkkkk)

Código:

procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
    d1, d2, d3 : integer;
    d4 : string;
    nome: array[1 .. 5] of string;
    sobre: array [1 .. 3] of string;
    fts: string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
   d1 := RandomRange(1,28);
   d2 := RandomRange(1,12);
   d3 := RandomRange(1970,1995);
   d4 :=  inttostr(d1) + '/' + inttostr(d2) + '/' +inttostr(d3);
   Edit3.Text := d4;
   nome[1] := 'fts315';
   nome[2] := 'yuri';
   nome[3] := 'rafael';
   nome[4] := 'daniel';
   nome[5] := 'renan';
   sobre[1] := 'da silva';
   sobre[2] := 'lacerda';
   sobre[3] := 'celso';
   fts := nome[RandomRange(1,5)] + ' ' + sobre[RandomRange(1,3)];
   Edit2.Text := fts;
end;

bom galera e mais ou menos assim q cria geradores randomicos, imagem final do soft ^^

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

by hfts315

sim mano os numeros sao todos aleatorios

Mas tem um calculo a se fazer para ser realmente valido, tem esse calculo no programa?