in reply to Re^2: signature problem
in thread signature problem

output for signature is not good

I said the signature is added after the calculation.
The hmac_sha1 signature requires a key. i.e. key = self.access_key_secret + '&'
Also it should be base64 encoded. Try

my $string_to_sign = 'POST&%2F&'.$ua->www_form_urlencode( $data );
my $key = '<accessSecret>' . '&';
my $signature = hmac_sha1_base64($string_to_sign, $key);
while (length($signature) % 4) {
  $signature .= '='; # padding
}
$data->{'Signature'} = $signature;
printf "str = %s\n",$string_to_sign;
printf "sig = %s\n",$signature;

[download]
poj

Replies are listed 'Best First'.
Re^4: signature problem
by bigup401 (Pilgrim) on Sep 04, 2019 at 19:45 UTC

    there not much problem, but the major problem is to construct the message and declare signature inside the $data array

    #!/usr/bin/perl -w
use HTTP::Tiny;
use POSIX qw(strftime);
use Time::HiRes qw(gettimeofday);
use Encode;
use Digest::SHA qw(hmac_sha1_base64);

my $ua = HTTP::Tiny->new;

$timestamp = strftime '%Y-%m-%dT%H:%M:%S', gmtime();
$ip = $ENV{'REMOTE_ADDR'};
$Nonce = int(rand(1000000));
$access_key = "ddizvEmwcLu",
$from = "sfsdfdf";
$message = "asdasd";
$to = "5435345435";

my $url = "https://sms-intl.ap-southeast-1.aliyuncs.com";


my $data = {
    AccessKeyId  => $access_key,
    Action    => "SendMessageToGlobe",
    Format      => "JSON",
    From => $from,
    Message => $message,
    RegionId => "default",
    SecureTransport => "true",
    SignatureMethod => "HMAC-SHA1",
    SignatureNonce => $Nonce,
    SignatureVersion => "1.0",
    SourceIp => $ip,
    Timestamp => $timestamp,
    To => $to,
    Version => "2018-05-01",
    Signature => $signature,
};

print "Content-type: text/html\n\n";

my $params = $ua->www_form_urlencode( $data );

my $signature = hmac_sha1_base64($params, $access_key);

my $response = $ua->get( $url . '/?' . $params );

print $response->{'content'} . "\n";

printf "params = %s\n", $params;
printf "sig = %s\n",$signature;

    [download]
[reply]
[d/l]
      See Step 5 
      5. Add the obtained signature value to the request parameters as the Signature parameter to sign the request.
      poj
[reply]
      A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom