exiftool_vendored 12.56.0 → 12.58.0

data/bin/lib/Image/ExifTool/Nikon.pm

@@ -64,11 +64,12 @@ use Image::ExifTool::Exif;
 use Image::ExifTool::GPS;
 use Image::ExifTool::XMP;
 
-$VERSION = '4.18';
+$VERSION = '4.20';
 
 sub LensIDConv($$$);
 sub ProcessNikonAVI($$$);
 sub ProcessNikonMOV($$$);
+sub ProcessNikonEncrypted($$$);
 sub FormatString($);
 sub ProcessNikonCaptureEditVersions($$$);
 sub PrintAFPoints($$);
@@ -83,9 +84,8 @@ sub GetAFPointGrid($$;$);
         The Nikon LensID is constructed as a Composite tag from the raw hex values
         of 8 other tags: LensIDNumber, LensFStops, MinFocalLength, MaxFocalLength,
         MaxApertureAtMinFocal, MaxApertureAtMaxFocal, MCUVersion and LensType, in
-        that order.  Multiple lenses with the same LensID are differentiated by
-        decimal values in the list below.  The user-defined "Lenses" list may be
-        used to specify the lens for ExifTool to choose in these cases (see the
+        that order.  The user-defined "Lenses" list may be used to specify the lens
+        for ExifTool to choose in these cases (see the
         L<sample config file|../config.html> for details).
     },
     OTHER => \&LensIDConv,
@@ -880,6 +880,12 @@ my %bracketProgramZ9 = (
     9 => '9F',
 );
 
+my %dynamicAfAreaModesZ9 = (
+    0 => 'Small',
+    1 => 'Medium',
+    2 => 'Large',
+);
+
 my %flashControlModeZ7 = (
     0 => 'TTL',
     1 => 'Auto External Flash',
@@ -1112,6 +1118,14 @@ my %offLowNormalHighZ7 = (
     3 => 'High',
 );
 
+my %releaseModeZ7 = (
+    0 => 'Continuous Low',
+    1 => 'Continuous High',
+    2 => 'Continuous High (Extended)',
+    4 => 'Timer',
+    5 => 'Single Frame',
+);
+
 my %secondarySlotFunctionZ9 = (
     0 => 'Overflow',
     1 => 'Backup',
@@ -1509,9 +1523,7 @@ my %base64coord = (
     0x0006 => { Name => 'Sharpness',    Writable => 'string' },
     0x0007 => {
         Name => 'FocusMode',
-        DataMember => 'FocusMode',
         Writable => 'string',
-        RawConv => '$$self{FocusMode} = $val',
     },
     # FlashSetting (better named FlashSyncMode, ref 28) values:
     #   "Normal", "Slow", "Rear Slow", "RED-EYE", "RED-EYE SLOW"
@@ -1812,6 +1824,7 @@ my %base64coord = (
         Name => 'ShutterMode',
         Writable => 'int16u',
         RawConv => '$$self{ShutterMode} = $val',
+        DataMember => 'ShutterMode',
         PrintConv => {
              0 => 'Mechanical',
              16 => 'Electronic',
@@ -2059,7 +2072,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD40',
                 DecryptStart => 4,
-                DecryptLen => 748,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2069,7 +2081,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD80',
                 DecryptStart => 4,
-                DecryptLen => 765,
                 # (Capture NX can change the makernote byte order, but this stays big-endian)
                 ByteOrder => 'BigEndian',
             },
@@ -2080,7 +2091,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD90',
                 DecryptStart => 4,
-                DecryptLen => 0x398,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2090,7 +2100,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD3a',
                 DecryptStart => 4,
-                DecryptLen => 0x318,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2100,7 +2109,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD3b',
                 DecryptStart => 4,
-                DecryptLen => 0x321,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2110,7 +2118,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD3X',
                 DecryptStart => 4,
-                DecryptLen => 0x323,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2120,7 +2127,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD3S',
                 DecryptStart => 4,
-                DecryptLen => 0x2e9,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2131,7 +2137,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD300a',
                 DecryptStart => 4,
-                DecryptLen => 813,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2142,7 +2147,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD300b',
                 DecryptStart => 4,
-                DecryptLen => 825,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2153,7 +2157,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD300S',
                 DecryptStart => 4,
-                DecryptLen => 827,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2164,17 +2167,33 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD700',
                 DecryptStart => 4,
-                DecryptLen => 0x358,
                 ByteOrder => 'BigEndian',
             },
         },
+        { #28 (D780 firmware version 1.00)
+            Condition => '$$valPt =~ /^0245/',
+            Name => 'ShotInfoD780',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Nikon::ShotInfoD780',
+                DecryptStart => 4,
+                ByteOrder => 'LittleEndian',
+            },
+        },
+        { #28 (D7500 firmware version 1.00h)
+            Condition => '$$valPt =~ /^0242/',
+            Name => 'ShotInfoD7500',
+            SubDirectory => {
+                TagTable => 'Image::ExifTool::Nikon::ShotInfoD7500',
+                DecryptStart => 4,
+                ByteOrder => 'LittleEndian',
+            },
+        },
         { #PH (D800 firmware 1.01a)
             Condition => '$$valPt =~ /^0222/',
             Name => 'ShotInfoD800',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD800',
                 DecryptStart => 4,
-                DecryptLen => 0x720,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2184,8 +2203,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD810',
                 DecryptStart => 4,
-                DecryptLen => 0x36f4 + 12,
-                DecryptMore => 'Get32u(\$data, 0x84) + 12',
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2195,8 +2212,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD850',
                 DecryptStart => 4,
-                DecryptLen => 0x2efb + 12,
-                DecryptMore => 'Get32u(\$data, 0xa0) + 12',
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2209,7 +2224,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD5000',
                 DecryptStart => 4,
-                DecryptLen => 0x39a,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2219,7 +2233,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD5100',
                 DecryptStart => 4,
-                DecryptLen => 0x430,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2229,7 +2242,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD5200',
                 DecryptStart => 4,
-                DecryptLen => 0xd00,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2239,7 +2251,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD7000',
                 DecryptStart => 4,
-                DecryptLen => 0x448,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2249,7 +2260,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD4',
                 DecryptStart => 4,
-                DecryptLen => 0x789,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2259,29 +2269,15 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD4S',
                 DecryptStart => 4,
-                DecryptLen => 0x3697,
-                ByteOrder => 'LittleEndian',
-            },
-        },
-        { #28 (D5 firmware version 1.10a)
-            Condition => '$$valPt =~ /^0238/',
-            Name => 'ShotInfoD5',
-            SubDirectory => {
-                TagTable => 'Image::ExifTool::Nikon::ShotInfoD500',
-                DecryptStart => 4,
-                DecryptLen => 0x2c24 + 12,
-                DecryptMore => 'Get32u(\$data, 0xa8) + 0x2ea5 - 0x2c90',
                 ByteOrder => 'LittleEndian',
             },
         },
-        { # (D500 firmware version 1.00)
-            Condition => '$$valPt =~ /^0239/',
+        { #28 (D500 firmware version 1.00 and D5 firmware version 1.10a)
+            Condition => '$$valPt =~ /^023[89]/',
             Name => 'ShotInfoD500',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD500',
                 DecryptStart => 4,
-                DecryptLen => 0x2cb2 + 4,
-                DecryptMore => 'Get32u(\$data, 0xa8) + 0x2ea5 - 0x2c90',
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2291,7 +2287,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD6',
                 DecryptStart => 4,
-                DecryptLen => 0xc292 + 720,   # thru decoded parts of Offset 32
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2301,7 +2296,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoD610',
                 DecryptStart => 4,
-                DecryptLen => 0x7ff,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2312,8 +2306,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoZ7II',
                 DecryptStart => 4,
-                # TODO: eventually set the length dynamically according to actual offsets!
-                DecryptLen => 0xd04e + 860,   # thru decoded MenuSettingsZ7II
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2323,8 +2315,6 @@ my %base64coord = (
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfoZ9',
                 DecryptStart => 4,
-                # TODO: eventually set the length dynamically according to actual offsets!
-                DecryptLen => 0xec4b + 2196,  # decoded thru end of Offset26
                 ByteOrder => 'LittleEndian',
             },
         },
@@ -2333,10 +2323,9 @@ my %base64coord = (
             Name => 'ShotInfo02xx',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ShotInfo',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
-                DecryptLen => 0x251,
                 ByteOrder => 'BigEndian',
             },
         },
@@ -2400,11 +2389,10 @@ my %base64coord = (
             Name => 'ColorBalance0205',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance2',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
-                DecryptLen => 22, # 284 bytes encrypted, but don't need to decrypt it all
-                DirOffset => 14,
+                DirOffset => 14, # (start of directory relative to DecryptStart)
             },
         },
         {   # (D3/D3X/D300/D700=0209,D300S=0212,D3S=0214)
@@ -2412,10 +2400,9 @@ my %base64coord = (
             Name => 'ColorBalance0209',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance4',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 284,
-                DecryptLen => 18, # 324 bytes encrypted, but don't need to decrypt it all
                 DirOffset => 10,
             },
         },
@@ -2424,10 +2411,9 @@ my %base64coord = (
             Name => 'ColorBalance02',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance2',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 284,
-                DecryptLen => 14, # don't need to decrypt it all
                 DirOffset => 6,
             },
         },
@@ -2436,10 +2422,9 @@ my %base64coord = (
             Name => 'ColorBalance0211',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance4',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 284,
-                DecryptLen => 24, # don't need to decrypt it all
                 DirOffset => 16,
             },
         },
@@ -2448,10 +2433,9 @@ my %base64coord = (
             Name => 'ColorBalance0213',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance2',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 284,
-                DecryptLen => 18, # don't need to decrypt it all
                 DirOffset => 10,
             },
         },
@@ -2460,10 +2444,9 @@ my %base64coord = (
             Name => 'ColorBalance0215',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalance4',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 284,
-                DecryptLen => 12, # don't need to decrypt it all
                 DirOffset => 4,
             },
         },
@@ -2472,9 +2455,9 @@ my %base64coord = (
             Condition => '$$valPt =~ /^0[26]/',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalanceUnknown',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted, # (necessary to recrypt this if serial number changed)
                 DecryptStart => 284,
-                DecryptLen => 10, # (arbitrary)
             },
         },
         {   # (1J1/1J2/1V1=0400, 1V2=0401, 1J3/1S1=0402, 1AW1=0403, Z6/Z7=0800)
@@ -2482,9 +2465,9 @@ my %base64coord = (
             Condition => '$$valPt =~ /^0[48]/',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::ColorBalanceUnknown',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted, # (necessary to recrypt this if serial number changed)
                 DecryptStart => 4,
-                DecryptLen => 10, # (arbitrary)
             },
         },
         {
@@ -2513,8 +2496,8 @@ my %base64coord = (
             Name => 'LensData0201',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData01',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -2523,8 +2506,8 @@ my %base64coord = (
             Name => 'LensData0204',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0204',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -2533,8 +2516,8 @@ my %base64coord = (
             Name => 'LensData0400',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0400',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -2543,8 +2526,8 @@ my %base64coord = (
             Name => 'LensData0402',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0402',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -2553,8 +2536,8 @@ my %base64coord = (
             Name => 'LensData0403',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0403',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -2563,8 +2546,8 @@ my %base64coord = (
             Name => 'LensData0800',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0800',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
                 ByteOrder => 'LittleEndian',
             },
@@ -2573,8 +2556,8 @@ my %base64coord = (
             Name => 'LensDataUnknown',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensDataUnknown',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -5279,7 +5262,7 @@ my %nikonFocalConversions = (
         Name => 'NewLensData',
         Format => 'undef[17]',
         RawConv => '$$self{NewLensData} = 1 unless $val =~ /^.\0+$/s; undef',
-        Hidden => 1,
+        #Hidden => 1,
     },
     0x30 => { #PH
         Name => 'LensID',
@@ -5305,12 +5288,14 @@ my %nikonFocalConversions = (
             23 => 'Nikkor Z 14-24mm f/2.8 S', #IB
             24 => 'Nikkor Z MC 105mm f/2.8 VR S', #IB
             25 => 'Nikkor Z 40mm f/2', #28
+            26 => 'Nikkor Z DX 18-140mm f/3.5-6.3 VR', #IB
             27 => 'Nikkor Z MC 50mm f/2.8', #IB
             28 => 'Nikkor Z 100-400mm f/4.5-5.6 VR S', #28
             29 => 'Nikkor Z 28mm f/2.8', #IB
             30 => 'Nikkor Z 400mm f/2.8 TC VR S', #28
             31 => 'Nikkor Z 24-120 f/4', #28
             32 => 'Nikkor Z 800mm f/6.3 VR S', #28
+            35 => 'Nikkor Z 28-75mm f/2.8', #IB
             36 => 'Nikkor Z 400mm f/4.5 VR S', #IB
             37 => 'Nikkor Z 600mm f/4 TC VR S', #28
             39 => 'Nikkor Z 17-28mm f/2.8', #IB
@@ -5322,7 +5307,7 @@ my %nikonFocalConversions = (
         Name => 'LensMountType',
         RawConv => '$$self{LensMountType} = $val',   #  0=> DSLR lens via FTZ style adapter;   1=> Native Z lens;
         Format => 'int8u',
-        Unknown => 1,
+        #Unknown => 1,
         PrintConv => {
              0 => 'F-mount Lens',
              1 => 'Z-mount Lens',
@@ -5385,7 +5370,7 @@ my %nikonFocalConversions = (
         Name => 'LensPositionAbsolute',    # <=0 at infinity.  Typical value at CFD might be 58000.   Only valid for Z-mount lenses.
         Condition => '$$self{NewLensData} and $$self{LensMountType} and $$self{LensMountType} == 1',
         Format => 'int32s',
-        Unknown => 1,
+        #Unknown => 1,
     },
 );
 
@@ -5508,8 +5493,6 @@ my %nikonFocalConversions = (
         Format => 'int32u',
         Priority => 0,
     },
-    # note: DecryptLen currently set to 0x251
-
     # 0x55c - int16u[2400] TiffMeteringImage2: 60x40 image (ShotInfoVersion 0800, ref JR)
     # 0x181c - int16u[1200] TiffMeteringImage?: 60x20 image for some NEF's (ShotInfoVersion 0800, ref JR)
     # 0x217c - int16u[2400] TiffMeteringImage3: 60x40 image (ShotInfoVersion 0800, ref JR)
@@ -5521,8 +5504,8 @@ my %nikonFocalConversions = (
 
 # shot information for D40 and D40X (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD40 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 729 ],
@@ -5552,13 +5535,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD40',
         },
     },
-    # note: DecryptLen currently set to 748
 );
 
 # shot information for D80 (encrypted) - ref JD
 %Image::ExifTool::Nikon::ShotInfoD80 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 748 ],
@@ -5632,13 +5614,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD80',
         },
     },
-    # note: DecryptLen currently set to 765
 );
 
 # shot information for D90 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD90 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x374 ],
@@ -5678,13 +5659,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD90',
         },
     },
-    # note: DecryptLen currently set to 0x398
 );
 
 # shot information for the D3 firmware 0.37 and 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD3a = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x301 ],
@@ -5742,13 +5722,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 0x318
 );
 
 # shot information for the D3 firmware 1.10, 2.00 and 2.01 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD3b = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x30a ],
@@ -5837,13 +5816,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 0x321
 );
 
 # shot information for the D3X firmware 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD3X = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x30b ],
@@ -5883,13 +5861,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 0x323
 );
 
 # shot information for the D3S firmware 0.16 and 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD3S = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x2ce ],
@@ -5938,13 +5915,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 0x2e9
 );
 
 # shot information for the D300 firmware 1.00 (encrypted) - ref JD
 %Image::ExifTool::Nikon::ShotInfoD300a = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 790 ],
@@ -6031,13 +6007,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 813
 );
 
 # shot information for the D300 firmware 1.10 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD300b = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     DATAMEMBER => [ 4 ],
@@ -6182,13 +6157,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 825
 );
 
 # shot information for the D300S firmware 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD300S = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 804 ],
@@ -6228,13 +6202,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD3',
         },
     },
-    # note: DecryptLen currently set to 827
 );
 
 # shot information for the D700 firmware 1.02f (encrypted) - ref 29
 %Image::ExifTool::Nikon::ShotInfoD700 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 804 ],
@@ -6274,13 +6247,45 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD700',
         },
     },
-    # note: DecryptLen currently set to 852
+);
+
+# shot information for the D780 - ref #28
+%Image::ExifTool::Nikon::ShotInfoD780 = (
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x24 },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x9c ],
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'These tags are extracted from encrypted data in images from the D780.',
+    0x00 => {
+        Name => 'ShotInfoVersion',
+        Format => 'string[4]',
+        Writable => 0,
+    },
+    0x04 => {
+        Name => 'FirmwareVersion',
+        DataMember => 'FirmwareVersion',
+        Format => 'string[5]',
+        Writable => 0,
+        RawConv => '$$self{FirmwareVersion} = $val',
+    },
+    0x9c => {
+        Name => 'OrientOffset',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        },
+    },
 );
 
 # shot information for the D5000 firmware 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD5000 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x378 ],
@@ -6320,13 +6325,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD5000',
         },
     },
-    # note: DecryptLen currently set to 0x39a
 );
 
 # shot information for the D5100 firmware 1.00f (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD5100 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x407 ],
@@ -6355,13 +6359,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD5100',
         },
     },
-    # note: DecryptLen currently set to 0x430
 );
 
 # shot information for the D5200 firmware 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD5200 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0xcd5 ],
@@ -6393,13 +6396,12 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD5200',
         },
     },
-    # note: DecryptLen currently set to 0xd00
 );
 
 # shot information for the D7000 firmware 1.01d (encrypted) - ref 29
 %Image::ExifTool::Nikon::ShotInfoD7000 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 1028 ],
@@ -6441,10 +6443,43 @@ my %nikonFocalConversions = (
     },
 );
 
+# shot information for the D7500 - ref #28
+%Image::ExifTool::Nikon::ShotInfoD7500 = (
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
+    CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x0c },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0xa0 ],
+    WRITABLE => 1,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    NOTES => 'These tags are extracted from encrypted data in images from the D7500.',
+    0x00 => {
+        Name => 'ShotInfoVersion',
+        Format => 'string[4]',
+        Writable => 0,
+    },
+    0x04 => {
+        Name => 'FirmwareVersion',
+        DataMember => 'FirmwareVersion',
+        Format => 'string[5]',
+        Writable => 0,
+        RawConv => '$$self{FirmwareVersion} = $val',
+    },
+    0xa0 => {
+        Name => 'OrientOffset',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        },
+    },
+);
+
 # shot information for the D800 firmware 1.01a (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD800 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x6ec ],
@@ -6559,20 +6594,17 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD800',
         },
     },
-    # note: DecryptLen currently set to 0x720
 );
 
 # shot information for the D5 firmware 1.10a and D500 firmware 1.01 (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoD500 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x04, 0x10, 0x14, 0x2c, 0x50, 0x58, 0xa0, 0xa8, 0xb0,
-                    0x07b0, 0x086c, 0x0e7c, 0x0eea, 0x2c23, 0x2c8f ],
-    IS_SUBDIR => [ 0x0eeb ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x0c },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x10, 0x14, 0x2c, 0x50, 0x58, 0xa0, 0xa8 ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'These tags are extracted from encrypted data in images from the D5 and D500.',
     0x00 => {
@@ -6589,73 +6621,66 @@ my %nikonFocalConversions = (
     },
     0x10 => {
         Name => 'RotationInfoOffset',
-        DataMember => 'RotationInfoOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{RotationInfoOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::RotationInfoD500',
+            Start => '$val',
+        }
     },
     0x14 => {
         Name => 'JPGInfoOffset',
-        DataMember => 'JPGInfoOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{JPGInfoOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::JPGInfoD500',
+            Start => '$val',
+        }
     },
     0x2c => {
-        Name => 'BracketingInfoOffset',
-        DataMember => 'BracketingInfoOffset',
+        Name => 'BracketingOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{BracketingInfoOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::BracketingInfoD500',
+            Start => '$val',
+        }
     },
     0x50 => {
         Name => 'ShootingMenuOffset',
-        DataMember => 'ShootingMenuOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{ShootingMenuOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::ShootingMenuD500',
+            Start => '$val',
+        }
     },
     0x58 => {
         Name => 'CustomSettingsOffset',
-        DataMember => 'CustomSettingsOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{CustomSettingsOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::CustomSettingsD500',
+            Start => '$val',
+        }
     },
     0xa0 => {
         Name => 'OrientationOffset',
-        DataMember => 'OrientationOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        }
     },
     0xa8 => {
         Name => 'OtherOffset',
-        DataMember => 'OtherOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OtherOffset} = $val || 0x10000000; undef', # (ignore if 0)
-    },
-#
-# Tag ID's below are the offsets for a D500 JPEG image, but these offsets change
-# for various image types according to the offset table above
-#
-### 0xb0 - RotationInfo start
-    0xb0 => {
-        Name => 'Hook1',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Rotation data
-        Hook => '$varSize = $$self{RotationInfoOffset} - 0xb0',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OtherInfoD500',
+            Start => '$val',
+        }
     },
-    0xca => {
+);
+
+%Image::ExifTool::Nikon::RotationInfoD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x1a => {
         Name => 'Rotation',
         Mask => 0x03,
         PrintConv => {
@@ -6665,32 +6690,29 @@ my %nikonFocalConversions = (
             3 => 'Rotate 180',
         },
     },
-    0x0d0 => {
+    0x20 => {
         Name => 'Interval',
         # prior version of the d% firmware do not support this tag, nor does the D500 (at least thru firmware 1.3)
         Condition => '$$self{Model} eq "NIKON D5" and $$self{FirmwareVersion} ge "1.40"',
         PrintConv =>  '$val > 0 ? sprintf("%.0f", $val) : ""',
     },
-    0x0d4 => {
+    0x24 => {
         Name => 'IntervalFrame',
         # prior version of the d% firmware do not support this tag, nor does the D500 (at least thru firmware 1.3)
         Condition => '$$self{Model} eq "NIKON D5" and $$self{FirmwareVersion} ge "1.40"',
         PrintConv =>  '$val > 0 ? sprintf("%.0f", $val) : ""',
     },
-    0x05e2 => {
+    0x0532 => {
         Name => 'FlickerReductionIndicator',
         Mask => 0x01,
         PrintConv => { 0 => 'On', 1 => 'Off' },
     },
-### 0x07b0 - JPEGInfo start
-    0x07b0 => {
-        Name => 'Hook2',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Shooting Menu data
-        Hook => '$varSize = $$self{JPGInfoOffset} - 0x07b0',
-    },
-    0x07d4 => {
+);
+
+%Image::ExifTool::Nikon::JPGInfoD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x24 => {
         Name => 'JPGCompression',
         Mask => 0x01,
         PrintConv => {
@@ -6698,16 +6720,12 @@ my %nikonFocalConversions = (
             1 => 'Optimal Quality',
         },
     },
-### 0x0830 - ? start
-### 0x086c - BracketingInfo start
-    0x086c => {
-        Name => 'Hook3',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Shooting Menu data
-        Hook => '$varSize = $$self{BracketingInfoOffset} - 0x086c',
-    },
-    0x087b => {
+);
+
+%Image::ExifTool::Nikon::BracketingInfoD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x0f => {
         Name => 'AEBracketingSteps',
         Condition => '$$self{FILE_TYPE} ne "TIFF"', # (covers NEF and TIFF)
         Mask => 0xff,
@@ -6765,7 +6783,7 @@ my %nikonFocalConversions = (
             0xd6 => '5F3',
         },
     },
-    0x087c => {
+    0x10 => {
         Name => 'WBBracketingSteps',
         Condition => '$$self{FILE_TYPE} ne "TIFF"', # (covers NEF and TIFF)
         Mask => 0xff,
@@ -6808,7 +6826,7 @@ my %nikonFocalConversions = (
             0x28 => '9F 3',
         },
     },
-    0x0883 => {
+    0x17 => {
         Name => 'ADLBracketingStep',
         Mask => 0xf0,
         PrintConv => {
@@ -6820,7 +6838,7 @@ my %nikonFocalConversions = (
             8 => 'Auto',
         },
     },
-    0x0884 => {
+    0x18 => {
         Name => 'ADLBracketingType',
         Mask => 0x0f,
         PrintConv => {
@@ -6831,23 +6849,12 @@ my %nikonFocalConversions = (
             4 => '5 Shots',
         },
     },
-### 0x0887 - ? start
-### 0x089f - ? start
-### 0x0929 - ? start
-### 0x09c9 - ? start
-### 0x0ac5 - ? start
-### 0x0bc1 - ? start
-### 0x0cbd - ? start
-### 0x0d98 - ? start
-### 0x0e7d - ShootingMenuOffset start
-    0x0e7c => {
-        Name => 'Hook4',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Shooting Menu data
-        Hook => '$varSize = $$self{ShootingMenuOffset} - 0x0e7d',
-    },
-    0x0e7d => {
+);
+
+%Image::ExifTool::Nikon::ShootingMenuD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x00 => {
         Name => 'PhotoShootingMenuBank',
         Mask => 0x03,
         PrintConv => {
@@ -6857,7 +6864,7 @@ my %nikonFocalConversions = (
             3 => 'D',
         },
     },
-    0x0e7f => {
+    0x02 => {
         Name => 'PrimarySlot',
         Condition => '$$self{Model} =~ /\bD500\b/',
         Notes => 'D500 only',
@@ -6867,7 +6874,7 @@ my %nikonFocalConversions = (
             1 => 'SD Card',
         },
     },
-    0x0e81 => {
+    0x04 => {
         Name => 'ISOAutoShutterTime',
         Mask => 0x3f,
         PrintConv => {
@@ -6910,7 +6917,7 @@ my %nikonFocalConversions = (
             36 => 'Auto (Fastest)',
         },
     },
-    0x0e82 => {
+    0x05 => {
         Name => 'ISOAutoHiLimit',
         Mask => 0xff,
         PrintHex => 1,
@@ -6958,7 +6965,7 @@ my %nikonFocalConversions = (
             0x72 => 'ISO Hi 5.0',
         },
     },
-    0x0e84 => {
+    0x07 => {
         Name => 'FlickerReduction',
         Mask => 0x20,
         PrintConv => {
@@ -6966,7 +6973,7 @@ my %nikonFocalConversions = (
             1 => 'Disable',
         },
     },
-    3716.1 => { # (0x0e84)
+    7.1 => {
         Name => 'PhotoShootingMenuBankImageArea',
         Mask => 0x07,
         PrintConv => {
@@ -6977,16 +6984,14 @@ my %nikonFocalConversions = (
             4 => '1.3x (18x12)',
         },
     },
-### 0x0ec4 - ? start
-### 0x0eeb - CustomSettings start
-    0x0eea => {
-        Name => 'Hook5',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of CustomSettings data
-        Hook => '$varSize = $$self{CustomSettingsOffset} - 0x0eeb',
-    },
-    0x0eeb => [{
+);
+
+%Image::ExifTool::Nikon::CustomSettingsD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    IS_SUBDIR => [ 0x00 ],
+    VARS => { ALLOW_REPROCESS => 1 }, # (necessary because subdirectory is at offset 0)
+    0x00 => [{
         Name => 'CustomSettingsD5',
         Condition => '$$self{Model} =~ /\bD5\b/',
         Format => 'undef[90]',
@@ -7000,7 +7005,7 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD500',
         },
     }],
-#    0x0f68 => {  #this decode works, but involves more bits than should be necessary
+#    0x7d => {  #this decode works, but involves more bits than should be necessary
 #        Name => 'ShutterTrigger',
 #        Mask => 0xff,
 #        PrintConv => {
@@ -7009,51 +7014,13 @@ my %nikonFocalConversions = (
 #           195 => 'Shutter Button',
 #       },
 #   },
-### 0x2c24 - OrientationInfo start (D5 firmware 1.10b)
-    0x2c23 => {
-        Name => 'Hook6',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OrientationInfo data
-        Hook => '$varSize = $$self{OrientationOffset} - 0x2c24',
-    },
-    0x2c24 => {
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x2c28 => {
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x2c2c => {
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-### 0x2c90 - OtherInfo start (D500 firmware 1.20d)
-    0x2c8f => {
-        Name => 'Hook7',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OtherInfo data
-        Hook => '$varSize = $$self{OtherOffset} - 0x2c90',
-    },
+);
+
+%Image::ExifTool::Nikon::OtherInfoD500 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     # (needs testing)
-    #0x2cb2 => {
+    #0x22 => {
     #    Name => 'ExtendedPhotoShootingBanks',
     #    Mask => 0x01,
     #    PrintConv => {
@@ -7062,7 +7029,7 @@ my %nikonFocalConversions = (
     #    },
     #},
     # (may not be reliable and is found elsewhere)
-    #0x2ea2 => {
+    #0x212 => {
     #    Name => 'Rotation',
     #    Condition => '$$self{Model} =~ /\bD500\b/',
     #    Notes => 'D500 firmware 1.1x',
@@ -7074,7 +7041,7 @@ my %nikonFocalConversions = (
     #        3 => 'Rotate 180',
     #    },
     #},
-    0x2ea4 => { #PH
+    0x214 => { #PH
         Name => 'NikonMeteringMode',
         Condition => '$$self{Model} =~ /\bD500\b/', # (didn't seem to work for D5, but I need more samples)
         Notes => 'D500 only',
@@ -7086,18 +7053,16 @@ my %nikonFocalConversions = (
             3 => 'Highlight'
         },
     },
-    # note: DecryptLen currently set to OtherOffset + 0x2ea5 - 0x2c90
 );
 
 # shot information for the D6 firmware 1.00 (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoD6 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x30, 0x60, 0x9c, 0xa4, 0x75e7, 0x760c, 0x7610, 0xc219, 0xc292, 0xc40e, 0xc412, 0xc4a6, 0xc4be ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x24 },
+    IS_SUBDIR => [ 0x30, 0x9c, 0xa4 ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'These tags are extracted from encrypted data in images from the D6.',
     0x00 => {
@@ -7112,159 +7077,111 @@ my %nikonFocalConversions = (
     },
     0x24 => {
         Name => 'NumberOffsets', # (number of entries in offset table.  offsets are from start of ShotInfo data)
-        DataMember => 'NumberOffsets',
         Format => 'int32u',
         Writable => 0,
         Hidden => 1,
     },
     0x30 => {
-        Name => 'Offset3',
-        DataMember => 'Offset3',
+        Name => 'SequenceOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset3} = $val || 0x10000000; undef', # (ignore if 0)
-    },
-    0x60 => {
-        Name => 'Offset15',
-        DataMember => 'Offset15',
-        Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset15} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::SeqInfoD6',
+            Start => '$val',
+        },
     },
     0x9c => {
         Name => 'OrientationOffset',
-        DataMember => 'OrientationOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        },
     },
     0xa4 => {
-        Name => 'Offset32',
-        DataMember => 'Offset32',
+        Name => 'IntervalOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset32} = $val || 0x10000000; undef', # (ignore if 0)
-    },
-    ### 0x75e8 - Offset3 info start (D6 firmware 1.33)
-    0x75e7 => {
-        Name => 'Hook1',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Offset5 data
-        Hook => '$varSize = $$self{Offset3} - 0x75e8',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::IntervalInfoD6',
+            Start => '$val',
+        }
     },
-    0x760c => {
+);
+
+%Image::ExifTool::Nikon::SeqInfoD6 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    DATAMEMBER => [ 0x24, 0x28 ],
+    0x24 => {
         Name => 'IntervalShooting',
         RawConv => '$$self{IntervalShooting} = $val',
         Format => 'int16u',
         PrintConv => q{
             return 'Off' if $val == 0 ;
-            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals});    #something like "Interval 1 of 3"
-            my $f = $$self{IntervalShootingShotsPerInterval} > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}): '' ;  #something like "Frame 1 of 3" or blank
+            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0);    #something like "Interval 1 of 3"
+            my $f = ($$self{IntervalShootingShotsPerInterval}||0) > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0): '' ;  #something like "Frame 1 of 3" or blank
             return "On: $i$f"
-            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}, $$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}),
+            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0, $$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0),
         },
     },
-    0x7610 => {
+    0x28 => {
         Name => 'IntervalFrame',
         RawConv => '$$self{IntervalFrame} = $val',
         Condition => '$$self{IntervalShooting} > 0',
         Format => 'int16u',
         Hidden => 1,
     },
-### 0xc21a - OrientationInfo start (D6 firmware 1.00) (0xc952 for firmware 1.33)
-    0xc219 => {
-        Name => 'Hook2',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OrientationInfo data
-        Hook => '$varSize = $$self{OrientationOffset} - 0xc21a',
-    },
-    0xc21a => {
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0xc21e => {
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0xc222 => {
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    ### 0xc9c6 - Offset32 start (D6 firmware 1.33)
-    0xc292 => {
-        Name => 'Hook3',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of data
-        Hook => '$varSize = $$self{Offset32} - 0xc292',
-    },
-    0xc40e => {
+);
+
+%Image::ExifTool::Nikon::IntervalInfoD6 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    DATAMEMBER => [ 0x17c, 0x180, 0x214, 0x22c ],
+    0x17c => {
         Name => 'Intervals',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingIntervals} = $val',
         Condition => '$$self{IntervalShooting} > 0',
     },
-    0xc412 => {
+    0x180 => {
         Name => 'ShotsPerInterval',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingShotsPerInterval} = $val',
         Condition => '$$self{IntervalShooting} > 0',
     },
-    0xc416 => {
+    0x184 => {
         Name => 'IntervalExposureSmoothing',
         Condition => '$$self{IntervalShooting} > 0',
         Format => 'int8u',
         PrintConv => \%offOn,
     },
-    0xc418 => {
+    0x186 => {
         Name => 'IntervalPriority',
         Condition => '$$self{IntervalShooting} > 0',
         Format => 'int8u',
         PrintConv => \%offOn,
     },
-    0xc43a => {
+    0x1a8 => {
         Name => 'FocusShiftNumberShots',
     },
-    0xc43e => {
+    0x1ac => {
         Name => 'FocusShiftStepWidth',
     },
-    0xc442 => {
+    0x1b0 => {
         Name => 'FocusShiftInterval',
         PrintConv => '$val == 1? "1 Second" : sprintf("%.0f Seconds",$val)',
     },
-    0xc446 => {
+    0x1b4 => {
         Name => 'FocusShiftExposureLock',
         PrintConv => \%offOn,
     },
-    #0xc49c => HighISONoiseReduction
-    0xc4a0 => {
+    #0x20a => HighISONoiseReduction
+    0x20e => {
         Name => 'DiffractionCompensation',
         Format => 'int8u',
         PrintConv => \%offOn,
     },
-    #0xc4a1 => {Name => 'FlickerReductionShooting',},   #redundant with tag in NikonSettings
-    0xc4a6 => {
+    #0x20f => {Name => 'FlickerReductionShooting',},   #redundant with tag in NikonSettings
+    0x214 => {
         Name => 'FlashControlMode',   #this and nearby tag values for flash may be set from either the Photo Shooting Menu or using the Flash unit menu
         RawConv => '$$self{FlashControlMode} = $val',
         PrintConv => {
@@ -7275,14 +7192,14 @@ my %nikonFocalConversions = (
             4 => 'Repeating Flash',
         },
     },
-    0xc4ac => {
+    0x21a => {
         Name => 'FlashGNDistance',
         Condition => '$$self{FlashControlMode} == 2',
         Unknown => 1,
         ValueConv => '$val + 3',
         PrintConv => \%flashGNDistance,
     },
-    0xc4b0 => {
+    0x21e => {
         Name => 'FlashOutput',   #range[0,24]  with 0=>Full; 1=>50%; then decreasing flash power in 1/3 stops to 0.39% (1/256 full power). #also found in FlashInfoUnknown at offset 0x0a (with different mappings)
         Condition => '$$self{FlashControlMode} >= 3',
         Unknown => 1,
@@ -7291,7 +7208,7 @@ my %nikonFocalConversions = (
         PrintConv => '$val>0.99 ? "Full" : sprintf("%.1f%%",$val*100)',
         PrintConvInv => '$val=~/(\d+)/ ? $1/100 : 1',
     },
-    0xc4ba => {
+    0x228 => {
         Name => 'FlashRemoteControl',
         Unknown => 1,
         PrintConv => {
@@ -7300,12 +7217,12 @@ my %nikonFocalConversions = (
             2 => 'Remote Repeating',
         },
     },
-    0xc4be => {
+    0x22c => {
         Name => 'FlashMasterControlMode',        #tag name chosen for compatibility with those found in FlashInfo0102 & FlashInfo0103
         RawConv => '$$self{FlashGroupOptionsMasterMode} = $val',
         PrintConv => \%flashGroupOptionsMode,
     },
-    0xc4c0 => {
+    0x22e => {
         Name => 'FlashMasterCompensation',
         Unknown => 1,
         Format => 'int8s',
@@ -7315,7 +7232,7 @@ my %nikonFocalConversions = (
         PrintConv => '$val ? sprintf("%+.1f",$val) : 0',
         PrintConvInv => '$val',
     },
-    0xc4c4 => {
+    0x232 => {
         Name => 'FlashMasterOutput',
         Unknown => 1,
         Condition => '$$self{FlashGroupOptionsMasterMode}  == 1',   #only for Mode=M
@@ -7324,7 +7241,7 @@ my %nikonFocalConversions = (
         PrintConv => '$val>0.99 ? "Full" : sprintf("%.1f%%",$val*100)',
         PrintConvInv => '$val=~/(\d+)/ ? $1/100 : 1',
     },
-    0xc4c6 => {
+    0x234 => {
         Name => 'FlashWirelessOption',
         Unknown => 1,
         PrintConv => {
@@ -7332,7 +7249,7 @@ my %nikonFocalConversions = (
             1 => 'Off',
         },
     },
-    0xc55c => {
+    0x2ca => {
         Name => 'MovieType',
         Unknown => 1,
         PrintConv => {
@@ -7340,13 +7257,12 @@ my %nikonFocalConversions = (
             1 => 'MP4',
         },
     },
-    # note: DecryptLen currently set to 0xc9c6 + 720
 );
 
 # shot information for the D610 firmware 1.00 (encrypted) - ref PH
 %Image::ExifTool::Nikon::ShotInfoD610 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x07cf ],
@@ -7371,25 +7287,19 @@ my %nikonFocalConversions = (
             TagTable => 'Image::ExifTool::NikonCustom::SettingsD610',
         },
     },
-    # note: DecryptLen currently set to 0x7ff
 );
 
 # shot information for the D810 firmware 1.00(PH)/1.01 (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoD810 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x04, 0x24, 0x38, 0x40, 0x84, 0x01d0, 0x175e, 0x185d, 0x18ab ],
-    IS_SUBDIR => [ 0x18ab ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x0c },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x10, 0x24, 0x38, 0x40, 0x84 ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    NOTES => q{
-        These tags are extracted from encrypted data in images from the D810.  Note
-        that the indices listed below are for firmware version 1.0, but they may be
-        different for other firmware versions.
-    },
+    NOTES => 'These tags are extracted from encrypted data in images from the D810.',
     0x00 => {
         Name => 'ShotInfoVersion',
         Format => 'string[4]',
@@ -7404,39 +7314,64 @@ my %nikonFocalConversions = (
     },
     # 0x0c - number of entries in offset table (= 0x21)
     # 0x10 - int32u[val 0x0c]: offset table
+    0x10 => {
+        Name => 'SettingsOffset',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::SettingsInfoD810',
+            Start => '$val',
+        },
+    },
     0x24 => {
         Name => 'BracketingOffset',
-        DataMember => 'BracketingOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{BracketingOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::BracketingInfoD810',
+            Start => '$val',
+        },
     },
     0x38 => {
         Name => 'ISOAutoOffset',
-        DataMember => 'ISOAutoOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{ISOAutoOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::ISOAutoInfoD810',
+            Start => '$val',
+        },
     },
     0x40 => {
         Name => 'CustomSettingsOffset', # (relative offset from start of ShotInfo data)
-        DataMember => 'CustomSettingsOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{CustomSettingsOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::NikonCustom::SettingsD810',
+            Start => '$val',
+        },
     },
     0x84 => {
         Name => 'OrientationOffset',
-        DataMember => 'OrientationOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        }
     },
-    0x01d0 => {
+    # (moves around too much and doesn't fit cleanly in the offset table)
+    #0x38be => {
+    #    Name => 'Rotation',
+    #    Condition => '$$self{FirmwareVersion} =~ /^1\.0/',
+    #    Mask => 0x30,
+    #    PrintConv => {
+    #        0 => 'Horizontal',
+    #        1 => 'Rotate 270 CW',
+    #        2 => 'Rotate 90 CW',
+    #        3 => 'Rotate 180',
+    #    },
+    #},
+);
+
+%Image::ExifTool::Nikon::SettingsInfoD810 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x13c => {
         Name => 'SecondarySlotFunction',
         Mask => 0x03,
         PrintConv => {
@@ -7444,9 +7379,13 @@ my %nikonFocalConversions = (
             2 => 'Backup',
             3 => 'NEF Primary + JPG Secondary',
         },
-        Hook => '$varSize = $$self{BracketingOffset} - 0x1747',
     },
-    0x1756 => {
+);
+
+%Image::ExifTool::Nikon::BracketingInfoD810 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x0f => {
         Name => 'AEBracketingSteps',
         Mask => 0xff,
         PrintHex => 1,
@@ -7503,7 +7442,7 @@ my %nikonFocalConversions = (
             0xd6 => '5F3',
         },
     },
-    0x1757 => {
+    0x10 => {
         Name => 'WBBracketingSteps',
         Condition => '$$self{FILE_TYPE} ne "TIFF"', # (covers NEF and TIFF)
         Mask => 0xff,
@@ -7546,7 +7485,7 @@ my %nikonFocalConversions = (
             0x28 => '9F 3',
         },
     },
-    0x175e => {
+    0x17 => {
         Name => 'NikonMeteringMode',
         Mask => 0x03,
         PrintConv => {
@@ -7555,9 +7494,13 @@ my %nikonFocalConversions = (
             2 => 'Spot',
             3 => 'Highlight'
         },
-        Hook => '$varSize = $$self{ISOAutoOffset} - 0x1858',
     },
-    0x185c => {
+);
+
+%Image::ExifTool::Nikon::ISOAutoInfoD810 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x04 => {
         Name => 'ISOAutoShutterTime',
         Mask => 0x3f,
         PrintConv => {
@@ -7600,7 +7543,7 @@ my %nikonFocalConversions = (
             36 => 'Auto (Fastest)',
         },
     },
-    0x185d => {
+    0x05 => {
         Name => 'ISOAutoHiLimit',
         Mask => 0xff,
         PrintHex => 1,
@@ -7647,69 +7590,18 @@ my %nikonFocalConversions = (
             0x6c => 'ISO Hi 4.0',
             0x72 => 'ISO Hi 5.0',
         },
-        Hook => '$varSize = $$self{CustomSettingsOffset} - 0x18ab',
     },
-    0x18ab => { # (actual offset adjusted by Hook above)
-        Name => 'CustomSettingsD810',
-        Format => 'undef[53]',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::NikonCustom::SettingsD810',
-        },
-        Hook => '$varSize = $$self{OrientationOffset} - 0x36f4',
-    },
-    0x36f4 => {
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x36f8 => {
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x36fc => {
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    # note: DecryptLen currently set to OrientationOffset + 12
-
-    # (moves around too much and doesn't fit cleanly in the offset table)
-    #0x38be => {
-    #    Name => 'Rotation',
-    #    Condition => '$$self{FirmwareVersion} =~ /^1\.0/',
-    #    Mask => 0x30,
-    #    PrintConv => {
-    #        0 => 'Horizontal',
-    #        1 => 'Rotate 270 CW',
-    #        2 => 'Rotate 90 CW',
-    #        3 => 'Rotate 180',
-    #    },
-    #},
 );
 
 # shot information for the D850 firmware 1.00b (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoD850 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x04, 0x58, 0xa0, 0x0fbf, 0x2efa ],
-    IS_SUBDIR => [ 0x1038 ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x0c },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x10, 0x4c, 0x58, 0xa0 ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'These tags are extracted from encrypted data in images from the D850.',
     0x00 => {
@@ -7724,23 +7616,44 @@ my %nikonFocalConversions = (
         Writable => 0,
         RawConv => '$$self{FirmwareVersion} = $val',
     },
+    0x10 => {
+        Name => 'MenuSettingsOffset',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::MenuSettingsD850',
+            Start => '$val',
+        },
+    },
+    0x4c => {
+        Name => 'MoreSettingsOffset',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::MoreSettingsD850',
+            Start => '$val',
+        },
+    },
     0x58 => {
-        Name => 'CustomSettingsOffset', # (relative offset from start of ShotInfo data)
-        DataMember => 'CustomSettingsOffset',
+        Name => 'CustomSettingsOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{CustomSettingsOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::NikonCustom::SettingsD850',
+            Start => '$val',
+        },
     },
     0xa0 => {
         Name => 'OrientationOffset',
-        DataMember => 'OrientationOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        },
     },
-    0x0791 => {
+);
+
+%Image::ExifTool::Nikon::MenuSettingsD850 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x06dd => {
         Name => 'PhotoShootingMenuBankImageArea',
         Mask => 0x07,
         PrintConv => {
@@ -7751,7 +7664,12 @@ my %nikonFocalConversions = (
             4 => '1:1 (24x24)',
         },
     },
-    0x0fbd => {
+);
+
+%Image::ExifTool::Nikon::MoreSettingsD850 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0x24 => {
         Name => 'PhotoShootingMenuBank',
         Condition => '$$self{FILE_TYPE} eq "JPEG"',
         Notes => 'valid for JPEG images only',
@@ -7763,63 +7681,20 @@ my %nikonFocalConversions = (
             3 => 'D',
         },
     },
-    0x0fbf => {
+    0x25 => {
         Name => 'PrimarySlot',
         Mask => 0x80,
         PrintConv => {
             0 => 'XQD Card',
             1 => 'SD Card',
         },
-        Hook => '$varSize = $$self{CustomSettingsOffset} - 0x1038',
-    },
-    0x1038 => {
-        Name => 'CustomSettingsD850',
-        Format => 'undef[90]',
-        SubDirectory => {
-            TagTable => 'Image::ExifTool::NikonCustom::SettingsD850',
-        },
-    },
-### 0x2efb - OrientationInfo start (D850 firmware 1.01a)
-    0x2efa => {
-        Name => 'Hook1',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OrientationInfo data
-        Hook => '$varSize = $$self{OrientationOffset} - 0x2efb',
-    },
-    0x2efb => { #28
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
     },
-    0x2eff => { #28
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x2f03 => { #28
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    # note: DecryptLen currently set to 0x2f07
 );
+
 # shot information for the D4 firmware 1.00g (ref PH)
 %Image::ExifTool::Nikon::ShotInfoD4 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     IS_SUBDIR => [ 0x0751 ],
@@ -7845,17 +7720,16 @@ my %nikonFocalConversions = (
         Format => 'undef[56]',
         SubDirectory => { TagTable => 'Image::ExifTool::NikonCustom::SettingsD4' },
     },
-    # note: DecryptLen currently set to 0x789
 );
 
 # shot information for the D4S firmware 1.01a (ref 28, encrypted)
 %Image::ExifTool::Nikon::ShotInfoD4S = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
     VARS => { ID_LABEL => 'Index' },
     DATAMEMBER => [ 4 ],
-    IS_SUBDIR => [ 0x189d, 0x193d ],
+    IS_SUBDIR => [ 0x189d, 0x193d, 0x350b ],
     WRITABLE => 1,
     FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
@@ -8119,31 +7993,13 @@ my %nikonFocalConversions = (
 #       },
 #   },
     0x350b => {
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val < 180 ? -$val : 360 - $val',
-        ValueConvInv => '$val <= 0 ? -$val : 360 - $val',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x350f => {
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0x3513 => {
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
+        Name => 'OrientationInfo',
+        Format => 'undef[12]',
+        SubDirectory => {
+            # Note: pitch angle may be wrong sign for this model?
+            # (pitch sign was changed without verification to use same decoding as other models)
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+        },
     },
     0x3693 => {
         Name => 'Rotation',
@@ -8155,20 +8011,17 @@ my %nikonFocalConversions = (
             3 => 'Rotate 180',
         },
     },
-    # note: DecryptLen currently set to 0x3697
 );
 
 # shot information for the Z7II firmware 1.00 (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoZ7II = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x04, 0x30, 0x38, 0x98, 0xa0,  0x75e7, 0x760c,
-                    0x7610, 0x7eff, 0xce31, 0xcea5, 0xceb6, 0xceb7 ],
-    IS_SUBDIR => [ 0xceb8 ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x24 },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x30, 0x38, 0x98, 0xa0 ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'These tags are extracted from encrypted data in images from the Z7II.',
     0x00 => {
@@ -8197,79 +8050,73 @@ my %nikonFocalConversions = (
     },
     0x24 => {
         Name => 'NumberOffsets', # number of entries in offset table.  offsets are from start of ShotInfo data.
-        DataMember => 'NumberOffsets',
         Format => 'int32u',
         Writable => 0,
         Hidden => 1,
     },
     0x30 => {
-        Name => 'Offset3',
-        DataMember => 'Offset3',
+        Name => 'IntervalOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset3} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::IntervalInfoZ7II',
+            Start => '$val',
+        }
     },
     0x38 => {
-        Name => 'Offset5',
-        DataMember => 'Offset5',
+        Name => 'PortraitOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset5} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::PortraitInfoZ7II',
+            Start => '$val',
+        }
     },
     0x98 => {
         Name => 'OrientationOffset',
-        DataMember => 'OrientationOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        }
     },
     0xa0 => {
-        Name => 'Offset31',
-        DataMember => 'Offset31',
+        Name => 'MenuOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{Offset31} = $val || 0x10000000; undef', # (ignore if 0)
-    },
-    ### 0x75e8 - Offset3 info start (Z7II firmware 1.30)
-    0x75e7 => {
-        Name => 'Hook1',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Offset3 data
-        Hook => '$varSize = $$self{Offset3} - 0x75e8',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::MenuInfoZ7II',
+            Start => '$val',
+        },
     },
-    0x760c => {
+);
+
+%Image::ExifTool::Nikon::IntervalInfoZ7II = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    DATAMEMBER => [ 0x24, 0x28 ],
+    0x24 => {
         Name => 'IntervalShooting',
         RawConv => '$$self{IntervalShooting} = $val',
         Format => 'int16u',
         PrintConv => q{
             return 'Off' if $val == 0 ;
-            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals}); # something like "Interval 1 of 3"
-            my $f = $$self{IntervalShootingShotsPerInterval} > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}): '' ;  # something like "Frame 1 of 3" or blank
+            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0); # something like "Interval 1 of 3"
+            my $f = ($$self{IntervalShootingShotsPerInterval}||0) > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0): '' ;  # something like "Frame 1 of 3" or blank
             return "On: $i$f"
-            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}, $$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}),
+            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0, $$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0),
         },
     },
-    0x7610 => {
+    0x28 => {
         Name => 'IntervalFrame',
         RawConv => '$$self{IntervalFrame} = $val',
         Condition => '$$self{IntervalShooting} > 0',
         Format => 'int16u',
         Hidden => 1,
     },
-    ### 0x7f00 - Offset5 info start (Z7II firmware 1.30)
-    0x7eff => {
-        Name => 'Hook2',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Offset5 data
-        Hook => '$varSize = $$self{Offset5} - 0x7f00',
-    },
-    0x7fa0 => { #28
+);
+
+%Image::ExifTool::Nikon::PortraitInfoZ7II = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0xa0 => { #28
         Name => 'PortraitImpressionBalance', # will be 0 for firmware 1.21 and earlier; firmware 1.30 onward: will be set by Photo Shooting Menu entry Portrait Impression Balance
                    # offset5+160;    128 is neutral; >128 increases Yellow; <128 increases Magenta;  increments of 4 result from 1 full unit adjustment on the camera
                    # offset5+161     128 is neutral;  >128 increases Brightness; <128 decreases Brightness
@@ -8285,83 +8132,31 @@ my %nikonFocalConversions = (
             return "$color $brightness"
         },
     },
-    ### 0xce32 - OrientationInfo start (Z7II firmware 1.00)
-    0xce31 => {
-        Name => 'Hook3',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OrientationInfo data
-        Hook => '$varSize = $$self{OrientationOffset} - 0xce32',
-    },
+);
 
-    0xce32 => {
-        Name => 'RollAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of clockwise camera roll',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0xce36 => {
-        Name => 'PitchAngle',
-        Format => 'fixed32u',
-        Notes => 'converted to degrees of upward camera tilt',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0xce3a => {
-        Name => 'YawAngle',
-        Format => 'fixed32u',
-        Notes => 'the camera yaw angle when shooting in portrait orientation',
-        ValueConv => '$val <= 180 ? $val : $val - 360',
-        ValueConvInv => '$val >= 0 ? $val : $val + 360',
-        PrintConv => 'sprintf("%.1f", $val)',
-        PrintConvInv => '$val',
-    },
-    0xcea5 => {
-        Name => 'Hook4',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Offset31 data
-        Hook => '$varSize = $$self{Offset31} - 0xcea6',
-    },
-    ### 0xcea6 - Offset31 info start (Z7II firmware 1.30)
-    0xceb6 => {
-        Name => 'MenuSettingsZ7IIOffset',
-        # offset to MenuSettingsZ7II is relative to start of Offset31 block
-        RawConv => '$$self{MenuSettingsZ7IIOffset} = ($val || 0x10000000) + $$self{Offset31}; undef', # (ignore if 0)
-    },
-    0xceb7 => {
-        Name => 'Hook5',
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of Offset5 data
-        Hook => '$varSize = $$self{MenuSettingsZ7IIOffset} - 0xceb8',
-    },
-    0xceb8 => { # (this is 0xd04e for the Z50)
-        Name => 'MenuSettingsZ7II',
-        Format => 'undef[860]',
+%Image::ExifTool::Nikon::MenuInfoZ7II = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    IS_SUBDIR => [ 0x10 ],
+    0x10 => {
+        Name => 'MenuSettingsOffsetZ7II',
+        Format => 'int32u',
         SubDirectory => {
             TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ7II',
+            Start => '$dirStart + $val',
         },
-    }
-    # note: DecryptLen currently set to 0xd04e + 860 (offset for Z50 is 0xd04e)
+    },
 );
 
 # shot information for the Z9 firmware 1.00 (encrypted) - ref 28
 %Image::ExifTool::Nikon::ShotInfoZ9 = (
-    PROCESS_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-    WRITE_PROC => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+    PROCESS_PROC => \&ProcessNikonEncrypted,
+    WRITE_PROC => \&ProcessNikonEncrypted,
     CHECK_PROC => \&Image::ExifTool::CheckBinaryData,
-    VARS => { ID_LABEL => 'Index' },
-    DATAMEMBER => [ 0x04, 0x30, 0x84, 0x8c,0x93, 0xb4, 0xbc, 0xbe,
-                    0x4410, 0x4411, 0x80c4, 0x8149, 0x814a ],
-    IS_SUBDIR => [ 0x44ec, 0x8225 ],
+    VARS => { ID_LABEL => 'Index', NIKON_OFFSETS => 0x24 },
+    DATAMEMBER => [ 0x04 ],
+    IS_SUBDIR => [ 0x30, 0x58, 0x84, 0x8c ],
     WRITABLE => 1,
-    FIRST_ENTRY => 0,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
     NOTES => 'These tags are extracted from encrypted data in images from the Z9.',
     0x00 => {
@@ -8390,47 +8185,55 @@ my %nikonFocalConversions = (
     },
     0x24 => {
         Name => 'NumberOffsets', # number of entries in offset table.  offsets are from start of ShotInfo data.
-        DataMember => 'NumberOffsets',
         Format => 'int32u',
         Writable => 0,
         Hidden => 1,
     },
+    # subdirectories, referenced by offsets (not processed if offset is zero)
     0x30 => {
-        Name => 'SequenceOffset',   #offset3 - length 2528 (Z9 firmware 1.0)
-        DataMember => 'SequenceOffset',
+        Name => 'SequenceOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{SequenceOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::SeqInfoZ9',
+            Start => '$val',
+        },
+    },
+    0x58 => {
+        Name => 'Offset13',   #offset13 - length x'8f80 (Z9 firmware 3.01 NEF), using currently for a few foucs related tags.  Might be premature to give the offset a more meaningful name at this point.
+        Condition => '$$self{FirmwareVersion} and $$self{FirmwareVersion} ge "03.01"',
+        Format => 'int32u',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::Offset13InfoZ9',
+            Start => '$val',
+        },
     },
     0x84 => {
-        Name => 'OrientationOffset',   #offset24 - length 108 (Z9 firmware 1.0)
-        DataMember => 'OrientationOffset',
+        Name => 'OrientOffset',
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{OrientationOffset} = $val || 0x10000000; undef', # (ignore if 0)
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::OrientationInfo',
+            Start => '$val',
+        },
     },
     0x8c => {
-        Name => 'MenuOffset',   #offset26 - length 1895 (Z9 firmware 1.0)
-        DataMember => 'MenuOffset6',
+        Name => 'MenuOffset',
         Format => 'int32u',
-        Writable => 0,
-        Hidden => 1,
-        RawConv => '$$self{MenuOffset} = $val || 0x10000000; undef', # (ignore if 0)
-    },
-    ### 0x0094 - SequenceOffset info start (Z9 firmware 1.00)
-    0x0093 => {
-        Name => 'SequenceOffsetHook',
-        Condition => '$$self{ShutterMode} ne 96',     #not valid for C30/C60/C120 
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of SequenceOffset data
-        Hook => '$varSize = $$self{SequenceOffset} - 0x0094',
+        SubDirectory => {
+            TagTable => 'Image::ExifTool::Nikon::MenuInfoZ9',
+            Start => '$val',
+        },
     },
-    0x00b4 => {
+);
+
+# ref 28
+%Image::ExifTool::Nikon::SeqInfoZ9 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    DATAMEMBER => [ 0x20, 0x28, 0x2a ],
+    0x0020 => {
         Name => 'FocusShiftShooting',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
         RawConv => '$$self{FocusShiftShooting} = $val',
         PrintConv => q{
             return 'Off' if $val == 0 ;
@@ -8438,86 +8241,215 @@ my %nikonFocalConversions = (
             return "On: $i"
         },
     },
-    0x00bc => {
+    0x0028 => {
         Name => 'IntervalShooting',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
         RawConv => '$$self{IntervalShooting} = $val',
         Format => 'int16u',
         PrintConv => q{
             return 'Off' if $val == 0 ;
-            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals}); # something like "Interval 1 of 3"
-            my $f = $$self{IntervalShootingShotsPerInterval} > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}): '' ;  # something like "Frame 1 of 3" or blank
+            my $i = sprintf("Interval %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0); # something like "Interval 1 of 3"
+            my $f = ($$self{IntervalShootingShotsPerInterval}||0) > 1 ? sprintf(" Frame %.0f of %.0f",$$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0): '' ;  # something like "Frame 1 of 3" or blank
             return "On: $i$f"
-            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}, $$self{IntervalFrame}, $$self{IntervalShootingShotsPerInterval}),
+            #$val == 0 ? 'Off' : sprintf("On: Interval %.0f of %.0f Frame %.0f of %.0f",$val, $$self{IntervalShootingIntervals}||0, $$self{IntervalFrame}||0, $$self{IntervalShootingShotsPerInterval}||0),
         },
     },
-    0x00be => {
-        Condition => '$$self{ShutterMode} ne 96',   #not valid for C30/C60/C120 
+    0x002a => {
         Name => 'IntervalFrame',
         RawConv => '$$self{IntervalFrame} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
         Format => 'int16u',
         Hidden => 1,
     },
-    ### 0x4400 - Offset26 info start (Z9 firmware 3.01 C30/C60/C120 )
-    0x4410 => {
-        Name => 'MenuSettingsZ9Offset',
-        Condition => '$$self{ShutterMode} eq 96',    # C30/C60/C120 jpgs only
-        Writable => 0,
-        Hidden => 1,
-        # offset to MenuSettingsZ9 is relative to start of Offset26 block
-        RawConv => '$$self{MenuSettingsZ9Offset} = ($val || 0x10000000) + $$self{MenuOffset}; undef', # (ignore if 0)
+);
+
+# ref 28
+%Image::ExifTool::Nikon::Offset13InfoZ9 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    DATAMEMBER => [ 0x0bea, 0x0beb ],
+    0x0be8 => {
+        Name => 'AFAreaInitialXPosition',        #stored as a representation of the horizontal position of the center of the portion of the focus box positioned top left when in Wide Area (L/S/C1/C2) focus modes (before subject detection potentially refines focus)
+        Condition => '$$self{ShutterMode} ne 96 and $$self{AFAreaMode} < 2 ',    #not valid for C30/C60/C120 or for Area Modes 1:1 and 16:19
+        Format => 'int8s',
+        PrintConv => q{
+            #in FX mode and Single-point, the 29 horizontal focus points are spaced 259 pixels apart starting at pixel 502 and ending at 7754.  Spacing is the same for Wide(L/C1/C2) with different start points.
+            #in FX mode and Dynamic(L), the 27 horizontal focus points are spaced 259 pixels apart starting at pixel 761 and ending at 7495
+            #in FX mode and Dynamic(M), the 29 horizontal focus points are spaced 259 pixels apart starting at pixel 502 and ending at 7754
+            #in DX mode and Single-point, the 19 horizontal focus points are spaced 388 pixels apart starting at pixel 636 and ending at 7620.  [These correspond to FX positions and match the corresponding values in AFAreaMode tag AFAreaXPosition].
+            #in DX mode and Wide(S), the 17 horizontal focus points are spaced 393 pixels apart starting at pixel 591 and ending at 7272.
+            #in DX mode and Dynamic(L), the 17 horizontal focus points are spaced 388 pixels apart starting at pixel 1024 and ending at 7232
+            #in DX mode and Dynamic(M), the 19 horizontal focus points are spaced 388 pixels apart starting at pixel 636 and ending at 7620
+
+            my $areaMode = $$self{VALUE}{PhotoShootingMenuBankImageArea};
+            my $afAreaMode = $$self{VALUE}{AFAreaMode};
+            my $dynamicAFAreaSize = $$self{VALUE}{DynamicAFAreaSize};
+
+            my $FX = 0;
+            my $DX = 1;
+
+            my $Single = 1;
+            my $Dynamic = 2;
+            my $WideS = 3;
+            my $WideL = 4;
+            my $ThreeD = 5;
+            my $Auto = 6;
+            my $WideC1 = 12;
+
+            my $DynamicS = 0;
+            my $DynamicM = 1;
+            my $DynamicL = 2;
+
+            my $start = 502;                                                                                                              #FX - all flavors
+            $start = 636 if $areaMode == $DX and ($afAreaMode == $Dynamic or $afAreaMode == $WideL or $afAreaMode == $ThreeD or $afAreaMode == $Auto  or $afAreaMode >= $WideC1);           #DX Wide(L/C1/C2) + Dynamic (L/M/S) + 3D + Auto
+            $start = 591 if $areaMode == $DX and  $afAreaMode == $WideS ;                                                                  #DX Wide(S)
+
+            my $increment = 259;                                                                                                        #FX - all flavors
+            $increment = 388 if $areaMode == $DX and ($afAreaMode == $Dynamic or $afAreaMode == $WideL or $afAreaMode == $ThreeD or $afAreaMode == $Auto  or $afAreaMode >= $WideC1);       #DX Wide(L/C1/C2) + Dynamic (L/M/S) + 3D  + Auto
+            $increment = 393 if $areaMode == $DX and  $afAreaMode == $WideS ;                                                              #DX Wide(S)
+
+            my $divisor = 4;
+            $divisor = 6 if $areaMode == $DX  ;
+
+            my $offsetVal = 0;
+            $offsetVal = 12 if $areaMode == $FX and $afAreaMode == $Dynamic ;                      #FX Dynamic (L/M) - force positive values so perl rounding toward zero isn't an issue
+            $offsetVal = 18 if $areaMode == $DX and $afAreaMode == $Dynamic ;                      #DX Dynamic (L/M)
+
+            my $offsetSum = -1;
+            $offsetSum = -4  if $afAreaMode == $Dynamic ;                  # Dynamic (L/M)
+
+            my $ncol = $$self{AFAreaInitialWidth};
+            $ncol = int($ncol * 2 / 3)    if  $areaMode == $DX ;      #DX
+
+            #some sample mappings:
+            #FX Wide(S/L/C1/C2) [6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 49, 53, 57, 61, 65, 69, 73, 77, 81, 85, 89, 93, 97, 101, 105, 109, 113, 117]  to 502, 761, 1020, 1279, 1538, 1797, 2056, 2315, 2574, 2833, 3092, 3351, 3610, 3869, 4128, 4387, 4646, 4905, 5164, 5423, 5682, 5941, 6200, 6459, 6718, 6977, 7236, 7495, 7754]
+            #DX Wide(L/C1/C2) map for Wide(L)/C1/C2 [6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 67, 73, 79, 85, 91, 97, 103, 109, 115] to [636, 1024, 1412, 1800, 2188, 2576, 2964, 3352, 3740, 4128, 4516, 4904, 5292, 5680, 6068, 6456, 6844, 7232, 7620]
+            #DX Wide(S) for Wide(S) [6, 12, 18, 24, 30, 36, 42, 48, 54, 60, 67, 73, 79, 85, 91, 97, 103] to [984, 1377, 1770, 2163, 2556, 2949, 3342, 3735, 4128, 4521, 4914, 5307, 5700, 6093, 6486, 6879, 7272]
+            #FX Dynamic (L) map [-9, -5, -1, 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 49, 53, 57, 61, 65, 69, 73, 77, 81, 85, 89, 93] to [761, 1020, 1279, 1538, 1797, 2056, 2315, 2574, 2833, 3092, 3351, 3610, 3869, 4128, 4387, 4646, 4905, 5164, 5423, 5682, 5941, 6200, 6459, 6718, 6977, 7236, 7495]
+
+            return $start + $increment * (int(($val + $offsetVal) / $divisor)  + int($ncol / 2) + $offsetSum) ; #do not use simple int() becuase it rounds negative fractions toward zero resulting in duplicate values - instead use the 10xdivisor to force positive values
+        },
+    },
+    0x0be9 => {
+        Name =>'AFAreaInitialYPosition',    #stored as a representation of the vertical position of the center of the portion of the focus box positioned top left when in Wide Area (L/S/C1/C2) focus modes (before subject detection potentially refines focus)
+        Condition => '$$self{ShutterMode} ne 96 and $$self{AFAreaMode} < 2',    #not valid for C30/C60/C120 or for Area Modes 1:1 and 16:19
+        Format => 'int8s',
+        PrintConv => q{
+            #in FX mode and Single-point, the 17 vertical focus points are spaced 291 pixels apart starting at pixel 424 and ending at 5080.  Spacing is the same for Wide(L/C1/C2)
+            #in FX mode and Dynamic(L),  the 15 vertical focus points are spaced 291 pixels apart starting at pixel 715 and ending at 4789
+            #in FX mode and Dynamic(M), the 17 vertical l focus points are spaced 291 pixels apart starting at pixel 424 and ending at 5080
+            #in DX mode and Single-point, the 11 vertical focus points are spaced 436 pixels apart starting at pixel 572 and ending at 4932.  [These correspond to FX positions and match the corresponding values in AFAreaMode tag AFAreaYPosition].
+            #in DX Mode and Wide(S) the 9 vertical focus points are spaced 442 pixels apart starting at pixel 542 and ending at 4520
+            #in DX mode and Dynamic(L), the 9 vertical focus points are spaced 436 pixels apart starting at pixel 1008 and ending at 4496
+
+            my $areaMode = $$self{VALUE}{PhotoShootingMenuBankImageArea};
+            my $afAreaMode = $$self{VALUE}{AFAreaMode};
+            my $dynamicAFAreaSize = $$self{VALUE}{DynamicAFAreaSize};
+
+            my $FX = 0;
+            my $DX = 1;
+
+            my $Single = 1;
+            my $Dynamic = 2;
+            my $WideS = 3;
+            my $WideL = 4;
+            my $ThreeD = 5;
+            my $Auto = 6;
+            my $WideC1 = 12;
+
+            my $DynamicS = 0;
+            my $DynamicM = 1;
+            my $DynamicL = 2;
+
+            my $start = 424;                                                                                                              #FX - all flavors
+            $start = 572 if $areaMode == $DX and ($afAreaMode == $Dynamic or $afAreaMode == $WideL or $afAreaMode == $ThreeD or $afAreaMode == $Auto or $afAreaMode >= $WideC1);           #DX Wide(L/C1/C2) +  Dynamic(L/M/S)  + 3D + Auto
+            $start = 542 if $areaMode == $DX and  $afAreaMode == 3 ;                                                                      #DX Wide(S)
+
+            my $increment = 291;                                                                                                        #FX - all flavors
+            $increment = 436 if $areaMode == $DX and ($afAreaMode == $Dynamic or $afAreaMode == $WideL or $afAreaMode == $ThreeD or $afAreaMode == $Auto or $afAreaMode >= $WideC1);       #DX Wide(L/C1/C2) + Dynamic (L/M/S) +3D + Auto
+            $increment = 442 if $areaMode == $DX and  $afAreaMode == 3 ;                                                                  #DX Wide(S)
+
+            my $divisor = 7;
+            $divisor = 10 if $areaMode == $DX ;                                                  #DX
+
+            my $offsetVal = -1;
+            $offsetVal = 39 if $afAreaMode == $Dynamic and ( $dynamicAFAreaSize == $DynamicL ) ;      #Dynamic (L)  - force positive values so perl rounding toward zero isn't an issue
+            $offsetVal = 40 if $afAreaMode == $Dynamic and $dynamicAFAreaSize == $DynamicM ;      #Dynamic (M)
+            $offsetVal = 40 if $areaMode == $FX and (($afAreaMode == $Dynamic and $dynamicAFAreaSize == $DynamicS) or $afAreaMode == $ThreeD) ;      #FX Dynamic (S) or 3D
+            $offsetVal = 38 if $areaMode == $DX and ($afAreaMode == $Dynamic and $dynamicAFAreaSize == $DynamicS ) ;        #DX Dynamic (S)or 3D
+
+            my $offsetSum = 0;
+            $offsetSum = -6 if  $areaMode == $FX and ($afAreaMode == $Dynamic or $afAreaMode == $ThreeD);                     #FX Dynamic (L/M/S) or 3D
+            $offsetSum = -4 if  $areaMode == $DX and ($afAreaMode == $Dynamic or $afAreaMode == $ThreeD );                     #DX Dynamic (L/M/S) or 3D
+
+            my $nrow = $$self{AFAreaInitialHeight};
+            $nrow = int($nrow * 2 / 3)    if  $areaMode == $DX;                                      #DX
+
+            #some sample mappings:
+            #FX Wide(S/L/C1/C2) map [7, 13, 20, 27, 33, 40, 47, 53, 60, 67, 74, 80, 87, 94, 100, 107, 114] to [424, 715, 1006, 1297, 1588, 1879, 2170, 2461, 2752, 3043, 3334, 3625, 3916, 4207, 4498, 4789, 5080]
+            #DX Wide(L/C1/C2) map [7, 17, 28, 38, 48, 58, 69, 79, 89, 100, 110] to [572, 1008, 1444, 1880, 2316, 2752, 3188, 3624, 4060, 4496, 4932]
+            #DX Wide(S) map for Wide(S) [7, 17, 28, 38, 48, 58, 69, 79, 89]  to [984, 1426, 1868, 2310, 2752, 3194, 3636, 4078, 4520]
+            #FX Dynamic (L) map [-19, -13, -6, 0, 7, 13, 20, 27, 33, 40, 47, 53, 60, 67, 74] to [715, 1006, 1297, 1588, 1879, 2170, 2461, 2752, 3043, 3334, 3625, 3916, 4207, 4498, 4789]
+
+            return $start + $increment * (int(($val + $offsetVal) / $divisor)  + int($nrow / 2) + $offsetSum) ;;
+        },
+    },
+    0x0bea => {
+        Name => 'AFAreaInitialWidth',
+        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
+        ValueConv => '$$self{VALUE}{PhotoShootingMenuBankImageArea} eq 0 ? $val : int($val * 2 / 3)',   #DX mode requires scaling down  TODO: add support ImageAreas 1:1 and 16:9
+        RawConv => '$$self{AFAreaInitialWidth} = 1 + int ($val / 4)',    #convert from [3, 11, 19, 35, 51, 75] to [1, 3, 5, 9 13, 19] to match camera options for C1/C2 focus modes .. input/output of 11/3 is for Wide(S)
     },
-    0x4411 => {
-        Name => 'Hook5',
-        Condition => '$$self{ShutterMode} eq 96',    # C30/C60/C120 jpgs only
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of menu settings data
-        Hook => '$varSize = $$self{MenuSettingsZ9Offset} - 0x44ec',
+    0x0beb => {
+        Name => 'AFAreaInitialHeight',
+        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
+        ValueConv => '$$self{VALUE}{PhotoShootingMenuBankImageArea} eq 0 ? $val : int($val * 2 / 3)',   #DX mode requires scaling down  TODO: add support ImageAreas 1:1 and 16:9
+        RawConv => '$$self{AFAreaInitialHeight} = 1 + int ($val / 7) ',    #convert from [6, 20, 33, 46, 73] to [1, 3, 5, 7, 11] to match camera options for C1/C2 focus modes  .. input/output of 33/5 is for Wide(L)
     },
-    0x44ec => [
+);
+
+%Image::ExifTool::Nikon::MenuInfoZ9 = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    IS_SUBDIR => [ 0x10 ],
+  # 0x00 - int32u size of this directory
+    0x10 => [
         {
-            Name => 'MenuSettingsZ9',
-            Condition => '$$self{ShutterMode} eq 96 and $$self{FirmwareVersion} lt "03.00"',    # C30/C60/C120 jpgs only
-            Format => 'undef[1646]',
+            Name => 'MenuSettingsOffsetZ9',
+            Condition => '$$self{FirmwareVersion} and $$self{FirmwareVersion} lt "03.00"',
+            Format => 'int32u',
             Notes => 'Firmware versions 2.11 and earlier',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ9',
+                Start => '$dirStart + $val',
             },
         },
         {
-            Name => 'MenuSettingsZ9',
+            Name => 'MenuSettingsOffsetZ9v3',
             Notes => 'Firmware versions 3.0 and later',
-            Condition => '$$self{ShutterMode} eq 96',    # C30/C60/C120 jpgs only
-            Format => 'undef[1948]',
+            Format => 'int32u',
             SubDirectory => {
-                TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ9Firmware3',
+                TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ9v3',
+                Start => '$dirStart + $val',
             },
         },
     ],
-    ### 0x80c5 - OrientationInfo start (Z9 firmware 3.01)
-    0x80c4 => {
-        Name => 'OrientationHook',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of OrientationInfo data
-        Hook => '$varSize = $$self{OrientationOffset} - 0x80c5',
-    },
-    0x80c5 => {
+);
+
+%Image::ExifTool::Nikon::OrientationInfo = (
+    %binaryDataAttrs,
+    GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
+    0 => {
         Name => 'RollAngle',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
-		Format => 'fixed32u',
+        Format => 'fixed32u',
         Notes => 'converted to degrees of clockwise camera roll',
         ValueConv => '$val <= 180 ? $val : $val - 360',
         ValueConvInv => '$val >= 0 ? $val : $val + 360',
         PrintConv => 'sprintf("%.1f", $val)',
         PrintConvInv => '$val',
     },
-    0x80c9 => {
+    4 => {
         Name => 'PitchAngle',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
         Format => 'fixed32u',
         Notes => 'converted to degrees of upward camera tilt',
         ValueConv => '$val <= 180 ? $val : $val - 360',
@@ -8525,9 +8457,8 @@ my %nikonFocalConversions = (
         PrintConv => 'sprintf("%.1f", $val)',
         PrintConvInv => '$val',
     },
-    0x80cd => {
+    8 => {
         Name => 'YawAngle',
-        Condition => '$$self{ShutterMode} ne 96',    #not valid for C30/C60/C120
         Format => 'fixed32u',
         Notes => 'the camera yaw angle when shooting in portrait orientation',
         ValueConv => '$val <= 180 ? $val : $val - 360',
@@ -8535,51 +8466,25 @@ my %nikonFocalConversions = (
         PrintConv => 'sprintf("%.1f", $val)',
         PrintConvInv => '$val',
     },
-    ### 0x8139 - Offset26 info start (Z9 firmware 3.01)
-    0x8149 => {
-        Name => 'MenuSettingsZ9Offset',
-        Condition => '$$self{ShutterMode} ne 96',    # C30/C60/C120 jpgs handled at 0x4410
-        Writable => 0,
-        Hidden => 1,
-        # offset to MenuSettingsZ9 is relative to start of Offset26 block
-        RawConv => '$$self{MenuSettingsZ9Offset} = ($val || 0x10000000) + $$self{MenuOffset}; undef', # (ignore if 0)
-    },
-    0x814a => {
-        Name => 'Hook5',
-        Condition => '$$self{ShutterMode} ne 96',    # C30/C60/C120 jpgs handled at 0x4410
-        Hidden => 1,
-        RawConv => 'undef',
-        # account for variable location of menu settings data
-        Hook => '$varSize = $$self{MenuSettingsZ9Offset} - 0x8225',
-    },
-    0x8225 => [
-        {
-            Name => 'MenuSettingsZ9',
-            Condition => '$$self{ShutterMode} ne 96 and $$self{FirmwareVersion} lt "03.00"',    # C30/C60/C120 jpgs handled at 0x4410
-            Format => 'undef[1646]',
-            Notes => 'Firmware versions 2.11 and earlier',
-            SubDirectory => {
-                TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ9',
-            },
-        },
-        {
-            Name => 'MenuSettingsZ9',
-            Notes => 'Firmware versions 3.0 and later',
-            Condition => '$$self{ShutterMode} ne 96',    # C30/C60/C120 jpgs handled at 0x4410
-            Format => 'undef[1948]',
-            SubDirectory => {
-                TagTable => 'Image::ExifTool::Nikon::MenuSettingsZ9Firmware3',
-            },
-        },
-    ],
-    # note: DecryptLen currently set to 0xec4b + 2196
 );
 
 %Image::ExifTool::Nikon::MenuSettingsZ7II  = (
     %binaryDataAttrs,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    DATAMEMBER => [ 176, 180, 328, 352, 858 ],
+    DATAMEMBER => [ 90, 176, 180, 328, 352, 858 ],
     NOTES => 'These tags are used by the Z5, Z6, Z7, Z6II, Z7II, Z50 and Zfc.',
+    #48 SelfTimer'   #0=> no 1=> yes    works for Z7II firmware 1.40, but not 1.30.  Follow-up required.
+    90 => {
+        Name => 'SingleFrame',    #0=> Single Frame 1=> one of the continuous modes
+        Hidden => 1,
+        RawConv => '$$self{SingleFrame} = $val',
+    },
+    92 => {
+        Name => 'ReleaseMode',
+        #ValueConv => '$$self{SelfTimer} == 1 ? 4 : $$self{SingleFrame} == 0 ? 5 : $val',    #map single frame and timer to a unique values for PrintConv.  Activate when SelfTimer tag is clarified for cameras other than Z7II fw 1.40
+        ValueConv => '$$self{SingleFrame} == 0 ? 5 : $val',    #map single frame to a unique value for PrintConv
+        PrintConv => \%releaseModeZ7,
+    },
     160 => {
         Name => 'IntervalDurationHours',
         Format => 'int32u',
@@ -8800,7 +8705,7 @@ my %nikonFocalConversions = (
 %Image::ExifTool::Nikon::MenuSettingsZ9  = (
     %binaryDataAttrs,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    DATAMEMBER => [ 140, 188, 192, 232, 424, 534 ],
+    DATAMEMBER => [ 140, 188, 192, 232, 424, 534, 576 ],
     IS_SUBDIR => [ 799 ],
     NOTES => 'These tags are used by the Z9.',
     #90  ISO
@@ -8814,34 +8719,34 @@ my %nikonFocalConversions = (
         Name => 'Intervals',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingIntervals} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     192 => {
         Name => 'ShotsPerInterval',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingShotsPerInterval} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     #220 NEFCompression      0=> 'Lossless'   1=> 'High Efficiency*'   4=>  'High Efficientcy'
     232 => {
         Name => 'FocusShiftNumberShots',    #1-300
         RawConv => '$$self{FocusShiftNumberShots} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     236 => {
         Name => 'FocusShiftStepWidth',     #1(Narrow) to 10 (Wide)
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     240 => {
         Name => 'FocusShiftInterval',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
         PrintConv => '$val == 1? "1 Second" : sprintf("%.0f Seconds",$val)',
     },
     244 => {
         Name => 'FocusShiftExposureLock',
         Unknown => 1,
         PrintConv => \%offOn,
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     274 => { Name => 'PhotoShootingMenuBank', PrintConv => \%banksZ9 },
     276 => { Name => 'ExtendedMenuBanks',     PrintConv => \%offOn },    #single tag from both Photo & Video menus
@@ -8940,6 +8845,12 @@ my %nikonFocalConversions = (
     556 => { Name => 'SecondarySlotFunction', PrintConv => \%secondarySlotFunctionZ9 },
     572 => { Name => 'DXCropAlert', PrintConv => \%offOn },
     574 => { Name => 'SubjectDetection', PrintConv => \%subjectDetectionZ9 },
+    576 => {
+        Name => 'DynamicAFAreaSize',
+        Condition => '$$self{AFAraMode} = 2',
+        RawConv => '$$self{DynamicAFAreaSize} = $val',
+        PrintConv => \%dynamicAfAreaModesZ9,
+    },
     604 => {
         Name => 'MovieImageArea',
         Unknown => 1,
@@ -8996,16 +8907,16 @@ my %nikonFocalConversions = (
     1565 => { Name => 'SetClockFromLocationData', PrintConv => \%offOn, Unknown => 1 },
     1572 => { Name => 'AirplaneMode',       PrintConv => \%offOn, Unknown => 1 },
     1573 => { Name => 'EmptySlotRelease',   PrintConv => { 0 => 'Disable Release', 1 => 'Enable Release' }, Unknown => 1 },
-    1608 => { Name => 'EnergySavingMode',   PrintConv =>\%offOn,  Unknown => 1 },
+    1608 => { Name => 'EnergySavingMode',   PrintConv => \%offOn, Unknown => 1 },
     1632 => { Name => 'RecordLocationData', PrintConv => \%offOn, Unknown => 1 },
     1636 => { Name => 'USBPowerDelivery',   PrintConv => \%offOn, Unknown => 1 },
     1645 => { Name => 'SensorShield',       PrintConv => { 0 => 'Stays Open', 1 => 'Closes' }, Unknown => 1 },
 );
 
-%Image::ExifTool::Nikon::MenuSettingsZ9Firmware3  = (   #starts at Offset26 + 248
+%Image::ExifTool::Nikon::MenuSettingsZ9v3  = (
     %binaryDataAttrs,
     GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
-    DATAMEMBER => [ 154, 204, 208, 248, 444, 554 ],
+    DATAMEMBER => [ 154, 204, 208, 248, 444, 554, 596 ],
     IS_SUBDIR => [ 847 ],
     NOTES => 'These tags are used by the Z9 firmware 3.00.',
     72 => {
@@ -9022,33 +8933,33 @@ my %nikonFocalConversions = (
         Name => 'Intervals',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingIntervals} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     208 => {
         Name => 'ShotsPerInterval',
         Format => 'int32u',
         RawConv => '$$self{IntervalShootingShotsPerInterval} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     248 => {
         Name => 'FocusShiftNumberShots',    #1-300
         RawConv => '$$self{FocusShiftNumberShots} = $val',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     252 => {
         Name => 'FocusShiftStepWidth',     #1(Narrow) to 10 (Wide)
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     256 => {
         Name => 'FocusShiftInterval',
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
         PrintConv => '$val == 1? "1 Second" : sprintf("%.0f Seconds",$val)',
     },
     260 => {
         Name => 'FocusShiftExposureLock',
         Unknown => 1,
         PrintConv => \%offOn,
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     290 => { Name => 'PhotoShootingMenuBank', PrintConv => \%banksZ9 },
     292 => { Name => 'ExtendedMenuBanks',     PrintConv => \%offOn }, # single tag from both Photo & Video menus
@@ -9134,6 +9045,12 @@ my %nikonFocalConversions = (
     576 => { Name => 'SecondarySlotFunction', PrintConv => \%secondarySlotFunctionZ9 },
     592 => { Name => 'DXCropAlert',           PrintConv => \%offOn },
     594 => { Name => 'SubjectDetection',      PrintConv => \%subjectDetectionZ9 },
+    596 => {
+        Name => 'DynamicAFAreaSize',
+        Condition => '$$self{AFAraMode} = 2',
+        RawConv => '$$self{DynamicAFAreaSize} = $val',
+        PrintConv => \%dynamicAfAreaModesZ9,
+    },
     636 => { Name => 'HighFrequencyFlickerReductionShooting', PrintConv => \%offOn, Unknown => 1 }, # new with firmware 3.0
     646 => {
         Name => 'MovieImageArea',
@@ -9192,7 +9109,7 @@ my %nikonFocalConversions = (
     1613 => { Name => 'SetClockFromLocationData', PrintConv => \%offOn, Unknown => 1 },
     1620 => { Name => 'AirplaneMode',       PrintConv => \%offOn, Unknown => 1 },
     1621 => { Name => 'EmptySlotRelease',   PrintConv => { 0 => 'Disable Release', 1 => 'Enable Release' }, Unknown => 1 },
-    1656 => { Name => 'EnergySavingMode',   PrintConv =>\%offOn,  Unknown => 1 },
+    1656 => { Name => 'EnergySavingMode',   PrintConv => \%offOn, Unknown => 1 },
     1680 => { Name => 'RecordLocationData', PrintConv => \%offOn, Unknown => 1 },
     1684 => { Name => 'USBPowerDelivery',   PrintConv => \%offOn, Unknown => 1 },
     1693 => { Name => 'SensorShield',       PrintConv => { 0 => 'Stays Open', 1 => 'Closes' }, Unknown => 1 },
@@ -9200,7 +9117,7 @@ my %nikonFocalConversions = (
         Name => 'FocusShiftAutoReset',
         Unknown => 1,
         PrintConv => \%offOn,
-        Condition => '$$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120 
+        Condition => '$$self{ShutterMode} and $$self{ShutterMode} ne 96 and $$self{FocusShiftShooting} > 0',     #not valid for C30/C60/C120
     },
     1810 => { #CSd4-a
         Name => 'PreReleaseBurstLength',
@@ -11258,8 +11175,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0201',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData01',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11268,8 +11185,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0204',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0204',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11278,8 +11195,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0400',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0400',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11288,8 +11205,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0402',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0402',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11298,8 +11215,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0403',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0403',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11308,8 +11225,8 @@ my %nikonFocalConversions = (
             Name => 'LensData0800',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensData0800',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
                 ByteOrder => 'LittleEndian',
                 # 0x5a0c - NikonMeteringMode for some Z6 ver1.00 samples (ref PH)
@@ -11319,8 +11236,8 @@ my %nikonFocalConversions = (
             Name => 'LensDataUnknown',
             SubDirectory => {
                 TagTable => 'Image::ExifTool::Nikon::LensDataUnknown',
-                ProcessProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
-                WriteProc => \&Image::ExifTool::Nikon::ProcessNikonEncrypted,
+                ProcessProc => \&ProcessNikonEncrypted,
+                WriteProc => \&ProcessNikonEncrypted,
                 DecryptStart => 4,
             },
         },
@@ -11512,6 +11429,7 @@ my %nikonFocalConversions = (
         # construct lens ID string as per ref 11
         ValueConv => 'sprintf("%.2X"." %.2X"x7, @raw)',
         PrintConv => \%nikonLensIDs,
+        PrintInt => 1,
     },
     AutoFocus => {
         Require => {
@@ -11835,37 +11753,54 @@ my @xlat = (
     0xc6,0x67,0x4a,0xf5,0xa5,0x12,0x65,0x7e,0xb0,0xdf,0xaf,0x4e,0xb3,0x61,0x7f,0x2f ]
 );
 
+my ($ci0, $cj0, $ck0, $decryptStart); # decryption parameters
+
 # Decrypt Nikon data block (ref 4)
-# Inputs: 0) reference to data block, 1) serial number key, 2) shutter count key
-#         4) optional start offset (default 0)
-#         5) optional number of bytes to decode (default to the end of the data)
+# Inputs: 0) reference to data block, 1) optional start offset (default 0)
+#         2) optional number of bytes to decode (default to the end of the data)
+#         3) optional serial number key (undef to continue previous decryption)
+#         4) optional shutter count key
 # Returns: data block with specified data decrypted
-sub Decrypt($$$;$$)
+# Notes: The first time this is called for a given encrypted data block the serial/count
+#        keys must be defined, and $start must be the offset for initialization of the
+#        decryption parameters (ie. the beginning of the encrypted data, which isn't
+#        necessarily inside the data block if $len is zero).  Subsequent calls for
+#        the same data block do not specify the serial/count keys, and may be used
+#        to decrypt data at any start point within the full data block.
+sub Decrypt($;$$$$)
 {
-    my ($dataPt, $serial, $count, $start, $len) = @_;
-    my ($i, $dat);
+    my ($dataPt, $start, $len, $serial, $count) = @_;
+    my ($ch, $cj, $ck);
 
     $start or $start = 0;
     my $maxLen = length($$dataPt) - $start;
     $len = $maxLen if not defined $len or $len > $maxLen;
-    return $$dataPt if $len <= 0;
-    my $key = 0;
-    for ($i=0; $i<4; ++$i) {
-        $key ^= ($count >> ($i*8)) & 0xff;
+    if (defined $serial and defined $count) {
+        # initialize decryption parameters
+        my $key = 0;
+        $key ^= ($count >> ($_*8)) & 0xff foreach 0..3;
+        $ci0 = $xlat[0][$serial & 0xff];
+        $cj0 = $xlat[1][$key];
+        $ck0 = 0x60;
+        undef $decryptStart;
     }
-    my $ci = $xlat[0][$serial & 0xff];
-    my $cj = $xlat[1][$key];
-    my $ck = 0x60;
-    my @data = unpack("x${start}C$len", $$dataPt);
-    foreach $dat (@data) {
-        $cj = ($cj + $ci * $ck) & 0xff;
+    if (defined $decryptStart) {
+        # initialize decryption parameters for this start position
+        my $n = $start - $decryptStart;
+        $cj = ($cj0 + $ci0 * ($n * $ck0 + ($n * ($n - 1))/2)) & 0xff;
+        $ck = ($ck0 + $n) & 0xff;
+    } else {
+        $decryptStart = $start;
+        ($cj, $ck) = ($cj0, $ck0);
+    }
+    return $$dataPt if $len <= 0;
+    my @data = unpack('C*', substr($$dataPt, $start, $len));
+    foreach $ch (@data) {
+        $cj = ($cj + $ci0 * $ck) & 0xff;
         $ck = ($ck + 1) & 0xff;
-        $dat ^= $cj;
+        $ch ^= $cj;
     }
-    my $end = $start + $len;
-    my $pre = $start ? substr($$dataPt, 0, $start) : '';
-    my $post = $end < length($$dataPt) ? substr($$dataPt, $end) : '';
-    return $pre . pack('C*',@data) . $post;
+    return substr($$dataPt, 0, $start) . pack('C*', @data) . substr($$dataPt, $start+$len);
 }
 
 #------------------------------------------------------------------------------
@@ -12001,6 +11936,166 @@ sub ProcessNikonMOV($$$)
     return 1;
 }
 
+#------------------------------------------------------------------------------
+# Get offset of end-of-data for a tag
+# Inputs: 0) tag table ref, 1) tag ID, 2) true to not calculate end for a SubDirectory
+# Returns: offset of tag value end, undef if it can't be determined
+sub GetTagEnd($$;$)
+{
+    my ($tagTablePtr, $tagID, $ignoreSubdir) = @_;
+    my $tagInfo = $$tagTablePtr{$tagID};
+    $tagInfo = $$tagInfo[0] if ref $tagInfo eq 'ARRAY';
+    # (can't pre-determine position of offset-based subdirectories)
+    return undef if $ignoreSubdir and $$tagInfo{SubDirectory};
+    my $fmt = $$tagInfo{Format} || $$tagTablePtr{FORMAT} || 'int8u';
+    my $nm = $fmt =~ s/\[(\d+)\]$// ? $1 : 1;
+    my $sz = Image::ExifTool::FormatSize($fmt) or return undef;
+    return int($tagID) + $sz * $nm;
+}
+
+#------------------------------------------------------------------------------
+# Initialize SubDirectory KnownStart/KnownEnd limits of known tags (used in decryption)
+# Inputs: 0) tagInfo ref containing this SubDirectory, 2) tag table ref for encrypted subdir
+# Notes: KnownStart/KnownEnd are relative to the SubDirectory Start.  If KnownStart/KnownEnd
+#        aren't set then the entire data is decrypted, so all of this effort is just for speed.
+sub InitEncryptedSubdir($$)
+{
+    my ($tagInfo, $tagTablePtr) = @_;
+#
+# for encrypted NIKON_OFFSETS tables we loop through all SubDirectory tags in this table
+# and set the KnownEnd for each of these according to the last tag in the child tables
+#
+    my $vars = $$tagTablePtr{VARS};
+    $vars or $vars = $$tagTablePtr{VARS} = { };
+    if ($$vars{NIKON_OFFSETS} and not $$vars{NIKON_INITIALIZED}) {
+        $$vars{NIKON_INITIALIZED} = 1;
+        my $tagID;
+        foreach $tagID (TagTableKeys($tagTablePtr)) {
+            my $tagInfo = $$tagTablePtr{$tagID};
+            next unless ref $tagInfo eq 'HASH';
+            my $subdir = $$tagInfo{SubDirectory} or next;
+            my $tbl = GetTagTable($$subdir{TagTable});
+            my ($last) = sort { $b <=> $a } TagTableKeys($tbl); # (reverse sort)
+            $$subdir{KnownEnd} = GetTagEnd($tbl, $last, 1);
+        }
+    }
+#
+# for other encrypted Nikon tables we set the KnownStart/KnownEnd entries in the
+# SubDirectory of the parent tag
+#
+    unless ($$tagInfo{NikonInitialized}) {
+        $$tagInfo{NikonInitialized} = 1;
+        my $subdir = $$tagInfo{SubDirectory};
+        my $start = $$subdir{DecryptStart} || 0;
+        my $off = $$subdir{DirOffset};
+        my @tagIDs = sort { $a <=> $b } TagTableKeys($tagTablePtr);
+        if (defined $off) {
+            $off += $start; # (DirOffset, if specified, is relative to DecryptStart)
+        } else {
+            # ignore tags that come before the start of encryption
+            shift @tagIDs while @tagIDs and $tagIDs[0] < $start;
+            $off = 0;
+        }
+        if (@tagIDs) {
+            my ($first, $last) = @tagIDs[0,-1];
+            my $lastInfo = $$tagTablePtr{$last};
+            $lastInfo = $$lastInfo[0] if ref $lastInfo eq 'ARRAY';
+            $$subdir{KnownStart} = int($first) + $off if $first + $off > $start;
+            $$subdir{KnownEnd} = GetTagEnd($tagTablePtr, $last);
+            if (defined $$subdir{KnownEnd}) {
+                $$subdir{KnownEnd} += $off;
+            } else {
+                warn "Internal error setting KnownEnd for $$tagTablePtr{SHORT_NAME}\n";
+            }
+        } else {
+            $$subdir{KnownStart} = $$subdir{KnownEnd} = $start;
+        }
+    }
+}
+
+#------------------------------------------------------------------------------
+# Prepare to process NIKON_OFFSETS directory and decrypt necessary data
+# Inputs: 0) ExifTool ref, 1) data ref, 2) tag table ref, 3) decrypt start,
+#         4) decrypt mode (0=piecewise, 1=continuous to end of last known section, 2=all)
+# Returns: end of decrypted data (or undef for piecewise decryption)
+sub PrepareNikonOffsets($$$$$)
+{
+    my ($et, $dataPt, $tagTablePtr, $start, $decryptMode) = @_;
+    my $offset = $$tagTablePtr{VARS}{NIKON_OFFSETS};
+    my $dataLen = length $$dataPt;
+    return undef if $offset + 4 > $dataLen or $offset < $start;
+    my $serial = $$et{NikonSerialKey};
+    my $count = $$et{NikonCountKey};
+    my $dpos = $offset + 4;     # decrypt up to NumberOffsets
+    $$dataPt = Decrypt($dataPt, $start, $dpos - $start, $serial, $count);
+    my $numOffsets = Get32u($dataPt, $offset);
+    my $more = $numOffsets * 4; # more bytes to decrypt entire offsets table
+    return undef if $offset + 4 + $more > $dataLen;
+    $$dataPt = Decrypt($dataPt, $dpos, $more);
+    $dpos += $more;
+    my $unknown = $et->Options('Unknown');
+    my ($i, @offInfo, $end);
+    # extract non-zero offsets and create unknown subdirectories if Unknown > 1
+    for ($i=0; $i<$numOffsets; ++$i) {
+        my $pos = $offset + 4 + 4 * $i;
+        my $off = Get32u($dataPt, $pos) or next;
+        my $tagInfo = $$tagTablePtr{$pos};
+        my $known = 0;
+        if ($tagInfo) {
+            $known = 1 if ref $tagInfo ne 'HASH' or not $$tagInfo{Unknown};
+        } elsif ($unknown > 1) {
+            # create new table for unknown information
+            my $tbl = sprintf('Image::ExifTool::Nikon::UnknownInfo%.2x', $pos);
+            no strict 'refs';
+            unless (%$tbl) {
+                %$tbl = ( %binaryDataAttrs, GROUPS => { 0=>'MakerNotes', 2=>'Unknown' } );
+                GetTagTable($tbl);
+            }
+            # add unknown entry in offset table for this subdirectory
+            $tagInfo = AddTagToTable($tagTablePtr, $pos, {
+                Name => sprintf('UnknownOffset%.2x', $pos),
+                Format => 'int32u',
+                SubDirectory => { TagTable => $tbl },
+                Unknown => 2,
+            });
+        }
+        push @offInfo, [ $pos, $off, $known ];  # save parameters for non-zero offsets
+    }
+    # sort offsets in ascending order, and use the differences to calculate
+    # directory lengths and update the SubDirectory DirLen's accordingly
+    my @sorted = sort { $$a[1] <=> $$b[1] or $$a[0] <=> $$b[0] } @offInfo;
+    push @sorted, [ 0, length($$dataPt), 0 ];
+    for ($i=0; $i<@sorted-1; ++$i) {
+        my $pos = $sorted[$i][0];
+        my $len = $sorted[$i+1][1] - $sorted[$i][1];
+        # set DirLen in SubDirectory entry
+        my $tagInfo = $$tagTablePtr{$pos};
+        my $subdir;
+        $$subdir{DirLen} = $len if ref $tagInfo eq 'HASH' and defined($subdir=$$tagInfo{SubDirectory});
+        if ($decryptMode) {
+            # keep track of end of last known directory
+            $end = $sorted[$i+1][1] if $sorted[$i][2];
+        } elsif ($tagInfo and (ref $tagInfo ne 'HASH' or not $$tagInfo{Unknown})) {
+            # decrypt data piecewise as necessary
+            my $n = $len;
+            if ($subdir and $$subdir{KnownEnd}) {
+                $n = $$subdir{KnownEnd};
+                if ($n > $len) {
+                    $et->Warn("Data too short for $$tagInfo{Name}",1);
+                    $n = $len;
+                }
+            }
+            $$dataPt = Decrypt($dataPt, $sorted[$i][1], $n);
+        }
+    }
+    if ($decryptMode) {
+        # decrypt the remaining required data
+        $end = length $$dataPt if $decryptMode == 2 or not $end or $end < $dpos;
+        $$dataPt = Decrypt($dataPt, $dpos, $end - $dpos);
+    }
+    return $end;
+}
+
 #------------------------------------------------------------------------------
 # Read/Write Nikon Encrypted data block
 # Inputs: 0) ExifTool object ref, 1) dirInfo ref, 2) tag table ref
@@ -12025,15 +12120,17 @@ sub ProcessNikonEncrypted($$$)
         delete $$et{NikonCountKey};
         return 0;
     }
-    my $verbose = $$dirInfo{IsWriting} ? 0 : $et->Options('Verbose');
+    my $oldOrder = GetByteOrder();
+    my $isWriting = $$dirInfo{IsWriting};
+    my $verbose = $isWriting ? 0 : $et->Options('Verbose');
     my $tagInfo = $$dirInfo{TagInfo};
     my $dirStart = $$dirInfo{DirStart};
     my $data = substr(${$$dirInfo{DataPt}}, $dirStart, $$dirInfo{DirLen});
 
-    my ($start, $len, $more, $offset, $byteOrder, $recrypt, $newSerial, $newCount);
+    my ($start, $len, $offset, $recrypt, $newSerial, $newCount, $didDecrypt);
 
     # must re-encrypt when writing if serial number or shutter count changes
-    if ($$dirInfo{IsWriting}) {
+    if ($isWriting) {
         if ($$et{NewNikonSerialKey}) {
             $newSerial = $$et{NewNikonSerialKey};
             $recrypt = 1;
@@ -12044,46 +12141,43 @@ sub ProcessNikonEncrypted($$$)
         }
     }
     if ($tagInfo and $$tagInfo{SubDirectory}) {
-        $start = $$tagInfo{SubDirectory}{DecryptStart};
-        # may decrypt only part of the information to save time
-        if ($verbose < 3 and $et->Options('Unknown') < 2 and not $recrypt) {
-            $len = $$tagInfo{SubDirectory}{DecryptLen};
-            $more = $$tagInfo{SubDirectory}{DecryptMore};
+        # initialize SubDirectory entries used in encryption (KnownStart, KnownEnd)
+        InitEncryptedSubdir($tagInfo, $tagTablePtr);
+        my $subdir = $$tagInfo{SubDirectory};
+        $start = $$subdir{DecryptStart} || 0;
+        # DirOffset, if specified, is the offset to the start of the
+        # directory relative to start of encrypted data
+        $offset = defined $$subdir{DirOffset} ? $$subdir{DirOffset} + $start : 0;
+        # must set byte ordering before calling PrepareNikonOffsets()
+        SetByteOrder($$subdir{ByteOrder}) if $$subdir{ByteOrder};
+        # prepare for processing NIKON_OFFSETS directory if necessary
+        my $unknown = $verbose > 2 || $et->Options('Unknown') > 1;
+        # decrypt mode: 0=piecewise, 1=continuous to end of last known section, 2=all
+        my $dMode = $isWriting ? ($recrypt ? 2 : 1) : ($unknown ? 2 : 0);
+        if ($$tagTablePtr{VARS}{NIKON_OFFSETS}) {
+            $len = PrepareNikonOffsets($et, \$data, $tagTablePtr, $start, $dMode);
+            $didDecrypt = 1;
+        } elsif ($dMode < 2) {
+            if ($dMode == 0 and $$subdir{KnownStart}) {
+                # initialize decryption parameters for address DecryptStart address
+                Decrypt(\$data, $start, 0, $serial, $count);
+                # reset serial/count keys so we don't re-initialize below
+                undef $serial;
+                undef $count;
+                # change decryption start to skip unnecessary data
+                $start = $$subdir{KnownStart};
+            }
+            $len = $$subdir{KnownEnd} - $start if $$subdir{KnownEnd};
         }
-        $offset = $$tagInfo{SubDirectory}{DirOffset};
-        $byteOrder = $$tagInfo{SubDirectory}{ByteOrder};
-    }
-    $start or $start = 0;
-    if (defined $offset) {
-        # offset, if specified, is relative to start of encrypted data
-        $offset += $start;
     } else {
-        $offset = 0;
+        $start = $offset = 0;
     }
     my $maxLen = length($data) - $start;
-    # decrypt all the data unless DecryptLen is given
-    unless ($len and $len < $maxLen) {
-        $len = $maxLen;
-        undef $more;    # (can't decrypt more than this)
-    }
+    # decrypt all the data unless the length was specified
+    $len = $maxLen unless $len and $len < $maxLen;
 
-    $data = Decrypt(\$data, $serial, $count, $start, $len);
+    $data = Decrypt(\$data, $start, $len, $serial, $count) unless $didDecrypt;
 
-    # set appropriate byte ordering before evaluating DecryptMore
-    my $oldOrder = GetByteOrder();
-    SetByteOrder($byteOrder) if $byteOrder;
-
-    if ($more) {
-        #### eval DecryptMore ($data)
-        my $moreLen = eval $more;
-        $moreLen = $maxLen if $moreLen > $maxLen;
-        # re-decrypt with new length
-        if ($len < $moreLen) {
-            $len = $moreLen;
-            $data = substr(${$$dirInfo{DataPt}}, $dirStart, $$dirInfo{DirLen});
-            $data = Decrypt(\$data, $serial, $count, $start, $len);
-        }
-    }
     if ($verbose > 2) {
         $et->VerboseDir("Decrypted $$tagInfo{Name}");
         $et->VerboseDump(\$data,
@@ -12102,7 +12196,7 @@ sub ProcessNikonEncrypted($$$)
         Base     => $$dirInfo{Base},
     );
     my $rtnVal;
-    if ($$dirInfo{IsWriting}) {
+    if ($isWriting) {
         my $changed = $$et{CHANGED};
         $rtnVal = $et->WriteBinaryData(\%subdirInfo, $tagTablePtr);
         # must re-encrypt if serial number or shutter count changes
@@ -12117,7 +12211,8 @@ sub ProcessNikonEncrypted($$$)
             # add back any un-encrypted data at start
             $rtnVal = substr($data, 0, $offset) . $rtnVal if $offset;
             # re-encrypt data (symmetrical algorithm)
-            $rtnVal = Decrypt(\$rtnVal, $serial, $count, $start, $len);
+            $rtnVal = Decrypt(\$rtnVal, $start, $len, $serial, $count);
+            $et->VPrint(2, $$et{INDENT}, "  [recrypted $$tagInfo{Name}]");
         }
     } else {
         $rtnVal = $et->ProcessBinaryData(\%subdirInfo, $tagTablePtr);