20230202

2023-02-02 12:02:14 +03:00
parent 703d2d5a52
commit 8e2f0fdd9c
94 changed files with 25754 additions and 1 deletions
--- a/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer.dpr
+++ b/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer.dpr
@@ -0,0 +1,13 @@
+program ZipAnalizer;
+
+uses
+  Forms,
+  uZipAnalizer in 'uZipAnalizer.pas' {dlgZipAnalizer};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TdlgZipAnalizer, dlgZipAnalizer);
+  Application.Run;
+end.
--- a/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer.dproj
+++ b/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer.dproj
@@ -0,0 +1,148 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{48B210D8-1C88-400C-8596-80BA4942AF52}</ProjectGuid>
+        <MainSource>ZipAnalizer.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Application</AppType>
+        <FrameworkType>VCL</FrameworkType>
+        <ProjectVersion>14.6</ProjectVersion>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_N>false</DCC_N>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_E>false</DCC_E>
+        <VerInfo_Locale>1049</VerInfo_Locale>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=;CFBundleDisplayName=;UIDeviceFamily=;CFBundleIdentifier=;CFBundleVersion=;CFBundlePackageType=;CFBundleSignature=;CFBundleAllowMixedLocalizations=;UISupportedInterfaceOrientations=;CFBundleExecutable=;CFBundleResourceSpecification=;LSRequiresIPhoneOS=;CFBundleInfoDictionaryVersion=;CFBundleDevelopmentRegion=</VerInfo_Keys>
+        <DCC_S>false</DCC_S>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Icon_MainIcon>ZipAnalizer_Icon.ico</Icon_MainIcon>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <Icon_MainIcon>ZipAnalizer_Icon.ico</Icon_MainIcon>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_DebugInformation>false</DCC_DebugInformation>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_Optimize>false</DCC_Optimize>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="uZipAnalizer.pas">
+            <Form>dlgZipAnalizer</Form>
+        </DCCReference>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">ZipAnalizer.dpr</Source>
+                </Source>
+                <VersionInfo>
+                    <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+                    <VersionInfo Name="MajorVer">1</VersionInfo>
+                    <VersionInfo Name="MinorVer">0</VersionInfo>
+                    <VersionInfo Name="Release">0</VersionInfo>
+                    <VersionInfo Name="Build">0</VersionInfo>
+                    <VersionInfo Name="Debug">False</VersionInfo>
+                    <VersionInfo Name="PreRelease">False</VersionInfo>
+                    <VersionInfo Name="Special">False</VersionInfo>
+                    <VersionInfo Name="Private">False</VersionInfo>
+                    <VersionInfo Name="DLL">False</VersionInfo>
+                    <VersionInfo Name="Locale">1049</VersionInfo>
+                    <VersionInfo Name="CodePage">1251</VersionInfo>
+                </VersionInfo>
+                <VersionInfoKeys>
+                    <VersionInfoKeys Name="CompanyName"/>
+                    <VersionInfoKeys Name="FileDescription"/>
+                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="InternalName"/>
+                    <VersionInfoKeys Name="LegalCopyright"/>
+                    <VersionInfoKeys Name="LegalTrademarks"/>
+                    <VersionInfoKeys Name="OriginalFilename"/>
+                    <VersionInfoKeys Name="ProductName"/>
+                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="Comments"/>
+                    <VersionInfoKeys Name="CFBundleName"/>
+                    <VersionInfoKeys Name="CFBundleDisplayName"/>
+                    <VersionInfoKeys Name="UIDeviceFamily"/>
+                    <VersionInfoKeys Name="CFBundleIdentifier"/>
+                    <VersionInfoKeys Name="CFBundleVersion"/>
+                    <VersionInfoKeys Name="CFBundlePackageType"/>
+                    <VersionInfoKeys Name="CFBundleSignature"/>
+                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
+                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
+                    <VersionInfoKeys Name="CFBundleExecutable"/>
+                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
+                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
+                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
+                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
+                </VersionInfoKeys>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>
--- a/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer_Icon.ico
+++ b/prereq/fwzip/Demos/ZipAnalizer/ZipAnalizer_Icon.ico
--- a/prereq/fwzip/Demos/ZipAnalizer/uZipAnalizer.dfm
+++ b/prereq/fwzip/Demos/ZipAnalizer/uZipAnalizer.dfm
@@ -0,0 +1,104 @@
+object dlgZipAnalizer: TdlgZipAnalizer
+  Left = 301
+  Top = 184
+  Caption = #1042#1099#1074#1086#1076' '#1087#1072#1088#1072#1084#1077#1090#1088#1086#1074' ZIP '#1072#1088#1093#1080#1074#1072
+  ClientHeight = 300
+  ClientWidth = 685
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  DesignSize = (
+    685
+    300)
+  PixelsPerInch = 96
+  TextHeight = 13
+  object edPath: TLabeledEdit
+    Left = 8
+    Top = 24
+    Width = 550
+    Height = 21
+    Anchors = [akLeft, akTop, akRight]
+    EditLabel.Width = 124
+    EditLabel.Height = 13
+    EditLabel.Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1091#1090#1100' '#1082' '#1072#1088#1093#1080#1074#1091':'
+    TabOrder = 0
+    OnChange = edPathChange
+  end
+  object btnBrowse: TButton
+    Left = 560
+    Top = 22
+    Width = 25
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = '...'
+    TabOrder = 1
+    OnClick = btnBrowseClick
+  end
+  object btnAnalize: TButton
+    Left = 591
+    Top = 22
+    Width = 75
+    Height = 25
+    Anchors = [akTop, akRight]
+    Caption = #1057#1090#1072#1088#1090
+    Enabled = False
+    TabOrder = 2
+    OnClick = btnAnalizeClick
+  end
+  object GroupBox: TGroupBox
+    Left = 8
+    Top = 56
+    Width = 669
+    Height = 233
+    Anchors = [akLeft, akTop, akRight, akBottom]
+    Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1072#1088#1093#1080#1074#1072':'
+    TabOrder = 3
+    object edReport: TRichEdit
+      Left = 2
+      Top = 15
+      Width = 665
+      Height = 216
+      Align = alClient
+      Font.Charset = RUSSIAN_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      PopupMenu = PopupMenu
+      ReadOnly = True
+      ScrollBars = ssBoth
+      TabOrder = 0
+    end
+  end
+  object OpenDialog: TOpenDialog
+    DefaultExt = 'zip'
+    Filter = 'ZIP '#1072#1088#1093#1080#1074#1099' (*.zip)|*.zip|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
+    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
+    Left = 48
+    Top = 88
+  end
+  object PopupMenu: TPopupMenu
+    OnPopup = PopupMenuPopup
+    Left = 120
+    Top = 88
+    object mnuSave: TMenuItem
+      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100'...'
+      ShortCut = 16467
+      OnClick = mnuSaveClick
+    end
+  end
+  object SaveDialog: TSaveDialog
+    DefaultExt = 'txt'
+    Filter = #1058#1077#1082#1089#1090#1086#1074#1099#1077' '#1092#1072#1081#1083#1099' (*.txt)|*.txt|'#1042#1089#1077' '#1092#1072#1081#1083#1099' (*.*)|*.*'
+    Left = 208
+    Top = 88
+  end
+end
--- a/prereq/fwzip/Demos/ZipAnalizer/uZipAnalizer.pas
+++ b/prereq/fwzip/Demos/ZipAnalizer/uZipAnalizer.pas
@@ -0,0 +1,351 @@
+////////////////////////////////////////////////////////////////////////////////
+//
+//  ****************************************************************************
+//  * Project   : FWZip - ZipAnalizer
+//  * Unit Name : uZipAnalizer
+//  * Purpose   : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FWZipReader
+//  * Author    : <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Rouse_) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+//  * Copyright : <20> Fangorn Wizards Lab 1998 - 2013.
+//  * Version   : 1.0.10
+//  * Home Page : http://rouse.drkb.ru
+//  * Home Blog : http://alexander-bagel.blogspot.ru
+//  ****************************************************************************
+//  * Stable Release : http://rouse.drkb.ru/components.php#fwzip
+//  * Latest Source  : https://github.com/AlexanderBagel/FWZip
+//  ****************************************************************************
+//
+//  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:
+//  ftp://ftp.info-zip.org/pub/infozip/doc/appnote-iz-latest.zip
+//  http://zlib.net/zlib-1.2.5.tar.gz
+//  http://www.base2ti.com/
+//
+
+unit uZipAnalizer;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus,
+  FWZipReader, FWZipConsts;
+
+type
+  TFWZipReaderFriendly = class(TFWZipReader);
+  TFWZipReaderItemFriendly = class(TFWZipReaderItem);
+  TExDataRecord = record
+    Index: Integer;
+    Tag: Word;
+    Stream: TMemoryStream;
+  end;
+  TExDataRecords = array of TExDataRecord;
+
+  TdlgZipAnalizer = class(TForm)
+    edPath: TLabeledEdit;
+    btnBrowse: TButton;
+    btnAnalize: TButton;
+    GroupBox: TGroupBox;
+    edReport: TRichEdit;
+    OpenDialog: TOpenDialog;
+    PopupMenu: TPopupMenu;
+    mnuSave: TMenuItem;
+    SaveDialog: TSaveDialog;
+    procedure btnBrowseClick(Sender: TObject);
+    procedure edPathChange(Sender: TObject);
+    procedure btnAnalizeClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure mnuSaveClick(Sender: TObject);
+    procedure PopupMenuPopup(Sender: TObject);
+  private
+    ExDataRecords: TExDataRecords;
+    Zip: TFWZipReaderFriendly;
+    procedure OnLoadExData(Sender: TObject; ItemIndex: Integer;
+      Tag: Word; Data: TStream);
+  private
+    procedure ClearExData;
+    procedure Log(const Value: string);
+    procedure ShowEndOfCentralDir;
+    procedure ShowZip64EOFCentralDirectoryLocator;
+    procedure ShowZip64EOFCentralDirectoryRecord;
+    procedure ShowItemData(Index: Integer);
+  end;
+
+var
+  dlgZipAnalizer: TdlgZipAnalizer;
+
+implementation
+
+const
+  Delim = '===================================================================';
+
+{$R *.dfm}
+
+procedure TdlgZipAnalizer.btnAnalizeClick(Sender: TObject);
+var
+  I: Integer;
+begin
+  edReport.Lines.BeginUpdate;
+  try
+    edReport.Clear;
+    Log(edPath.Text);
+    Log(Delim);
+    ClearExData;
+    Zip.Clear;
+    Zip.LoadFromFile(edPath.Text);
+    ShowEndOfCentralDir;
+    ShowZip64EOFCentralDirectoryLocator;
+    ShowZip64EOFCentralDirectoryRecord;
+    for I := 0 to Zip.Count - 1 do
+      ShowItemData(I);
+    Log('DONE');
+  finally
+    edReport.Lines.EndUpdate;
+  end;
+end;
+
+procedure TdlgZipAnalizer.btnBrowseClick(Sender: TObject);
+begin
+  if OpenDialog.Execute then
+  begin
+    edPath.Text := OpenDialog.FileName;
+    edReport.Clear;
+  end;
+end;
+
+procedure TdlgZipAnalizer.ClearExData;
+var
+  I: Integer;
+begin
+  for I := 0 to Length(ExDataRecords) - 1 do
+    ExDataRecords[I].Stream.Free;
+  SetLength(ExDataRecords, 0);;
+end;
+
+procedure TdlgZipAnalizer.edPathChange(Sender: TObject);
+begin
+  btnAnalize.Enabled := FileExists(edPath.Text);
+end;
+
+procedure TdlgZipAnalizer.FormCreate(Sender: TObject);
+begin
+  Zip := TFWZipReaderFriendly.Create;
+  Zip.OnLoadExData := OnLoadExData;
+  edReport.PlainText := True;
+end;
+
+procedure TdlgZipAnalizer.FormDestroy(Sender: TObject);
+begin
+  ClearExData;
+  Zip.Free;
+end;
+
+procedure TdlgZipAnalizer.Log(const Value: string);
+begin
+  edReport.Lines.Add(Value);
+end;
+
+procedure TdlgZipAnalizer.mnuSaveClick(Sender: TObject);
+begin
+  if SaveDialog.Execute then
+    edReport.Lines.SaveToFile(SaveDialog.FileName);
+end;
+
+procedure TdlgZipAnalizer.OnLoadExData(Sender: TObject; ItemIndex: Integer;
+  Tag: Word; Data: TStream);
+var
+  Count: Integer;
+begin
+  Count := Length(ExDataRecords);
+  SetLength(ExDataRecords, Count + 1);
+  ExDataRecords[Count].Index := ItemIndex;
+  ExDataRecords[Count].Tag := Tag;
+  ExDataRecords[Count].Stream := TMemoryStream.Create;
+  ExDataRecords[Count].Stream.CopyFrom(Data, 0);
+end;
+
+procedure TdlgZipAnalizer.PopupMenuPopup(Sender: TObject);
+begin
+  mnuSave.Enabled := edReport.Lines.Count > 1;
+end;
+
+procedure TdlgZipAnalizer.ShowEndOfCentralDir;
+begin
+  Log('END_OF_CENTRAL_DIR_SIGNATURE found');
+  with Zip.EndOfCentralDir do
+  begin
+    Log(Format('NumberOfThisDisk: %d', [NumberOfThisDisk]));
+    Log(Format('NumberOfTheDiskWithTheStart: %d', [NumberOfTheDiskWithTheStart]));
+    Log(Format('TotalNumberOfEntriesOnThisDisk: %d', [TotalNumberOfEntriesOnThisDisk]));
+    Log(Format('TotalNumberOfEntries: %d', [TotalNumberOfEntries]));
+    Log(Format('SizeOfTheCentralDirectory: %d', [SizeOfTheCentralDirectory]));
+    Log(Format('OffsetOfStartOfCentralDirectory: %d', [OffsetOfStartOfCentralDirectory]));
+    Log(Format('ZipfileCommentLength: %d', [ZipfileCommentLength]));
+    if ZipfileCommentLength > 0 then
+      Log(Format('Comment: %s', [Zip.Comment]));
+  end;
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowItemData(Index: Integer);
+
+  function ByteToStr(Bytes: PByte; Size: Integer): string;
+  const
+    BytesHex: array[0..15] of char =
+      ('0', '1', '2', '3', '4', '5', '6', '7',
+        '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
+  var
+    I: integer;
+  begin
+    SetLength(Result, Size shl 1);
+    for I := 0 to Size - 1 do
+    begin
+      Result[I * 2 + 1] := BytesHex[Bytes^ shr 4];
+      Result[I * 2 + 2] := BytesHex[Bytes^ and $0F];
+      Inc(Bytes);
+    end;
+  end;
+
+  function GPBFToStr(Value: Word): string;
+
+    procedure AddValue(const S: string);
+    begin
+      if Result = '' then
+        Result := S
+      else
+        Result := Result + ', ' + S;
+    end;
+
+  begin
+    if Value = 0 then
+    begin
+      Result := 'EMPTY';
+      Exit;
+    end;
+    if PBF_CRYPTED and Value <> 0 then
+      AddValue('PBF_CRYPTED');
+
+    if PBF_DESCRIPTOR and Value <> 0 then
+      AddValue('PBF_DESCRIPTOR');
+
+    if PBF_UTF8 and Value <> 0 then
+      AddValue('PBF_UTF8');
+
+    if PBF_STRONG_CRYPT and Value <> 0 then
+      AddValue('PBF_STRONG_CRYPT');
+  end;
+
+var
+  I: Integer;
+  Item: TFWZipReaderItemFriendly;
+begin
+  Log('CENTRAL_FILE_HEADER_SIGNATURE found');
+  Item := TFWZipReaderItemFriendly(Zip.Item[Index]);
+  with Item.CentralDirFileHeader do
+  begin
+    Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
+    Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
+    Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
+      GPBFToStr(GeneralPurposeBitFlag)]));
+    Log(Format('CompressionMethod: %d', [CompressionMethod]));
+    Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
+    Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
+    Log(Format('Crc32: %d', [Crc32]));
+    Log(Format('CompressedSize: %d', [CompressedSize]));
+    Log(Format('UncompressedSize: %d', [UncompressedSize]));
+    Log(Format('FilenameLength: %d', [FilenameLength]));
+    if FilenameLength > 0 then
+      Log('>>> FileName: ' + Item.FileName);
+    Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
+    Log(Format('FileCommentLength: %d', [FileCommentLength]));
+    if FileCommentLength > 0 then
+      Log('>>> FileComment: ' + Item.Comment);
+    Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
+    Log(Format('InternalFileAttributes: %d', [InternalFileAttributes]));
+    Log(Format('ExternalFileAttributes: %d', [ExternalFileAttributes]));
+    Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
+  end;
+
+  Log('');
+
+  Item.LoadLocalFileHeader;
+  Log('LOCAL_FILE_HEADER_SIGNATURE found');
+  with Item.LocalFileHeader do
+  begin
+    Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
+    Log(Format('GeneralPurposeBitFlag: %d (%s)', [GeneralPurposeBitFlag,
+      GPBFToStr(GeneralPurposeBitFlag)]));
+    Log(Format('CompressionMethod: %d', [CompressionMethod]));
+    Log(Format('LastModFileTimeTime: %d', [LastModFileTimeTime]));
+    Log(Format('LastModFileTimeDate: %d', [LastModFileTimeDate]));
+    Log(Format('Crc32: %d', [Crc32]));
+    Log(Format('CompressedSize: %d', [CompressedSize]));
+    Log(Format('UncompressedSize: %d', [UncompressedSize]));
+    Log(Format('FilenameLength: %d', [FilenameLength]));
+    Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
+  end;
+
+  if ssZIP64 in Item.PresentStreams then
+  begin
+    Log('');
+    Log('SUPPORTED_EXDATA_ZIP64 found');
+    with Item do
+    begin
+      Log(Format('UncompressedSize: %d', [UncompressedSize]));
+      Log(Format('CompressedSize: %d', [CompressedSize]));
+      Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
+      Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
+    end;
+  end;
+
+  if ssNTFS in Item.PresentStreams then
+  begin
+    Log('');
+    Log('SUPPORTED_EXDATA_NTFSTIME found');
+  end;
+
+  for I := 0 to Length(ExDataRecords) - 1 do
+    if ExDataRecords[I].Index = Index then
+    begin
+      Log('');
+      Log(Format('UNKNOWN TAG (%d) found', [ExDataRecords[I].Tag]));
+      Log(Format('ExData size %d', [ExDataRecords[I].Stream.Size]));
+      Log('ExData dump:');
+      Log(ByteToStr(ExDataRecords[I].Stream.Memory, ExDataRecords[I].Stream.Size));
+    end;
+
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowZip64EOFCentralDirectoryLocator;
+begin
+  with Zip.Zip64EOFCentralDirectoryLocator do
+  begin
+    if Signature <> ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE then Exit;
+    Log('ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE  found');
+    Log(Format('NumberOfTheDisk: %d', [NumberOfTheDisk]));
+    Log(Format('RelativeOffset: %d', [RelativeOffset]));
+    Log(Format('TotalNumberOfDisks: %d', [TotalNumberOfDisks]));
+  end;
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowZip64EOFCentralDirectoryRecord;
+begin
+  with Zip.Zip64EOFCentralDirectoryRecord do
+  begin
+    if Zip64EndOfCentralDirSignature <> ZIP64_END_OF_CENTRAL_DIR_SIGNATURE then Exit;
+    Log('ZIP64_END_OF_CENTRAL_DIR_SIGNATURE  found');
+    Log(Format('SizeOfZip64EOFCentralDirectoryRecord: %d', [SizeOfZip64EOFCentralDirectoryRecord]));
+    Log(Format('VersionMadeBy: %d', [VersionMadeBy]));
+    Log(Format('VersionNeededToExtract: %d', [VersionNeededToExtract]));
+    Log(Format('number of this disk: %d', [Number1]));
+    Log(Format('number of the disk with the start of the central directory: %d', [Number2]));
+    Log(Format('total number of entries in the central directory on this disk: %d', [TotalNumber1]));
+    Log(Format('total number of entries in the central directory: %d', [TotalNumber2]));
+    Log(Format('size of the central directory: %d', [Size]));
+    Log(Format('offset of start of central directory with respect to the starting disk number: %d', [Offset]));
+  end;
+  Log(Delim);
+end;
+
+end.