Visual Basic 6.0

Everyware API RSA Encrypt JSON

See more RSA Examples

Demonstrates how to RSA encrypt JSON using everyware.com's RSA public key. Visual Basic 6.0

Dim success As Long
success = 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.
Dim json As New ChilkatJsonObject
success = json.UpdateString("provider_key","USER GUID HERE")
success = json.UpdateString("menu_item","payment")
Dim dt As New CkDateTime
success = dt.SetFromCurrentSystemTime()
success = json.UpdateString("date_time",dt.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
json.EmitCompact = 1

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

Dim pubkey As New PublicKey
success = pubkey.LoadFromString(sb.GetAsString())
If (success = 0) Then
    Debug.Print pubkey.LastErrorText
    Exit Sub
End If

Dim rsa As New ChilkatRsa
success = rsa.UsePublicKey(pubkey)
If (success = 0) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

' 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)
rsa.EncodingMode = "base64url"

Dim encryptedJson As String
encryptedJson = rsa.EncryptStringENC(json.Emit(),0)

' Build the URL
' Such as:  https://portal.everyware.com/Account/LoginMenu?data={Base64Url_encrypted_JSON}
Dim sbUrl As New ChilkatStringBuilder
success = sbUrl.Append("https://portal.everyware.com/Account/LoginMenu?data=")
success = sbUrl.Append(encryptedJson)

Debug.Print sbUrl.GetAsString()