Página 1 de 1

CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 09:14 @426
por silva
Estoy usando CGI::Application::Plugin::Authentication, pero mi problema es que la contraseña a la que tengo que comparar está codificada en mi base de datos con un módulo no convencional.

Mi idea es aplicarle al parámetro contraseña de entrada la función de codificación, para luego si comparar con lo almacenado en base de datos. Pero no hace nada. ¿Cuál es mi error? ¡Gracias!

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.  
  2.  my $crypt = My::Crypt->new( debug => 0 );  
  3.  my $texto= 'textodeencriptado';
  4.      
  5.  my $parametro_clave = $crypt->encrypt($q->param('authen_password') ,$texto);
  6.  $q->param( -name => 'authen_password', value =>$parametro_clave) ;
  7.      
  8.      
  9.  $self->authen->config(
  10.         CREDENTIALS => ['authen_username', 'authen_password'],
  11.         DRIVER => ['DBI',
  12.                     DBH         => $self->dbh,
  13.                     TABLE       => 'login',
  14.                     CONSTRAINTS => {
  15.                         'login.usuario' => '__CREDENTIAL_1__',
  16.                         'login.clave' => '__CREDENTIAL_2__' ,
  17.                         'login.estado_cuenta' => 0  ,
  18.                     },
  19.          ],
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Re: CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 09:29 @437
por explorer
¿Seguro que es "value" el valor de la clave que estás usando en la subrutina de validación?

Re: CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 09:38 @443
por silva
explorer escribiste:¿Seguro que es "value" el valor de la clave que estás usando en la subrutina de validación?


En la base de datos la contraseñas están cifradas (las guardo así). Cosa que no sucede con el parámetro ingresado como contraseña al momento del login (no está cifrado).

Lo que trato hacer, es aplicar una función de codificación a la contraseña ingresada para poder comparar con las almacenadas en la base de datos.

Re: CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 10:31 @480
por danimera
Lo que quiere decir explorer es que en el value te hace falta el símbolo "-"

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $q->param(
  2.     -name  => 'foo',
  3.     -value => 'the value',
  4. );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Debes corregir tu código ahí..

Re: CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 10:44 @488
por silva
Corregida la sugerencia -value. No funciona con la corrección tampoco .

Re: CGI::Application::Plugin::Authentication

NotaPublicado: 2020-01-20 11:40 @528
por explorer
Tengo olvidado todo esto, pero, ¿no sería así?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $q->param( authen_password => $parametro_clave);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4