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!
Using perl Syntax Highlighting
- my $crypt = My::Crypt->new( debug => 0 );
- my $texto= 'textodeencriptado';
- my $parametro_clave = $crypt->encrypt($q->param('authen_password') ,$texto);
- $q->param( -name => 'authen_password', value =>$parametro_clave) ;
- $self->authen->config(
- CREDENTIALS => ['authen_username', 'authen_password'],
- DRIVER => ['DBI',
- DBH => $self->dbh,
- TABLE => 'login',
- CONSTRAINTS => {
- 'login.usuario' => '__CREDENTIAL_1__',
- 'login.clave' => '__CREDENTIAL_2__' ,
- 'login.estado_cuenta' => 0 ,
- },
- ],
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4