Script em Perl que recebe como argumentos o nome de usuário e senha, criptografa a senha e a grava no arquivo /etc/shadow. Funciona como o comando 'passwd'.

• Download change_passwd.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

my $login = shift;
my $senha = shift;
if (!$login || !$senha) {
  print "Informe login/senha !\nUse $0 login senha\n\n";
  exit;
}

my $passwd = "/etc/shadow";
my $saida = `grep $login $passwd`;
if ($saida !~ /[A-Z]/i) {
  print "Usuário inexistente !\n";
  exit;
}

my $shadow = "";
open(R,$passwd);
while (<R>) {
  if ( $_ =~ /^$login:/ ) {
    my ($user,$pass,$resto) = split(/:/,$saida,3);
    my $newpass = crypt($senha,substr $user,0,2);
    print "crypt($senha," . substr $user,0,2 . ")\n";
    $shadow .= $user . ':' . $newpass . ':' . $resto;
  } else {
    $shadow .= $_;
  }
} # fim while
close(R);

open(W,"> $passwd");
print W $shadow;
close(W);

Compara colunas

Adiciona-Altera senhas/usuarios no sistema

Manipulação de Arquivos Orientada a Objetos

Script para adicionar sites ao Squid

Inserindo sites em Lista do Squid