Delphi and C++ Builder NTAG 424 DNA library for Android.

Features

uses Android NFC API
supports NTAG 424 DNA tags
supports EV2 and LRP secure messaging
available for Delphi/C++ Builder 10 - 10.4
source code included in registered version
royalty free distribution in applications

type
  TAccess = (MasterKey, AppKey1, AppKey2, AppKey3, AppKey4, Free, No);

  TAuthentication = (Ev2, Lrp);

  TCommunication = (Plain, Mac, Full);

  TFile = (File1, File2, File3);

  TKey = (MasterKey, Key1, Key2, Key3, Key4);

  TNTag424 = class
    constructor Create(var Tag: TNfcTag);

    procedure Connect;

    procedure Close;

    // Originality keys are used until DedicatedFile is selected
    procedure Authenticate(Mode: TAuthentication; Key: TKey; const KeyData: TBlock; NonFirst: Boolean = False);

    // Authentication with ChangeSettings access key required
    procedure ChangeFileSettings(&File: TFile; Communication: TCommunication; Read, Write, ReadWrite, ChangeSettings: TAccess);

    // Authentication with MasterKey required
    procedure ChangeKey(Key: TKey; const OldKeyData, NewKeyData: TBlock; KeyVersion: Byte);

    // Authentication required
    function GetCardUid: TBytes;

    // Authentication required
    procedure GetFileSettings(&File: TFile; out Mirroring: Boolean; out Communication: TCommunication; out Read, Write, ReadWrite, ChangeSettings: TAccess; out FileSize: Integer);

    // Originality keys are used until DedicatedFile is selected
    function GetKeyVersion(Key: TKey): Byte;

    function GetVersion: TBytes;

    // Plain communication mode only
    function IsoReadBinary: TBytes;

    procedure IsoSelect(&File: TFile);

    // Application level
    procedure IsoSelectDedicatedFile;

    // PICC level
    procedure IsoSelectMasterFile;

    // Plain communication mode only
    procedure IsoUpdateBinary(const Data: TBytes; Offset: Byte = 0);

    // DedicatedFile has to be selected first
    function ReadData(&File: TFile; Communication: TCommunication; Offset: Byte = 0; Length: Byte = 0): TBytes;

    // Authentication required in Random UID mode
    function ReadSignature: TBytes;

    // !!! THIS CHANGE IS IRREVERSIBLE !!! Authentication with MasterKey required
    procedure SetLrp;

    // !!! THIS CHANGE IS IRREVERSIBLE !!! Authentication with MasterKey required
    procedure SetRandomUid; 

    // DedicatedFile has to be selected first
    procedure WriteData(&File: TFile; Communication: TCommunication; Data: TBytes; Offset: Byte = 0);

    property Authenticated: Boolean read;

    property IsoDep: TIsoDep read;

    property TransactionId: UInt32 read;
  end;

Only for V.I.P