Já que o meu gerador feito em delphi tava dando alerta de virus ae vai:
#!/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) (http://www.4shared.com/file/133443989/be89eb36/gera.html)
Vou confiar em vc, odeio pragas no meu computador! Odeio mesmo KKKK >:(