[tutorial] criando geradores randomico de cpf

Postagem de conteúdo sobre engenharia social
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 688
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[tutorial] criando geradores randomico de cpf

Post by Kodo no Kami » Thu Apr 23, 2015 5:51 am

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

Image

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

Image

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

Image

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

Code: Select all

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

Code: Select all

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

Code: Select all

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

Code: Select all

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)

Code: Select all

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 ^^

Image

by kodo no kami
Image

que desagradavel ~ mirai kuriyama

Post Reply

Return to “Engenharia Social / Phishing”