Gerando senhas aleatórias
Publicado por Sandro Marcell 14/04/2008
[ Hits: 6.203 ]
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
Soma varios valores e mostra sua media
"Codificação" de texto em Perl
Como gerar qualquer emoji ou símbolo unicode a partir do seu teclado
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Muitas dificuldades ao instalar distro Linux em Notebook Sony Vaio PCG-6131L (VPCEA24FM)
Slackpkg+ (Slackpkg Plus) está de volta!
Como dividir duas janelas igualmente e lado-a-lado na sua tela
Configurando o Conky para iniciar corretamente no sistema
3 configurações básicas que podem melhorar muito a sua edição pelo editor nano
Minha rede tem um espaço invisível que não dá pra digitar o nome da re... (1)
Pedagogia no brasil não passa de alfabetização por m4sturbação mental ... (2)
compilação samba 4.22 rock linux 9.5 (3)
Erro de segmentação «Segmentation fault (core dumped)» ao retornar obj... (7)