PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Cert
oleobject loo_PrivKey
oleobject loo_Json
oleobject loo_JsonOut

li_Success = 0

// 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..
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/myCertAndKey.pfx","pfx_password")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// Get the cert's private key.  This is what will be uploaded to AWS KMS.
loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_Cert.GetPrivateKey(loo_PrivKey)
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    return
end if

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.UpdateString("service","aws-kms")
loo_Json.UpdateString("auth.access_key","AWS_ACCESS_KEY")
loo_Json.UpdateString("auth.secret_key","AWS_SECRET_KEY")
loo_Json.UpdateString("auth.region","us-west-2")
loo_Json.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.
loo_Json.UpdateString("tags[0].key","CertSerial")
loo_Json.UpdateString("tags[0].value",loo_Cert.SerialNumber)
loo_Json.UpdateString("tags[1].key","CertIssuer")
loo_Json.UpdateString("tags[1].value",loo_Cert.IssuerCN)
loo_Json.UpdateString("tags[2].key","CertSubject")
loo_Json.UpdateString("tags[2].value",loo_Cert.SubjectCN)

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

// The UploadToCloud method was added in Chilkat v9.5.0.96
loo_JsonOut = create oleobject
li_rc = loo_JsonOut.ConnectToNewObject("Chilkat.JsonObject")

li_Success = loo_PrivKey.UploadToCloud(loo_Json,loo_JsonOut)
if li_Success = 0 then
    Write-Debug loo_PrivKey.LastErrorText
    destroy loo_Cert
    destroy loo_PrivKey
    destroy loo_Json
    destroy loo_JsonOut
    return
end if

// When successful, the jsonOut contains information about the private key in AWS KMS.
// Most importantly, the KeyId.
loo_JsonOut.EmitCompact = 0
Write-Debug loo_JsonOut.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"
// }


destroy loo_Cert
destroy loo_PrivKey
destroy loo_Json
destroy loo_JsonOut