🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #7099

Re: Encriptacion de contraseñas en perl

#7099
From: Jose A
Date: Mon, 07 Apr 2003 12:40
34 lines
2244 bytes
Hola

En el art�culo <slrnb914en.tn.444398NOSPAM@tizona.dummy.net>, Samuel escribi�:
>
> Me da en la nariz que Mandrake usar� passwords MD5, as� que la llamada
> crypt no te servir� de mucho.

Crypt si sirve para mucho.

Las claves MD5 tienen la forma "$1$abcdefgh$password_md5", donde el "$1$"
identifica que es una clave md5, el "abcdefgh" es la salt que puede ser de
uno a ocho la longitud, y el siguiente "$" es el separador entre la salt y
la clave encriptada.

Para encriptar una clave usando MD5 solo tienes que hacer:

--------------------------cortar aqui-----------------------------
#!/usr/bin/perl

$password = "password"; # Aqui pones la password que quieras con un m�ximo
                        # de 127 caracteres.
$salt = '$1$abcdefgh';  # Aqui pones la salt con un m�ximo de 8 caracteres.

printf crypt ($password, $salt), "\n";
--------------------------cortar aqui-----------------------------

Es importante que se usen las comillas simples para el valor "$1$", pues si
usas comillas dobles ahi que ponerlo as�: "\$1\$", pues si no cree que estas
reciriendote a una variable.

Como ves, para que crypt use la encriptaci�n MD5 solo hay que usar el valor
"$1$" antes de la salt.

saludos.
Technical Details
Message-ID: <slrnb92sej.5d4.MAQUI000@213.60.229.43>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!cyclone.bc.net!snoopy.risq.qc.ca!newsfeed.news2me.com!newshosting.com!news-xfer2.atl.newshosting.com!129.250.35.142.MISMATCH!iad-feed.news.verio.net!cesio.mundo-r.com!213.60.229.43!news
References: <b6pgcv$7h755$1@ID-101278.news.dfncis.de> <slrnb914en.tn.444398NOSPAM@tizona.dummy.net>

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-07 05:57:36 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!cyclone.bc.net!snoopy.risq.qc.ca!newsfeed.news2me.com!newshosting.com!news-xfer2.atl.newshosting.com!129.250.35.142.MISMATCH!iad-feed.news.verio.net!cesio.mundo-r.com!213.60.229.43!news
From: Jose A <MAQUI000@NOSPAM.mundo-r.com>
Newsgroups: es.comp.os.linux.programacion
Subject: Re: Encriptacion de contraseñas en perl
Date: Mon, 7 Apr 2003 14:40:52 +0200
Organization: R Cable y Telecomunicaciones
Lines: 34
Message-ID: <slrnb92sej.5d4.MAQUI000@213.60.229.43>
References: <b6pgcv$7h755$1@ID-101278.news.dfncis.de> <slrnb914en.tn.444398NOSPAM@tizona.dummy.net>
NNTP-Posting-Host: 213.60.229.43
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
User-Agent: slrn/0.9.7.4 (Linux)