Xbase++

Load RSA Public Key from JWK Format (JSON Web Key)

See more RSA Examples

Demonstrates how to load an RSA public key from JWK (JSON Web Key) format.

Note: This example requires Chilkat v9.5.0.66 or later.

Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL cJwkStr
LOCAL oPubKey
LOCAL nBPreferPkcs1

nSuccess := 0

//  Note: This example requires Chilkat v9.5.0.66 or later.

//  First build a JWK sample to load..
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("kty", "RSA")
oJson:UpdateString("n", "33TqqLR3eeUmDtHS89qF3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA04DDnEFGAf-kDQiNSe2ZtqC7bnIc8-KSG_qOGQIVaay4Ucr6ovDkykO5Hxn7OU7sJp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwFwnxCsU5-UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUEf0YN3_Q0auBkdbDR_ES2PbgKTJdkjc_rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1WSw")
oJson:UpdateString("e", "AQAB")

//  The JSON contains the following:
//  { 
//    "kty": "RSA",
//    "n": "33TqqLR3eeUmDtHS89qF3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA04DDnEFGAf-kDQiNSe2ZtqC7bnIc8-KSG_qOGQIVaay4Ucr6ovDkykO5Hxn7OU7sJp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwFwnxCsU5-UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUEf0YN3_Q0auBkdbDR_ES2PbgKTJdkjc_rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1WSw",
//    "e": "AQAB",
//  } 

//  Note: The JSON can contain other members, such as "use", "kid", or anything else.  These will be ignored.
oJson:EmitCompact := 0

//  Show the JWK string to be loaded:
cJwkStr := oJson:Emit()

oPubKey := CreateObject("Chilkat.PublicKey")
//  The LoadFromString method will automatically detect the format.
nSuccess := oPubKey:LoadFromString(cJwkStr)
IF (nSuccess != 1)
    ? oPubKey:LastErrorText
    oJson:destroy()
    oPubKey:destroy()
    RETURN
ENDIF

//  OK.. the JWK is loaded.  It can be used in whatever way desired...

//  The key can be retrieved in any other format, such as XML or PEM..
? oPubKey:GetXml()

//  XML output:
//  <RSAPublicKey>
//      <Modulus>33TqqLR3eeUmDtHS89qF3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7sJp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwFwnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUEf0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1WSw==</Modulus>
//      <Exponent>AQAB</Exponent>
//  </RSAPublicKey>

//  Choose PCKS1 or PCKS8 PEM format..
nBPreferPkcs1 := 0
? oPubKey:GetPem(nBPreferPkcs1)

//  PEM output
//  -----BEGIN PUBLIC KEY-----
//  MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA33TqqLR3eeUmDtHS89qF
//  3p4MP7Wfqt2Zjj3lZjLjjCGDvwr9cJNlNDiuKboODgUiT4ZdPWbOiMAfDcDzlOxA
//  04DDnEFGAf+kDQiNSe2ZtqC7bnIc8+KSG/qOGQIVaay4Ucr6ovDkykO5Hxn7OU7s
//  Jp9TP9H0JH8zMQA6YzijYH9LsupTerrY3U6zyihVEDXXOv08vBHk50BMFJbE9iwF
//  wnxCsU5+UZUZYw87Uu0n4LPFS9BT8tUIvAfnRXIEWCha3KbFWmdZQZlyrFw0buUE
//  f0YN3/Q0auBkdbDR/ES2PbgKTJdkjc/rEeM0TxvOUf7HuUNOhrtAVEN1D5uuxE1W
//  SwIDAQAB
//  -----END PUBLIC KEY-----

oJson:destroy()
oPubKey:destroy()