🚀 go-pugleaf

Este es un mensaje multipartes en formato MIME.
--------------344418E4AC8694165E4723B9
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

"J.A. Gutierrez" escribi�:

> Evelio Mart�nez <evelio.ml@ctv.es> wrote:
>
> : �C�mo puedo comprobar que la clave que se guard� mediante el comando
> : htpasswd en un fichero es igual a
> :   la introducida en un formulario ?
>
>         buen, en principio, no necesitas hacerlo. Es el httpd el que
>         se encarga de eso, dirigido por el .htaccess correspondiente.

Es necesario si quiero que el usuario se cambie su password y no machaque el
que tenia antes, salvo que expresamente quiera.
Para ello deber� comprobar si el password antiguo es el que dice ser.

>
>
>         Pero si te empe~nas, se hace igual que con el password standard
>         de unix: encriptas el password suministrado por el usuario usando
>         crypt usando como sal los dos primeros caracteres del password
>         encpriptado almacenado, y comparas este con el resultado de la
>         operacion.

He hecho una prueba con los 2 primeros caracteres, pero como no funcionaba he
ido tomando de principio a fin 2 digitos de la clave encriptada.

�He hecho algo mal?

Te adjunto el script con el que he hecho la prueba.

Un saludo

Evelio

--------------344418E4AC8694165E4723B9
Content-Type: text/plain; charset=us-ascii;
 name="valida"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="valida"

#! /usr/bin/perl

$clave = 'E4jqk0IBlZGSM';

$lon = length $clave;
# print "longitud: ", $lon, "\n";

 print "clave: $clave \n";

print "Entra clave: ";
$tecleada = <STDIN>;
for ( $i=0 ; $i <= ($lon-1); $i++ ) {
  $salto = substr($clave,$i,2);
  print "salto: $salto \n";
  if ( crypt( $tecleada, $salto ) ne $clave ) {
       print "----------  $salto incorrecta \n"; 
     }
      else { 
         print "********* correcta \n"; 
      }
}


--------------344418E4AC8694165E4723B9--