Gerando senhas aleatórias
Publicado por Sandro Marcell 14/04/2008
[ Hits: 6.276 ]
Homepage: http://sanmarcell.wordpress.com
Simples Perl script que gera senhas aleatórias. Tá meio tosco, mas...
Ex.:
prompt: script.pl 30
prompt: Q-P6#z_Ipo?9+#l-Q4z!W=f6R9Nh+e
Outras versões:
Tcl:
http://www.slackbr.org/forum/viewtopic.php?f=46&t=16424
C shell:
http://www.slackbr.org/forum/viewtopic.php?f=45&t=16455
#!/usr/bin/perl # # Gerando senhas aleatorias. # Sandro Marcell (sandro_marcell@yahoo.com.br) # # Uso: <script.pl> ou <script.pl [valor]> # # Onde: # [valor] determinara a quantidade de caracteres que comporao a senha. # # Obs.: # - Somente numeros sao validos para a string [valor]. # - Caso a string [valor] nao seja declarada, o padrao assumido e 10. # - Se a string [valor] possuir espacos ou quaisquer caracteres que nao # sejam numeros, os mesmos serao removidos. # Inicializando variavel: my $senha; # Removendo caracteres invalidos: my $valor = "@ARGV"; $valor =~ s/[^0-9]//g; # Se [valor] nao for declarado, o padrao e assumido: if (!length $valor) { $valor = 10; } # Vetor com caracteres utilizandos para gerar a senha: my @cars = ('a' .. 'z','A' .. 'Z',0 .. 9,qw(! ? ^ ~ @ # $ % & * - _ + = )); # Loop de controle: for (my $i = 0 ; $i < $valor ; $i++) { # Gerando a senha: reverse $senha .= @cars[int(rand(@cars))]; } # Resultado: print "$senha\n"; # Fim
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Usando comandos shell com Perl
check_mem.pl - Plugin Nagios para checar consumo de RAM
Escrevendo varias linhas em um arquivo qualquer
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)