Re: [Sop.Tec.LinuxPPP] Comando adduser o passwd.

[Jose Antonio Galicia <jcgalici en cbbanorte com mx>]

On 15 Oct 2002, Cristian Othon Martinez Vera wrote:

>  Algo un poco mas robusto, que aprovecha las facilidades de perl para

 Y un poco más usable sería:

	> #!/usr/bin/perl
	>
	> ($> == 0) or die "Ejecutar como root.\n";
	>
	> $pass="nvopass";
	> $user="usaurio";

	  $MD5 = 1;

	  $salt="";
	  {
	    my $l="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789./";
	    my $i = $user >> 6;
	    my $j = $user % 64;
	    $salt = substr($l, $i, 1).substr($l, $j, 1);
	  }

	  $crypt = crypt($pass, $salt);
	  $crypt = crypt($pass, '$1$'.substr($crypt, 0, 8).'$') if $MD5;

	> open CHPASSWD, '|/usr/sbin/chpasswd'
	>   or warn "No se puede asignar un password para el usuario $user: !$\n";
	> print CHPASSWD "$user:$crypt\n";
	> close CHPASSWD;

 dado que se debe encriptar lo que se le envia a chpasswd

 Saludos,
 Toño
---
Blinding speed can compensate for a lot of deficiencies.
		-- David Nichols

---------------------------------------------------------------------
Lista de soporte de LinuxPPP
 Reglas de la lista en http://linuxppp.com/reglas.html