Создание таблицы лицензий для Guardant Sign Net. (Delphi)

  FStatus := GrdGetInfo(
    fGrdHandle,  //  handle to Guardant protected container 
    GrdGIL_Model, //  model of dongle 
    @fbyModel,  // pointer to a buffer for return data 
    sizeof(BYTE)); //  number of bytes for returning
...
  fwType := fGrdFindInfo.wType;
  fwLANRes := fGrdFindInfo.wRealNetRes; // Возвращает 0, вместо 10 (byMaxNetRes)
  fwLANRes := fGrdFindInfo.byMaxNetRes; // Корректировка, если нужно
...

  {- Prepare the mask to write to the Master dongle }
  abyDongleHeader[1] := 0; { byProg }
  abyDongleHeader[2] := 0; { byVer }
  abyDongleHeader[3] := 0;
  abyDongleHeader[4] := 0; { wSN (2 bytes) }
  abyDongleHeader[5] := 0;
  abyDongleHeader[6] := 0; { wMask (2 bytes) }
  FillChar(abyMask, 4096 * sizeof(BYTE), 0);
  FillChar(abyMaskHeader, 4096 * sizeof(BYTE), 0);

  {- Initialize writemask component }
  WriteMaskInit(
    fwType, { type bitmask of Master dongle }
    fbyModel); { model of Master dongle }

  fwMaskSize := 0;
  fwAST_Size := 0;
  fwNumberOfItems := 0;

  if (fwType and GrdDT_LAN) <> 0 then // End User dongle supports LAN (e.g. Stealth II/III Net)
  begin
    // You may add number of LMS modules here
    fwModules[0] := fwLANRes;
    fwModules[1] := fwLANRes;
    fwLMSDetSize := 110;
    LMS_DET_Prepare(
      @fbuf_mask_LMS_det[1], // Reserved memory
      0 {LMS_FLAG_LICENCE_SIZE_2BYTES}, //LMS_FLAG_LSIZE_2BYTES,
      1, // Number of records in LMS (2 modules)
      fwLANRes, // LAN Resource
      @fwModules[0], // WORD array of module sizes
      @fwLMSDetSize);
  end;

  AddAlgorithm(
    @abyMask[1], { pointer to a buffer to return generated mask }
    @abyMaskHeader[1], { pointer to a buffer to return generated mask header }
    fwNumberOfItems,
    { numeric name (algorithm number) of added algorithm/protected item (PI) }
    nsafl_ST_III { + nsafl_ActivationSrv + nsafl_DeactivationSrv {+ nsafl_UpdateSrv},
    { services flags }
    nsafh_ReadSrv {+ nsafh_ReadPwd}, { services flags }
    rs_algo_PI, { protected item }
    fwLMSDetSize, { key length }
    0, { block length }
    0, { activation service password }
    0, { deactivation service password }
    0, { read service password }
    0, { update service password }
    nil, { pointer to structure, contains birth time of algorithm/PI (only for Time dongles) }
    nil, { pointer to structure, contains dead time of algorithm/PI (only for Time dongles) }
    nil, { pointer to structure, contains life time of algorithm/PI (only for Time dongles) }
    nil, { pointer to structure, contains flip time of algorithm/PI (only for Time dongles) }
    $0, { GP counter of algorithm/PI }
    $0A, { error counter of algorithm/PI }
    @fbuf_mask_LMS_det[1], { algorithm determinant }
    @fwMaskSize, { pointer to variables, contains mask size }
    @fwAST_Size, { pointer to variables, contains AST size }
    @fwNumberOfItems); { pointer to variables, contains number of items in mask }