Xbase++ Requires Chilkat v11.0.0+

Everyware API RSA Encrypt JSON

See more RSA Examples

Demonstrates how to RSA encrypt JSON using everyware.com's RSA public key. Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL oDt
LOCAL oSb
LOCAL nBCrlf
LOCAL oPubkey
LOCAL oRsa
LOCAL cEncryptedJson
LOCAL oSbUrl

nSuccess := 0

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

//  First build the JSON to be encrypted.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("provider_key", "USER GUID HERE")
oJson:UpdateString("menu_item", "payment")
oDt := CreateObject("Chilkat.CkDateTime")
oDt:SetFromCurrentSystemTime()
oJson:UpdateString("date_time", oDt:GetAsUnixTimeStr(0))

//  This build JSON like the following:

//  {
//      "provider_key": "USER GUID HERE",
//      "menu_item": "payment",
//      "date_time": "1588163411"
//  }

//  When we sign, we'll want to sign the most compact JSON possible
oJson:EmitCompact := 1

//  Everyware's RSA public key is at:  https://docs.everyware.com/docs/everyware-public-rsa-key
oSb := CreateObject("Chilkat.StringBuilder")
nBCrlf := 1
oSb:AppendLine("-----BEGIN PUBLIC KEY-----", nBCrlf)
oSb:AppendLine("MIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAxNbflxUSWQ3XJ1N9dAoh", nBCrlf)
oSb:AppendLine("k+uaiFsg3wkPi9LGS/mH8DtHBgZxKyz+oQBDtnDd9FDEo0ql7MMgCMsTAv27W5vk", nBCrlf)
oSb:AppendLine("Pu0rm6zhcTeYquWEuVCS7VtVsyTATr0Z9WhqNeZlIRurovJAXl2jRDX6QeY5dayC", nBCrlf)
oSb:AppendLine("ubwyG4lBWE4fCakGY6zlh+oaElK0rvblqjYoEg3dn4KPRCYGof8OFxLptHThD4cE", nBCrlf)
oSb:AppendLine("T30j+utVafhO0HRyJ4iR3Pigb4GXdWBtJEEEWddZJizMkjFQkyUAoYLOT8EJ2TW3", nBCrlf)
oSb:AppendLine("Tz8SvAuHBUEFcPWTSTMAG/bSp5wrYBTXaeEhx+wrYa60OruHuzgmhzKyQVuYlCNJ", nBCrlf)
oSb:AppendLine("HdbnassuIRjjSNo25o4AdSlWwpGfBZjAiyEInR+KGpHdhKTxSekJxiwiXUS0UfSG", nBCrlf)
oSb:AppendLine("prOpd5PzWaAR7DvjLsdmR9XffxvJCVxC735gLK7hDJKjCajDPHVDr8FSL8xMlrq0", nBCrlf)
oSb:AppendLine("nKxtsHeRl1yzoGrRr12+9MiQnHtpqROTNXcXdwe3v+Vh8V5k8v8oIrcgh1+/N7Bd", nBCrlf)
oSb:AppendLine("NiRsy1gFHBdu/he/KcDRT/9/acQFMPLQueGfZxUvU5As6pEONjtKX2MUg2fMF6Rc", nBCrlf)
oSb:AppendLine("sQVVrLzg0g7EcuHGfuPeKfD/716MvS8NU7rX+2soijCSQv/e18PJPMVDlcMXjnup", nBCrlf)
oSb:AppendLine("PPx1tStemesavFlj1okhS6UCAwEAAQ==", nBCrlf)
oSb:AppendLine("-----END PUBLIC KEY-----", nBCrlf)

oPubkey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubkey:LoadFromString(oSb:GetAsString())
IF (nSuccess == 0)
    ? oPubkey:LastErrorText
    oJson:destroy()
    oDt:destroy()
    oSb:destroy()
    oPubkey:destroy()
    RETURN
ENDIF

oRsa := CreateObject("Chilkat.Rsa")
nSuccess := oRsa:UsePublicKey(oPubkey)
IF (nSuccess == 0)
    ? oRsa:LastErrorText
    oJson:destroy()
    oDt:destroy()
    oSb:destroy()
    oPubkey:destroy()
    oRsa:destroy()
    RETURN
ENDIF

//  We probably need a base64Url encoded encrypted key.
//  Using straight-up base64 would potenially include chars that are not URL safe (i.e. have special meanings in URLs)
oRsa:EncodingMode := "base64url"

cEncryptedJson := oRsa:EncryptStringENC(oJson:Emit(), 0)

//  Build the URL
//  Such as:  https://portal.everyware.com/Account/LoginMenu?data={Base64Url_encrypted_JSON}
oSbUrl := CreateObject("Chilkat.StringBuilder")
oSbUrl:Append("https://portal.everyware.com/Account/LoginMenu?data=")
oSbUrl:Append(cEncryptedJson)

? oSbUrl:GetAsString()

oJson:destroy()
oDt:destroy()
oSb:destroy()
oPubkey:destroy()
oRsa:destroy()
oSbUrl:destroy()