[Perl] Firma sha-1

[Salvador Ortiz Garcia]

Lo que necesitas es el módulo Digest::SHA1, lo encuentras en tu mirror
de CPAN más cercano.

En particular creo que lo que buscas sería:

  use Digest::SHA1 qw(sha1_hex);
  ...
  my $var1 = '1234';
  my $var2 = 'PepitoPerez';
  my $clave = 'qwertyasdf0123456789';
  ...
  my $firma = uc sha1_hex("$var1$var2$clave");
  ...

On Tue, 2005-09-27 at 13:20 +0200, Salman ® wrote:
> 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 ?
...
> Y necesito eso mismo pero dentro de un script en PERL, la firma en cuestion es para una pasarela de pagos virtual de Servired en España.


-- 
Salvador Ortiz Garcia <sog en msg.com.mx>
Matías Software Group