sub signing_key()

in legacy/perl/topsites.pl [85:92]

• 8 lines of code
• 1 McCabe index (conditional complexity)

sub signing_key {
    my ($kSecret,$service,$region,$date) = @_;
    my $kDate    = hmac_sha256($date,'AWS4'.$kSecret);
    my $kRegion  = hmac_sha256($region,$kDate);
    my $kService = hmac_sha256($service,$kRegion);
    my $kSigning = hmac_sha256('aws4_request',$kService);
    return $kSigning;
}