Delphi ActiveX

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. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
cert: TChilkatCert;
privKey: TPrivateKey;
json: TChilkatJsonObject;
jsonOut: TChilkatJsonObject;

begin
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..
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('qa_data/pfx/myCertAndKey.pfx','pfx_password');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// Get the cert's private key.  This is what will be uploaded to AWS KMS.
privKey := TPrivateKey.Create(Self);
success := cert.GetPrivateKey(privKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
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
jsonOut := TChilkatJsonObject.Create(Self);
success := privKey.UploadToCloud(json.ControlInterface,jsonOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(privKey.LastErrorText);
    Exit;
  end;

// When successful, the jsonOut contains information about the private key in AWS KMS.
// Most importantly, the KeyId.
jsonOut.EmitCompact := 0;
Memo1.Lines.Add(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"
// }
end;