B4X Requires Chilkat v11.0.0+

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

Dim success As Boolean = False

'  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..
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadPfxFile("qa_data/pfx/myCertAndKey.pfx", "pfx_password")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


'  Get the cert's private key.  This is what will be uploaded to AWS KMS.
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = cert.GetPrivateKey(privKey)
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


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

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

'  The UploadToCloud method was added in Chilkat v9.5.0.96
Dim jsonOut As ChilkatJsonObject
jsonOut.Initialize
success = privKey.UploadToCloud(json, jsonOut)
If success = False Then
    Log(privKey.LastErrorText)
    Return
End If


'  When successful, the jsonOut contains information about the private key in AWS KMS.
'  Most importantly, the KeyId.
jsonOut.EmitCompact = False
Log(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"
'  }