Pascal (Lazarus/Delphi)

Everyware API RSA Encrypt JSON

See more RSA Examples

Demonstrates how to RSA encrypt JSON using everyware.com's RSA public key. 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.StringBuilder,
  Chilkat.Rsa,
  Chilkat.PublicKey,
  Chilkat.JsonObject,
  Chilkat.CkDateTime;

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

procedure RunDemo;
var
  success: Boolean;
  json: TJsonObject;
  dt: TCkDateTime;
  sb: TStringBuilder;
  bCrlf: Boolean;
  pubkey: TPublicKey;
  rsa: TRsa;
  encryptedJson: string;
  sbUrl: TStringBuilder;

begin
  success := False;

  //  This example assumes the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  //  First build the JSON to be encrypted.
  json := TJsonObject.Create;
  json.UpdateString('provider_key','USER GUID HERE');
  json.UpdateString('menu_item','payment');
  dt := TCkDateTime.Create;
  dt.SetFromCurrentSystemTime();
  json.UpdateString('date_time',dt.GetAsUnixTimeStr(False));

  //  This build JSON like the following:

  //  {
  //      "provider_key": "USER GUID HERE",
  //      "menu_item": "payment",
  //      "date_time": "1588163411"
  //  }

  //  When we sign, we'll want to sign the most compact JSON possible
  json.EmitCompact := True;

  //  Everyware's RSA public key is at:  https://docs.everyware.com/docs/everyware-public-rsa-key
  sb := TStringBuilder.Create;
  bCrlf := True;
  sb.AppendLine('-----BEGIN PUBLIC KEY-----',bCrlf);
  sb.AppendLine('MIICIjANBgkqhkiG9w0BAQEFAAOCAg8AMIICCgKCAgEAxNbflxUSWQ3XJ1N9dAoh',bCrlf);
  sb.AppendLine('k+uaiFsg3wkPi9LGS/mH8DtHBgZxKyz+oQBDtnDd9FDEo0ql7MMgCMsTAv27W5vk',bCrlf);
  sb.AppendLine('Pu0rm6zhcTeYquWEuVCS7VtVsyTATr0Z9WhqNeZlIRurovJAXl2jRDX6QeY5dayC',bCrlf);
  sb.AppendLine('ubwyG4lBWE4fCakGY6zlh+oaElK0rvblqjYoEg3dn4KPRCYGof8OFxLptHThD4cE',bCrlf);
  sb.AppendLine('T30j+utVafhO0HRyJ4iR3Pigb4GXdWBtJEEEWddZJizMkjFQkyUAoYLOT8EJ2TW3',bCrlf);
  sb.AppendLine('Tz8SvAuHBUEFcPWTSTMAG/bSp5wrYBTXaeEhx+wrYa60OruHuzgmhzKyQVuYlCNJ',bCrlf);
  sb.AppendLine('HdbnassuIRjjSNo25o4AdSlWwpGfBZjAiyEInR+KGpHdhKTxSekJxiwiXUS0UfSG',bCrlf);
  sb.AppendLine('prOpd5PzWaAR7DvjLsdmR9XffxvJCVxC735gLK7hDJKjCajDPHVDr8FSL8xMlrq0',bCrlf);
  sb.AppendLine('nKxtsHeRl1yzoGrRr12+9MiQnHtpqROTNXcXdwe3v+Vh8V5k8v8oIrcgh1+/N7Bd',bCrlf);
  sb.AppendLine('NiRsy1gFHBdu/he/KcDRT/9/acQFMPLQueGfZxUvU5As6pEONjtKX2MUg2fMF6Rc',bCrlf);
  sb.AppendLine('sQVVrLzg0g7EcuHGfuPeKfD/716MvS8NU7rX+2soijCSQv/e18PJPMVDlcMXjnup',bCrlf);
  sb.AppendLine('PPx1tStemesavFlj1okhS6UCAwEAAQ==',bCrlf);
  sb.AppendLine('-----END PUBLIC KEY-----',bCrlf);

  pubkey := TPublicKey.Create;
  success := pubkey.LoadFromString(sb.GetAsString());
  if (success = False) then
    begin
      WriteLn(pubkey.LastErrorText);
      Exit;
    end;

  rsa := TRsa.Create;
  success := rsa.UsePublicKey(pubkey);
  if (success = False) then
    begin
      WriteLn(rsa.LastErrorText);
      Exit;
    end;

  //  We probably need a base64Url encoded encrypted key.
  //  Using straight-up base64 would potenially include chars that are not URL safe (i.e. have special meanings in URLs)
  rsa.EncodingMode := 'base64url';

  encryptedJson := rsa.EncryptStringENC(json.Emit(),False);

  //  Build the URL
  //  Such as:  https://portal.everyware.com/Account/LoginMenu?data={Base64Url_encrypted_JSON}
  sbUrl := TStringBuilder.Create;
  sbUrl.Append('https://portal.everyware.com/Account/LoginMenu?data=');
  sbUrl.Append(encryptedJson);

  WriteLn(sbUrl.GetAsString());


  json.Free;
  dt.Free;
  sb.Free;
  pubkey.Free;
  rsa.Free;
  sbUrl.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.