File Coverage

blib/lib/Net/Braintree/Digest.pm

Criterion	Covered	Total	%
statement	24	54	44.4
branch	0	6	0.0
condition	0	3	0.0
subroutine	8	15	53.3
pod	0	6	0.0
total	32	84	38.1

package Net::Braintree::Digest;
use strict;

use Digest::HMAC_SHA1 qw(hmac_sha1 hmac_sha1_hex);
use Digest::SHA1;
use Digest::SHA256;
use Digest::SHA qw(hmac_sha256_hex);
use Net::Braintree::DigestSHA256;

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(hexdigest hexdigest_256);
our @EXPORT_OK = qw();

sub algo_class {
  my ($algo) = @_;
  if ($algo eq "SHA-1") {
    return "Digest::SHA1";
  } else {
    return "Net::Braintree::DigestSHA256";
  }
}

sub hmac {
  my($key, $algo) = @_;
  return Digest::HMAC->new($key, algo_class($algo));
}

sub hexdigest {
  my($key, $data) = @_;
  return _hexdigest($key, $data, "SHA-1");
}

sub hexdigest_256 {
  my($key, $data) = @_;
  return _hexdigest($key, $data, "SHA-256");
}

sub _hexdigest {
  my ($key, $data, $algo) = @_;
  my $digested_key = key_digest($algo, $key);
  my $hmac = hmac($digested_key, $algo);
  $hmac->add($data);
  return $hmac->hexdigest;
}

sub key_digest {
  my ($alg, $key) = @_;
  my $sha = Digest->new($alg);
  $sha->add($key);
  return $sha->digest;
}

sub secure_compare {
  my ($left, $right) = @_;

  if ((not defined($left)) || (not defined($right))) {
    return 0;
  }

  my @left_bytes = unpack("C*", $left);
  my @right_bytes = unpack("C*", $right);

  if (length(@left_bytes) != length(@right_bytes)) {
    return 0;
  }

  my $result = 0;
  for (my $i = 0; $i < length(@left_bytes); $i++) {
    $result |= $left_bytes[$i] ^ $right_bytes[$i];
  }
  return $result == 0;
}

1;