Gerador de Identidade (endereço,nome e cpf no maior mix ;D)

[samukt]

Já que o meu gerador feito em delphi tava dando alerta de virus ae vai:

Code Select Expand

#!/usr/bin/perl
#Gerador de Indentidade v 1.5
#By $4mu:kt
#Basiado no cod by Dr4k3
$conta2=1;

system("color 2");
{
print q{
============================================================================
   _________  _______  _____  ____  __________  ______  ____ _____________   
  |         ||       ||     \/    ||    |     ||      |/   /|   ©$4mu:kt  |
  |     ____||  --   ||           ||    |     ||      ____/ |             |
  |         ||       ||    |  |   ||    |     ||           ||___       ___|
  |____     ||  |    ||    |\/|   ||          ||      |    |    |     |
  |         ||  |    ||    |  |   ||          ||      |    |    |     |
  |_________||__|____||____|  |___||__________||______|____|    |_____|
                                                http://www.inw-seguranca.com
============================================================================

};
};
sleep 1;

@caracteres=(
"Rua: Quinze de Novembro, 11 Bairro: Tremembe Cidade: Sao Paulo Estado: SP Cep: 02362-085 Pais: BRASIL Cpf: 140.082.903-89","Avenida: Alm. Barroso, 139 Bairro: Centro Cidade: Rio de Janeiro Estado: RJ Cep: 20031-005 Pais: BRASIL Cpf: 331.892.376-11","Rua: Girassol, 134 Bairro: Pinheiros Cidade: Sao Paulo Estado: SP Cep: 05433-000 Pais: BRASIL Cpf: 180.979.133-21",
);

print "Gerando...";
print "\nGenerating ... \n ";
chomp($carac= 1 );
$p2="";


if ($carac >= 0){
for ($conta=1, $max=$carac; $conta <= $max; $conta++) {
$num = rand(@caracteres);
$p1 = $caracteres[$num];
$p2 = "$p1$p2";
}
push(@senhas,$p2);
sleep 2;
print "\n$p2\n";
}

if ($vezes >= 1) {
$vezes=0;
}
print "\nPressione enter para sair...\n";
print "Press enter to exit... ";
<STDIN>;
Caso você não saiba como codar:
Download Do executavel (.exe)

[Neosapien]

Vou confiar em vc, odeio pragas no meu computador! Odeio mesmo KKKK  >:(