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.003 segundos, usando GeSHi 1.0.8.4