Article View: es.comp.os.linux.programacion
Article #7097Re: Encriptacion de contraseñas en perl
From: Miguel
Date: Sun, 06 Apr 2003 16:00
Date: Sun, 06 Apr 2003 16:00
27 lines
2185 bytes
2185 bytes
Hi,
> Salu2.
> Estoy haciendo un script en perl para crear un monton de usuarios a la
> vez, el problema es que tengo que encriptar las contrase�as para que no me
> las pida con cada useradd. He estado buscando en google y he encontrado
> este trozo de codigo que hizo algun ecolero hace tiempo :-) :
>
> #!/usr/bin/perl -w
> use lib ('./Sources/Lib','./',);
> $pass = "123456";
> $name = "kurtsik";
> print crypt ($pass, lc (substr($name, 0, 2 )));
>
> El problema es que no consigo entender como funciona y ademas las
> contrase�as que genera son mucho mas cortas que las de mandrake. Podriais
> echarme una mano?
Lo que necesitas es expect, expect es un programa que viene con todas las
distros (o casi todas), tambien hay un modulo para perl, perl-expect (
estos dos paquetes los tienes en los cds de la propia mandrake).
Expect permite controlar y ejuectar aplicaciones interactivas desde
un script.
Expect trae ya un script llamado autopasswd, que lo puedes llamar
para dar de alta usuarios y contrase�as.
Salud2 !!!
Technical Details
Message-ID:
<b6piop$gl$1@nsnmrro2-gest.nuria.telefonica-data.net>Path:
arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.vmunix.org!fu-berlin.de!nsnmpen1-lo.nuria.telefonica-data.net!nsnmrro2-lo.nuria.telefonica-data.net!not-for-mailReferences:
<b6pgcv$7h755$1@ID-101278.news.dfncis.de>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,a4f41b515bfdadf5 X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2003-04-06 08:57:15 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!logbridge.uoregon.edu!newsfeed.vmunix.org!fu-berlin.de!nsnmpen1-lo.nuria.telefonica-data.net!nsnmrro2-lo.nuria.telefonica-data.net!not-for-mail From: Miguel <nospam@nospam.com> Newsgroups: es.comp.os.linux.programacion Subject: Re: Encriptacion de contraseñas en perl Date: Sun, 06 Apr 2003 18:00:48 +0200 Organization: Michael Corp Lines: 27 Message-ID: <b6piop$gl$1@nsnmrro2-gest.nuria.telefonica-data.net> References: <b6pgcv$7h755$1@ID-101278.news.dfncis.de> NNTP-Posting-Host: 213-98-127-85.uc.nombres.ttd.es Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-15 Content-Transfer-Encoding: 8Bit X-Trace: nsnmrro2-gest.nuria.telefonica-data.net 1049644633 533 213.98.127.85 (6 Apr 2003 15:57:13 GMT) X-Complaints-To: usenet@nsnmrro2-gest.nuria.telefonica-data.net NNTP-Posting-Date: Sun, 6 Apr 2003 15:57:13 +0000 (UTC) User-Agent: KNode/0.7.2