Perl 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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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..
my $cert = Chilkat2::Cert->new;
my $success = $cert->LoadPfxFile('qa_data/pfx/myCertAndKey.pfx', 'pfx_password');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

# Get the cert's private key.  This is what will be uploaded to AWS KMS.
my $privKey = Chilkat2::PrivateKey->new;
$success = $cert->GetPrivateKey($privKey);
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

my $json = Chilkat2::JsonObject->new;
$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');

my $jsonOut = Chilkat2::JsonObject->new;
$success = $privKey->UploadToCloud($json, $jsonOut);
if (!$success) {
    print $privKey->LastErrorText, "\n";
    exit;
}

# When successful, the jsonOut contains information about the private key in AWS KMS.
# Most importantly, the KeyId.
$jsonOut->EmitCompact(0);
print $jsonOut->Emit(), "\n";

# 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"
# }