[Linux-bruxelles] crypt et salt debian /etc/passwd
jens-ingo brodesser
jens.ingo.brodesser at euronet.be
Ven 20 Avr 01:37:28 CEST 2001
hello bxlug,
est-ce que quelcun connait le algorithme salt qui permet d'avoir la
langeur d'un shadow password actuel dans /etc/passwd de debian (en
perl svp) ?
voila avec ce que j'essaye, mais le resultat est plus court que les
autres shadow passwds generes par la commande adduser:
#!/usr/bin/perl
use Passwd::Linux qw(setpwinfo);
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$now = time;
($pert1, $pert2) = unpack("C2", $_);
$week = $now / (60*60*24*7) + $pert1 + $pert2 - length($_);
$salt = $saltset[$week % 64] . $saltset[($now + ord(substr($_,0,1))) % 64];
$crypt = crypt( $password, $salt );
@info = ($username, $crypt, $uid, $gid, $GECOS, $HOME, $SHELL);
$err=setpwinfo(@info);
if ... et blablabla
resultat genre : HuYi9uElXWSOw
par rapport a un shadow debian : $1$TRl9nD67$h1Nxa1bNtLQLpFuxLdTgM.
en tout cas le password ainsi genere fonctionne bien.
merci pour toute suggestion
Plus d'informations sur la liste de diffusion Linux-bruxelles