🚀 go-pugleaf

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

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?

Y ya de paso y sin abusar ;-) , conoceis algun enlace donde pueda buscar 
informacion sobre perl-tk?

Gracias mil.
Kurtsik 
- -- 
- - - ------------------------------------------------------------------
   "Euskera da euskaldun egiten gaituena"
 
   Mandrake 9     Linux erabiltzaile errejistratua: #231651
   GnuPG giltza: www.rediris.es/pgp ---> kurtsik_news
 - ------------------------------------------------------------------
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE+kGEc6gRb2POS43sRAv72AKC2wOrmIhMBUV9Y4mJxDOcRicoEggCdHTs1
wcpRfjWagN2O0i8C6MoeByk=
=a1cJ
-----END PGP SIGNATURE-----