Gerando senhas aleatórias
Publicado por Sandro Marcell 14/04/2008
[ Hits: 6.258 ]
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
Saiba quanto de energia seu PC gasta aproximadamente por mês
Assistente de instalação por apt!
Calcula equação de segundo grau completa
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
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Jogos baixados na Central de Aplicativos mas que não abrem (1)
debian com wayland, configuracao de teclado. Mudou Tudo! [RESOLVIDO] (1)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)