[Perl] Firma sha-1

[Salman ®]

Ok, gracias a los dos.

Un poco a la desesperada lo habia resuelto con una llamada al sistema como esta:

      $Cadena_Firma=$ImporteServired.$Identificacion.$CodComServired."978"."0".$PaginaRetornoServired.$Clave_Servired;

#      $guardar="/tmp/$Identificacion";
#      open (FIRMA, ">$guardar");
#      print FIRMA $Cadena_Firma;
#      close FIRMA;
#
#      $Firma_Operacion = `sha1sum $guardar`;
#      $Firma_Operacion = uc($Firma_Operacion);
#      ($Firma_Operacion,$borrar)=split(/ /,$Firma_Operacion);
#
#      unlink $guardar;

Mañana me pondre a instalar el modulo en cuestion.

----------
Salvador Guzmán
Salman PSL
Vigo, Galicia, España
+34 986-21.30.27
Móvil  679-Salman
Correo @Salman.ES
www.Salman.ES


----- Mensaje original ----- 
De: "Gunnar Wolf" <gwolf en gwolf.org>
Para: "Salman ®" <correo en salman.es>
CC: <perl en tlali.iztacala.unam.mx>
Enviado: martes, 27 de septiembre de 2005 19:08
Asunto: Re: [Perl] Firma sha-1


| Salman ® dijo [Tue, Sep 27, 2005 at 01:20:28PM +0200]:
| > 
| > Saludos a tod en s
| > 
| > Necesito generar una firma SHA-1 a partir de unos determinados datos, el caso es que llevo toda la semana pasada buscando informacion al respecto y no encuentro la orden apropiada.
| > 
| > He conseguido la orden en PHP, pero en PERL nada :-(
| > 
| > ¿ Alguna idea de donde buscar ?
| 
| ¡En el CPAN! ¿Dónde si no?
| 
| http://search.cpan.org/
| 
| http://search.cpan.org/~gaas/Digest-SHA1-2.10/SHA1.pm
| 
| Digest::SHA1 - Perl interface to the SHA-1 algorithm
| 
| # Functional style
| use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
| 
| $digest = sha1($data);
| $digest = sha1_hex($data);
| $digest = sha1_base64($data);
| $digest = sha1_transform($data);
| 
| 
| # OO style
| use Digest::SHA1;
| 
| $sha1 = Digest::SHA1->new;
| 
| $sha1->add($data);
| $sha1->addfile(*FILE);
| 
| $sha1_copy = $sha1->clone;
| 
| $digest = $sha1->digest;
| $digest = $sha1->hexdigest;
| $digest = $sha1->b64digest;
| $digest = $sha1->transform;
| 
| Saludos,
| 
| -- 
| Gunnar Wolf - gwolf en gwolf.org - (+52-55)1451-2244 / 5623-0154
| PGP key 1024D/8BB527AF 2001-10-23
| Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF
| _______________________________________________
| Perl mailing list
| Perl en tlali.iztacala.unam.mx
| http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl