(Visual FoxPro) AWS KMS Import PFX Key

See more AWS KMS Examples

Imports a certificate's private key from a .pfx file to new key created in AWS KMS.

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

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

LOCAL loCert
LOCAL lnSuccess
LOCAL loPrivKey
LOCAL loJson
LOCAL loJsonOut

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

* Note: This example is using a relative file path.  You can also specify a full file path, such as "C:/someDir/myCertAndKey.pfx"
* or a file path the makes sense on non-Windows operating systems..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/myCertAndKey.pfx","pfx_password")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* Get the cert's private key.  This is what will be uploaded to AWS KMS.
loPrivKey = loCert.ExportPrivateKey()
IF (loCert.LastMethodSuccess = 0) THEN
    ? "The certificate does not have a private key."
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("service","aws-kms")
loJson.UpdateString("auth.access_key","AWS_ACCESS_KEY")
loJson.UpdateString("auth.secret_key","AWS_SECRET_KEY")
loJson.UpdateString("auth.region","us-west-2")
loJson.UpdateString("description","Test of uploading existing private key to AWS KMS")

* Let's add some information about the certificate this key belongs to.
* This is for informational purposes only, so that we can examine the tags
* in the AWS KMS console and know the corresponding certificate.
loJson.UpdateString("tags[0].key","CertSerial")
loJson.UpdateString("tags[0].value",loCert.SerialNumber)
loJson.UpdateString("tags[1].key","CertIssuer")
loJson.UpdateString("tags[1].value",loCert.IssuerCN)
loJson.UpdateString("tags[2].key","CertSubject")
loJson.UpdateString("tags[2].value",loCert.SubjectCN)

loJson.UpdateString("keyUsage","SIGN_VERIFY")

* The UploadToCloud method was added in Chilkat v9.5.0.96
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonOut = CreateObject('Chilkat.JsonObject')
lnSuccess = loPrivKey.UploadToCloud(loJson,loJsonOut)
IF (lnSuccess = 0) THEN
    ? loPrivKey.LastErrorText
    RELEASE loPrivKey
    RELEASE loCert
    RELEASE loJson
    RELEASE loJsonOut
    CANCEL
ENDIF

RELEASE loPrivKey

* When successful, the jsonOut contains information about the private key in AWS KMS.
* Most importantly, the KeyId.
loJsonOut.EmitCompact = 0
? loJsonOut.Emit()

* Sample JSON result:

* {
*   "AWSAccountId": "954491834127",
*   "Arn": "arn:aws:kms:us-west-2:954491834127:key/187012e8-008f-4fc7-b100-5efe6146dff2",
*   "KeySpec": "RSA_4096",
*   "Description": "Test of uploading existing private key to AWS KMS",
*   "KeyId": "187012e8-008f-4fc7-b100-5efe6146dff2",
*   "KeyUsage": "SIGN_VERIFY"
* }

RELEASE loCert
RELEASE loJson
RELEASE loJsonOut