[Perl] Firma sha-1

[Gunnar Wolf]

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