Perl Requires Chilkat v11.0.0+

Walmart Partner API Authentication (Generate a Signature for a Request)

See more RSA Examples

Demonstrates how to generate a signature for a Walmart Partner REST API call. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $consumerId = 'b68d2a72....';
my $baseUrl = 'https://marketplace.walmartapis.com/v2/feeds';
# This is your Base64 encoded private key
my $privateEncodedStr = 'MIICeAIBADANBgkqhkiG9w0BAQEFAA......';
my $httpMethod = 'GET';

# We need a timestamp in decimal string form representing the number of milliseconds since Jan 01 1970 UTC.
my $dt = Chilkat2::DateTime->new;
# Set bLocal = 1 for a timestamp in the local timezone.  Set bLocal = 0 for a UTC timestamp.
my $bLocal = 0;
# This gets the timestamp in seconds, not milliseconds.
my $timeStampVal = $dt->GetAsUnixTime($bLocal);

# Build the string to sign.
my $sbStringToSign = Chilkat2::StringBuilder->new;
$sbStringToSign->Append($consumerId);
$sbStringToSign->Append("\n");
$sbStringToSign->Append($baseUrl);
$sbStringToSign->Append("\n");
$sbStringToSign->Append($httpMethod);
$sbStringToSign->Append("\n");
$sbStringToSign->AppendInt($timeStampVal);
# We add three zero's so that the timestamp value is in milliseconds.
# We don't care about accuracy down to less than a second.
# All the server cares about is that the request was signed at the current date/time
# within some reasonable margin of error (to account for systems having clocks
# that may be slightly different).
$sbStringToSign->Append("000\n");

my $privKey = Chilkat2::PrivateKey->new;
# Load the private key into a private key object.
# Note: Technically the private key is not PEM because it lacks the header/footer strings
# used for PEM.  However, the LoadPem method will still accept it and load it correctly.
my $success = $privKey->LoadPem($privateEncodedStr);
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

my $rsa = Chilkat2::Rsa->new;
$success = $rsa->UsePrivateKey($privKey);
if (!$success) {
    print $rsa->LastErrorText, "\n";
    exit;
}

# We want a base64 signature string.
$rsa->EncodingMode('base64');

my $signatureString = $rsa->SignStringENC($sbStringToSign->GetAsString(), 'SHA256');
if (!$rsa->LastMethodSuccess) {
    print $rsa->LastErrorText, "\n";
    exit;
}

print 'Signature String: ', $signatureString, "\n";