my $digest = Digest::HMAC_SHA1::hmac_sha1($time . "/" . $id, $secret);
my @digest_bytes = _to_byte_array($digest);
# Mask the token to avoid the BREACH attack.
my $digest = Digest::HMAC_SHA1::hmac_sha1($time . "/" . $id, $secret);
my @digest_bytes = _to_byte_array($digest);
# Mask the token to avoid the BREACH attack.
- my ($id, $secret, $csrf_token, $max_age) = @_;
+ my ($id, $secret, $csrf_token, $options) = @_;
}
my ($masked_token, $mask, $time) = ($1, $2, $3);
}
my ($masked_token, $mask, $time) = ($1, $2, $3);