in reply to Re: POST API in Perl using LWP::UserAgent with authentication providing errors
in thread POST API in Perl using LWP::UserAgent with authentication providing errors

I also tried using

my $post_data_enc = encode_base64(md5($post_data),'');

still it does not work!!

  • Comment on Re^2: POST API in Perl using LWP::UserAgent with authentication providing errors
  • Download Code

Replies are listed 'Best First'.
Re^3: POST API in Perl using LWP::UserAgent with authentication providing errors
by poj (Abbot) on Jan 20, 2018 at 14:24 UTC

    When I run the node.JS code below I get a header value of

    amx PUBLIC KEY:leFWRGAm2eH6rm9t8hoHifpMpWPV5xMZcXtuhrQbUP0=:1516453770998

    Try the same values for keys and nonce in your code and compare

    var nonce      = 1516453770998;
var API_KEY    = 'PUBLIC KEY'
var API_SECRET = 'PRIVATE KEY';

var md5 = crypto.createHash('md5').update( JSON.stringify( {'Currency'
+:"PAC"} ) ).digest();
var requestContentBase64String = md5.toString('base64');
var signature = API_KEY + "POST" + encodeURIComponent( 'https://www.cr
+yptopia.co.nz/api/GetBalance' ).toLowerCase() + nonce + requestConten
+tBase64String;
var hmacsignature = crypto.createHmac('sha256', new Buffer( API_SECRET
+, "base64" ) ).update( signature ).digest().toString('base64');
var header_value = "amx " + API_KEY + ":" + hmacsignature + ":" + nonc
+e;

    [download]
    poj
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom