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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Local $bSuccess

Local $sConsumerId = "b68d2a72...."
Local $sBaseUrl = "https://marketplace.walmartapis.com/v2/feeds"
; This is your Base64 encoded private key
Local $sPrivateEncodedStr = "MIICeAIBADANBgkqhkiG9w0BAQEFAA......"
Local $sHttpMethod = "GET"

; We need a timestamp in decimal string form representing the number of milliseconds since Jan 01 1970 UTC.
$oDt = ObjCreate("Chilkat.CkDateTime")
; Set bLocal = True for a timestamp in the local timezone.  Set bLocal = False for a UTC timestamp.
Local $bLocal = False
; This gets the timestamp in seconds, not milliseconds.
Local $iTimeStampVal = $oDt.GetAsUnixTime($bLocal)

; Build the string to sign.
$oSbStringToSign = ObjCreate("Chilkat.StringBuilder")
$oSbStringToSign.Append($sConsumerId)
$oSbStringToSign.Append(@LF)
$oSbStringToSign.Append($sBaseUrl)
$oSbStringToSign.Append(@LF)
$oSbStringToSign.Append($sHttpMethod)
$oSbStringToSign.Append(@LF)
$oSbStringToSign.AppendInt($iTimeStampVal)
; 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).
$oSbStringToSign.Append("000" & @LF)

$oPrivKey = ObjCreate("Chilkat.PrivateKey")
; 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.
$bSuccess = $oPrivKey.LoadPem($sPrivateEncodedStr)
If ($bSuccess <> True) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

$oRsa = ObjCreate("Chilkat.Rsa")
$bSuccess = $oRsa.ImportPrivateKeyObj($oPrivKey)
If ($bSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; We want a base64 signature string.
$oRsa.EncodingMode = "base64"

Local $signatureString = $oRsa.SignStringENC($oSbStringToSign.GetAsString(),"SHA256")
If ($oRsa.LastMethodSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Signature String: " & $signatureString & @CRLF)