Gerando senhas aleatórias
Publicado por Sandro Marcell 02/03/2008
[ Hits: 16.874 ]
Homepage: http://sanmarcell.wordpress.com
Simples script Tcl que gera senhas aleatórias.
Ex.:
prompt > script.tcl 10
prompt > AshX$nj&tK
Talvez seja útil a alguém!
#!/usr/bin/tcl # # Gerando senhas aleatórias. # Sandro Marcell (sandro_marcell@yahoo.com.br) # # Uso: <script.tcl> ou <script.tcl [valor]> # # Onde: # [valor] determinará a quantidade de caracteres que comporão a senha. # # Obs.: # - Somente números são válidos para a string [valor]. # - Caso a string [valor] não seja declarada, o padrão assumido é 8. # - Se [valor] possuir espaços ou quaisquer outros caracteres que não # sejam números, os mesmos serão removidos. # Inicializando variável SENHA: set SENHA {} # Removendo caracteres inválidos: set VALOR [regsub -all {[^0-9]} $argv {}] # Se a string [valor] não for especificada, o padrão é assumido! if {![string length $VALOR]} { set VALOR 8 } # Lista com caracteres utilizados para gerar a senha: set CARS { a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 0 1 2 3 4 5 6 7 8 9 ! ? ^ ~ @ # $ % & * - _ + = } # Loop de controle: for {set I 0} {$I < $VALOR} {incr I} { # Gerando a senha: # [expr...] gera um valor aleatório com base no tamanho de $CARS; # [lindex...] pega o valor gerado e utiliza-o como índice para # capturar um caractere em $CARS; # [append...] recebe do lindex os caracteres e concatena-os # na variável $SENHA. append SENHA [lindex $CARS [expr {int([llength $CARS]*rand())}]] } # Resultado: puts stdout $SENHA # Fim
Criando uma simples lixeira para o usuário [Melhorado]
Compactando arquivos e diretórios simultâneamente
Compactando / descompactando arquivos (Melhorado)
Convertendo escalas termométricas
Simples visualizador de arquivos texto
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Instalando Grub Customizer no Ubuntu 24.04
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Som continua saindo no auto-falante mesmo com headphone, como conserto... (3)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (39)