[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]On Thu, 19 Jul 2001, Lic. Carlos Rodriguez wrote:
> mira,.!!
> necesito saber la manera en que encripta linux...
Ok, te mando un correo que envie hace algunos ayeres:
------------------
Date: Tue, 29 May 2001 17:07:55 -0500 (MVC)
From: Jose Antonio Galicia <jcgalici en cbbanorte com mx>
To: Lic. Carlos Rodriguez <krusty en palcoweb com>
Subject: RE: [Sop.Tec.LinuxPPP] MD5
On Tue, 29 May 2001, Alejandro Osorio wrote:
> funciones de encriptación de la librería "crypt". Un
> sencillo ejemplo del uso de ésta lo encuentras con "info
> libc" y luego seleccionar "cryptographic functions".
:) Esto me dio una idea y es cierto, es cierto, vi un lindo
gatito:
perl -ne '
split ":";
if (($s) = ($_[1] =~ /(\$1\$[^\$]+\$)/)) {
print "$_[1] ".crypt("password", $s)." $_[0]\n"
}' /etc/shadow
Breve explicación. Perl usa las bilbiotecas del glib por lo
que llama al crypt del sistema. Ya lo habia hecho antes pero
siempre usando el "salt" usando tradicionalmente en el
/etc/passwd que es de dos caracteres. Si a crypt le pasas la
cadena descrita en el "info libc" -> "Cryptographic
Functions" -> "cript" te regresa el valor usando cálculo con
MD5. Así las cosas, para generar el shadow password basta
con generar el salt y pasarselo a crypt.
El ejemplo de arriba te sirve como guia para entender el
asunto. En ligar de "password" usa tu propio password y
veras que te regresa el mismo valor.
Saludos,
Toño.
---
mailto: jcgalici en cbbanorte com mx
------------------
Ahora, esto *te lo envie* hace dos meses y no recibí
respuesta, pensé que ya estaría solucionado.
> necesito sacar el encriptado (identico como lo hace
> linux) de los passwords) es decir necesito hacer un .cgi
Así que dependiendo de lo que uses para tu CGI bastará con
llamar la biblioteca correspondiente.
> que me encripte los passwords y los incruste en un
> archivo de password para tacacs( autentificacion)..
Una vez que resuelvas tu problema nos sería de mucha
utilidad que retroalimentaras la lista con el "como se hace"
y si tiene tiempo incluso te agradeceriamos un "howto".
El mismo ejemplo pero simplificado:
perl -ne '
split ":";
if (($s) = ($_[1] =~ /(\$1\$[^\$]+\$)/)) {
$p=crypt("password", $s);
if ($_[1] eq $p ) {
print "$p\n$_[1] $_[0]\n"
}
}' /etc/shadow
> es por eso quenecesito saber como es que encripta..
> encontre una forma pero me encripta a 64 bist y creo que
> esta version de redhat encripta a 128.!!
Ahí esta, estuvo y estará la respuesta. Si necesitas más
ayuda con gusto pongo a tu dispocición nuestro servicio de
soporte técnico:
Compugraf
5 551 4072
--
Saludos,
Toño.
---------------------------------------------------------------------
Lista de soporte de LinuxPPP
Reglas de la lista en http://linuxppp.com/reglas.html