Attribute VB_Name = "SB"
Option Explicit

' EVERLOCK SecureBlock structure
'
Type SecureBlock
  ID        As String * 4           ' 000 ID literal 'AZSB'
  DRV       As String * 1           ' 004 Drive pgm was loaded from (ASCII)
  AUTH      As String * 1           ' 005 Auth Device (A,B,C=disk, 1,2,3=LPT#)
  PTYPE     As String * 1           ' 006 Product Type
  PROD      As String * 9           ' 007 Product Name (ASCIIZ)
  SNP       As Long                 ' 016 Product Serial Number
  HNUC      As Integer              ' 020 NUC Slot Handle
  AVERS     As Integer              ' 022 Authorization version
  ECL       As Integer              ' 024 Exec-Count Limit
  DFT       As Integer              ' 026 0 = m/d/y, 1 = d/m/y, 2 = y/m/d
  EDL       As Integer              ' 028 Expire-Days Limit
  ETL       As Integer              ' 030 Elapsed time on last day (ETL * 2)secs
  ED        As String * 9           ' 032 Expire-Date (ASCIIZ)
  CHKSUM    As String * 1           ' 041 CheckSum
  NUC       As Integer              ' 042 NUC Current Count
  NUL       As Integer              ' 044 NUC Limit
  ICR       As Integer              ' 046 Install Counts Remaining
  ACCFLG    As String * 8           ' 048 Access Flags 1-64
  USRDAT    As String * 8           ' 056 User Data Area (8 bytes)
  RTYPE     As String * 1           ' 064 Register Type (V,N,U=Ver,Non-Ver,None)
  RNAME     As String * 51          ' 065 Register To Name (ASCIIZ)
  RCOMP     As String * 51          ' 116 Register To Company (ASCIIZ)
  RLOC      As String * 51          ' 167 Register To Location (ASCIIZ)
  RDATE     As String * 9           ' 218 Register Date (ASCIIZ)
  CDATE     As String * 9           ' 227 Current System Date (ASCIIZ)
  RSRVD1    As String * 20          ' 236 reserved
  SECSTR    As String * 256         ' 256 Secure-String (ASCIIZ)
  FUNC      As Integer              ' 512 Function Number
  STAT1     As Integer              ' 514 Pass Completion Status
  STAT2     As Integer              ' 516
  STAT3     As Integer              ' 518
  SOURCE    As String * 63          ' 520 From Path (including drive ASCIIZ)
  TARGET    As String * 63          ' 583 To Path (including ASCIIZ)
  RSRVD2    As String * 2           ' 646 reserved
  PIN       As Long                 ' 648 PIN (SCB Only)
  RUC       As Integer              ' 652 Reset Use Count
  PCNT      As Integer              ' 654 Number Of Programs Updated
  RSRVD3    As String * 2           ' 656 reserved
  UNINST    As Integer              ' 658 Do Uninstall (0=No/1=Yes)
  REG       As Integer              ' 660 NV Reg During Install (0=No/1=Yes)
  RSRVD4    As String * 4           ' 662 reserved
  CODE      As String * 30          ' 666 Auth Code (NNNNN-NNNNN-NNNNN-NNNNN-NNNNN ASCIIZ)
  RSRVD5    As String * 74          ' 696 reserved
End Type



