Pascal (Lazarus/Delphi)

IMAP Login Secure

Demonstrates how to use the LoginSecure method introduced in Chilkat v9.5.0.71. 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.SecureString,
  Chilkat.Imap,
  Chilkat.JsonObject,
  Chilkat.Crypt2;

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

procedure RunDemo;
var
  success: Boolean;
  imap: TImap;
  json: TJsonObject;
  crypt: TCrypt2;
  ssLogin: TSecureString;
  ssPassword: TSecureString;

begin
  success := False;

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

  imap := TImap.Create;

  //  Connect to an IMAP server..
  imap.Ssl := True;
  imap.Port := 993;
  success := imap.Connect('imap.mail.me.com');
  if (success <> True) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Imagine we've previously saved our encrypted login and password within a JSON config file
  //  that contains this:

  //  {
  //    "imap_login": "fLkxsfnVaIWLiL/R32jo6g==",
  //    "imap_password": "/NbaFBoCftBLFf8WBU9Xtw=="
  //  }

  json := TJsonObject.Create;
  json.LoadFile('qa_data/passwords/imap.json');

  crypt := TCrypt2.Create;

  //  These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
  crypt.CryptAlgorithm := 'aes';
  crypt.CipherMode := 'cbc';
  crypt.KeyLength := 128;
  crypt.SetEncodedKey('000102030405060708090A0B0C0D0E0F','hex');
  crypt.SetEncodedIV('000102030405060708090A0B0C0D0E0F','hex');
  crypt.EncodingMode := 'base64';

  ssLogin := TSecureString.Create;
  ssPassword := TSecureString.Create;

  //  Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
  //  a randomly generated session key.)
  crypt.DecryptSecureENC(json.StringOf('imap_login'),ssLogin);
  crypt.DecryptSecureENC(json.StringOf('imap_password'),ssPassword);

  //  Pass the credentials to the LoginSecure method:
  success := imap.LoginSecure(ssLogin,ssPassword);
  if (success <> True) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  ...

  imap.Disconnect();


  imap.Free;
  json.Free;
  crypt.Free;
  ssLogin.Free;
  ssPassword.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.