Pascal (Lazarus/Delphi)

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. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.PrivateKey,
  Chilkat.Cert,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  cert: TCert;
  privKey: TPrivateKey;
  json: TJsonObject;
  jsonOut: TJsonObject;

begin
  success := 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..
  cert := TCert.Create;
  success := cert.LoadPfxFile('qa_data/pfx/myCertAndKey.pfx','pfx_password');
  if (success = False) then
    begin
      WriteLn(cert.LastErrorText);
      Exit;
    end;

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

  json := TJsonObject.Create;
  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 := TJsonObject.Create;
  success := privKey.UploadToCloud(json,jsonOut);
  if (success = False) then
    begin
      WriteLn(privKey.LastErrorText);
      Exit;
    end;

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


  cert.Free;
  privKey.Free;
  json.Free;
  jsonOut.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.