O script perl abaixo irá gerar uma senha padrão Unix para se inserir no arquivo $CVSROOT/CVSROOT/passwd, para garantir o acesso dos usuários.
Atenção |
Lembre-se: use sempre uma senha diferente da sua senha pessoal para e-mails e acesso à(s) máquina(s) de trabalho. |
#!/usr/bin/perl # Make Password v1.0 - By Daniel Lafraia (lafraia@iron.com.br) # 14/10/97 - Full Release # 03/02/2000 - Corrigidos "bugs" de segurança e traduzido. # <godoy@conectiva.com.br> e <vfarias@conectiva.com.br>. my $pass = $ARGV[0]; if (!$pass) { $pass = prompt('Digite a senha'); } srand time ^ $$; @salt = ('A'..'Z', 'a'..'z', '0'..'9', '.', '/'); $pass = crypt ($pass, $salt[rand scalar @salt] . $salt[rand scalar @salt]); print "Senha criptografada: $pass\n"; sub prompt { my ($quest)=@_; print "$quest: "; my $res = <STDIN>; chomp $res; return $res; } |
Seguem dois exemplos de uso: