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/ZipAnalizer2/ZipAnalizer2.dpr
+++ b/prereq/fwzip/Demos/ZipAnalizer2/ZipAnalizer2.dpr
@@ -0,0 +1,13 @@
+program ZipAnalizer2;
+
+uses
+  Forms,
+  uZipAnalizer2 in 'uZipAnalizer2.pas' {dlgZipAnalizer};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TdlgZipAnalizer, dlgZipAnalizer);
+  Application.Run;
+end.
--- a/prereq/fwzip/Demos/ZipAnalizer2/ZipAnalizer2.dproj
+++ b/prereq/fwzip/Demos/ZipAnalizer2/ZipAnalizer2.dproj
@@ -0,0 +1,148 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{59E61B6B-6187-41F8-947A-693BE9101356}</ProjectGuid>
+        <MainSource>ZipAnalizer2.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="uZipAnalizer2.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">ZipAnalizer2.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/ZipAnalizer2/ZipAnalizer_Icon.ico
+++ b/prereq/fwzip/Demos/ZipAnalizer2/ZipAnalizer_Icon.ico
--- a/prereq/fwzip/Demos/ZipAnalizer2/uZipAnalizer2.dfm
+++ b/prereq/fwzip/Demos/ZipAnalizer2/uZipAnalizer2.dfm
@@ -0,0 +1,103 @@
+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
+  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/ZipAnalizer2/uZipAnalizer2.pas
+++ b/prereq/fwzip/Demos/ZipAnalizer2/uZipAnalizer2.pas
@@ -0,0 +1,555 @@
+////////////////////////////////////////////////////////////////////////////////
+//
+//  ****************************************************************************
+//  * Project   : FWZip - ZipAnalizer2
+//  * Unit Name : uZipAnalizer2
+//  * Purpose   : <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+//  * 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 uZipAnalizer2;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus,
+  FWZipConsts;
+
+type
+  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 mnuSaveClick(Sender: TObject);
+    procedure PopupMenuPopup(Sender: TObject);
+  private
+    procedure Log(const Value: string);
+    procedure Scan(const Value: string);
+    function FindSing(Stream: TStream): DWORD;
+    procedure ShowLocalFileHeader(Stream: TStream);
+    procedure ShowDataDescryptor(Stream: TStream);
+    procedure ShowCentralFileHeader(Stream: TStream);
+    procedure ShowExtraFields(Stream: TStream; Size: Integer;
+      FileHeader: TCentralDirectoryFileHeader);
+    procedure ShowZip64(Stream: TStream);
+    procedure ShowZip64Locator(Stream: TStream);
+    procedure ShowEndOfCentralDir(Stream: TStream);
+    procedure LoadStringValue(Stream: TStream; var Value: string;
+      nSize: Cardinal; UTF: Boolean);
+  end;
+
+var
+  dlgZipAnalizer: TdlgZipAnalizer;
+
+implementation
+
+const
+  Delim = '===================================================================';
+
+{$R *.dfm}
+
+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;
+
+procedure TdlgZipAnalizer.btnAnalizeClick(Sender: TObject);
+begin
+  edReport.Lines.BeginUpdate;
+  try
+    edReport.Clear;
+    Log(edPath.Text);
+    Log(Delim);
+    Scan(edPath.Text);
+    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.edPathChange(Sender: TObject);
+begin
+  btnAnalize.Enabled := FileExists(edPath.Text);
+end;
+
+function TdlgZipAnalizer.FindSing(Stream: TStream): DWORD;
+const
+  KnownSigns: array [0..5] of DWORD = (
+    LOCAL_FILE_HEADER_SIGNATURE,
+    DATA_DESCRIPTOR_SIGNATURE,
+    CENTRAL_FILE_HEADER_SIGNATURE,
+    ZIP64_END_OF_CENTRAL_DIR_SIGNATURE,
+    ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE,
+    END_OF_CENTRAL_DIR_SIGNATURE
+  );
+
+  function CalcLen: Integer;
+  begin
+    Result := Stream.Size - Stream.Position;
+    if Result > 1024 then
+      Result := 1024;
+  end;
+
+var
+  pBuff, pCursor: PByte;
+  I, A, Len: Integer;
+  OldPosition: Int64;
+begin
+  Result := 0;
+  GetMem(pBuff, 1024);
+  try
+    Len := CalcLen;
+    while (Result = 0) and (Len > 4) do
+    begin
+      OldPosition := Stream.Position;
+      Stream.ReadBuffer(pBuff^, Len);
+      pCursor := pBuff;
+      for I := 0 to Len - 4 do
+      begin
+        for A := 0 to 5 do
+          if PDWORD(pCursor)^ = KnownSigns[A] then
+          begin
+            Result := KnownSigns[A];
+            Break;
+          end;
+        if Result = 0 then
+          Inc(pCursor)
+        else
+        begin
+          Stream.Position := OldPosition + I;
+          Break;
+        end;
+      end;
+      if Result = 0 then
+      begin
+        Len := CalcLen;
+        if Len > 0 then
+          Stream.Position := Stream.Position - 4;
+      end;
+    end;
+  finally
+    FreeMem(pBuff);
+  end;
+end;
+
+procedure TdlgZipAnalizer.FormCreate(Sender: TObject);
+begin
+  edReport.PlainText := True;
+end;
+
+procedure TdlgZipAnalizer.LoadStringValue(Stream: TStream;
+  var Value: string; nSize: Cardinal; UTF: Boolean);
+var
+  aString: AnsiString;
+begin
+  if Integer(nSize) > 0 then
+  begin
+    SetLength(aString, nSize);
+    Stream.ReadBuffer(aString[1], nSize);
+    if UTF then
+    begin
+      {$IFDEF UNICODE}
+      Value := string(UTF8ToUnicodeString(aString))
+      {$ELSE}
+      Value := string(UTF8Decode(aString));
+      Value := StringReplace(Value, '?', '_', [rfReplaceAll]);
+      {$ENDIF}
+    end
+    else
+    begin
+      OemToAnsi(@aString[1], @aString[1]);
+      Value := string(aString);
+    end;
+  end;
+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.PopupMenuPopup(Sender: TObject);
+begin
+  mnuSave.Enabled := edReport.Lines.Count > 1;
+end;
+
+procedure TdlgZipAnalizer.Scan(const Value: string);
+var
+  F: TFileStream;
+  Sign: DWORD;
+begin
+  F := TFileStream.Create(Value, fmOpenRead or fmShareDenyWrite);
+  try
+    Sign := FindSing(F);
+    while Sign <> 0 do
+    begin
+      case Sign of
+        LOCAL_FILE_HEADER_SIGNATURE: ShowLocalFileHeader(F);
+        DATA_DESCRIPTOR_SIGNATURE: ShowDataDescryptor(F);
+        CENTRAL_FILE_HEADER_SIGNATURE: ShowCentralFileHeader(F);
+        ZIP64_END_OF_CENTRAL_DIR_SIGNATURE: ShowZip64(F);
+        ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE: ShowZip64Locator(F);
+        END_OF_CENTRAL_DIR_SIGNATURE: ShowEndOfCentralDir(F);
+      end;
+      Sign := FindSing(F);
+    end;
+  finally
+    F.Free;
+  end;
+end;
+
+procedure TdlgZipAnalizer.ShowCentralFileHeader(Stream: TStream);
+var
+  Data: TCentralDirectoryFileHeader;
+  FileName, Comment: string;
+begin
+  Log('CENTRAL_FILE_HEADER_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TCentralDirectoryFileHeader));
+  with Data do
+  begin
+    if CentralFileHeaderSignature <> CENTRAL_FILE_HEADER_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    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]));
+    Log(Format('ExtraFieldLength: %d', [ExtraFieldLength]));
+    Log(Format('FileCommentLength: %d', [FileCommentLength]));
+    Log(Format('DiskNumberStart: %d', [DiskNumberStart]));
+    Log(Format('InternalFileAttributes: %d', [InternalFileAttributes]));
+    Log(Format('ExternalFileAttributes: %d', [ExternalFileAttributes]));
+    Log(Format('RelativeOffsetOfLocalHeader: %d', [RelativeOffsetOfLocalHeader]));
+    LoadStringValue(Stream, FileName, FilenameLength,
+      GeneralPurposeBitFlag and PBF_UTF8 <> 0);
+    Log('>>> FileName: ' + FileName);
+    Log(Delim);
+    ShowExtraFields(Stream, ExtraFieldLength, Data);
+    if FileCommentLength > 0 then
+    begin
+      LoadStringValue(Stream, Comment, FileCommentLength,
+        GeneralPurposeBitFlag and PBF_UTF8 <> 0);
+      Log('>>> FileComment: ' + Comment);
+      Log(Delim);
+    end;
+  end;
+end;
+
+procedure TdlgZipAnalizer.ShowDataDescryptor(Stream: TStream);
+var
+  Data: TDataDescriptor;
+begin
+  Log('DATA_DESCRIPTOR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TDataDescriptor));
+  with Data do
+  begin
+    if DescriptorSignature <> DATA_DESCRIPTOR_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    Log(Format('Crc32: %d', [Crc32]));
+    Log(Format('CompressedSize: %d', [CompressedSize]));
+    Log(Format('UncompressedSize: %d', [UncompressedSize]));
+  end;
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowEndOfCentralDir(Stream: TStream);
+var
+  Data: TEndOfCentralDir;
+  Comment: string;
+begin
+  Log('END_OF_CENTRAL_DIR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TEndOfCentralDir));
+  with Data do
+  begin
+    if EndOfCentralDirSignature <> END_OF_CENTRAL_DIR_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    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
+    begin
+      LoadStringValue(Stream, Comment, ZipfileCommentLength, False);
+      Log(Format('>>> Comment: %s', [Comment]));
+    end;
+  end;
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowExtraFields(Stream: TStream; Size: Integer;
+  FileHeader: TCentralDirectoryFileHeader);
+var
+  Buff, EOFBuff: Pointer;
+  BuffCount: Integer;
+  HeaderID, BlockSize: Word;
+
+  function GetOffset(Value: Integer): Pointer;
+  begin
+    Result := Pointer(Integer(EOFBuff) - Value);
+  end;
+
+  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;
+
+var
+  ExDataStream: TMemoryStream;
+  StartPos: Int64;
+begin
+  if Size = 0 then Exit;
+  StartPos := Stream.Position;
+  Log('EXDATA found at offset: ' + IntToStr(StartPos));
+  Log(Delim);
+  GetMem(Buff, Size);
+  try
+    BuffCount := Size;
+    Stream.ReadBuffer(Buff^, BuffCount);
+    EOFBuff := Pointer(Integer(Buff) + BuffCount);
+    while BuffCount > 0 do
+    begin
+      HeaderID := PWord(GetOffset(BuffCount))^;
+      Dec(BuffCount, 2);
+      BlockSize := PWord(GetOffset(BuffCount))^;
+      Dec(BuffCount, 2);
+      case HeaderID of
+        SUPPORTED_EXDATA_ZIP64:
+        begin
+          Log('SUPPORTED_EXDATA_ZIP64 found at offset: ' +
+            IntToStr(StartPos + Size - BuffCount - 4));
+          if FileHeader.UncompressedSize = MAXDWORD then
+          begin
+            if BuffCount < 8 then Break;
+            Log('UncompressedSize: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
+            Dec(BuffCount, 8);
+            Dec(BlockSize, 8);
+          end;
+          if FileHeader.CompressedSize = MAXDWORD then
+          begin
+            if BuffCount < 8 then Break;
+            Log('CompressedSize: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
+            Dec(BuffCount, 8);
+            Dec(BlockSize, 8);
+          end;
+          if FileHeader.RelativeOffsetOfLocalHeader = MAXDWORD then
+          begin
+            if BuffCount < 8 then Break;
+            Log('RelativeOffsetOfLocalHeader: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
+            Dec(BuffCount, 8);
+            Dec(BlockSize, 8);
+          end;
+          if FileHeader.DiskNumberStart = MAXWORD then
+          begin
+            if BuffCount < 4 then Break;
+            Log('DiskNumberStart: ' + IntToStr(PInt64(GetOffset(BuffCount))^));
+            Dec(BuffCount, 4);
+            Dec(BlockSize, 4);
+          end;
+          Dec(BuffCount, BlockSize);
+          Log(Delim);
+        end;
+
+        SUPPORTED_EXDATA_NTFSTIME:
+        begin
+
+          if BuffCount < 32 then Break;
+          if BlockSize <> 32 then
+          begin
+            Dec(BuffCount, BlockSize);
+            Continue;
+          end;
+          Dec(BuffCount, 4);
+          if PWord(GetOffset(BuffCount))^ <> 1 then
+          begin
+            Dec(BuffCount, BlockSize);
+            Continue;
+          end;
+          Dec(BuffCount, 2);
+          if PWord(GetOffset(BuffCount))^ <> SizeOf(TNTFSFileTime) then
+          begin
+            Dec(BuffCount, BlockSize);
+            Continue;
+          end;
+          Dec(BuffCount, 2);
+
+          Log('SUPPORTED_EXDATA_NTFSTIME found at offset: ' +
+            IntToStr(StartPos + Size - BuffCount - 12));
+          Log(Delim);
+
+       end;
+      else
+        Log(Format('UNKNOWN EXDATA TAG %d found at offset: %d',
+          [HeaderID, StartPos + Size - BuffCount - 8]));
+        ExDataStream := TMemoryStream.Create;
+        try
+          ExDataStream.WriteBuffer(GetOffset(BuffCount)^, BlockSize);
+          ExDataStream.Position := 0;
+          Log(ByteToStr(ExDataStream.Memory, ExDataStream.Size));
+        finally
+          ExDataStream.Free;
+        end;
+        Log(Delim);
+      end;
+      Dec(BuffCount, BlockSize);
+    end;
+  finally
+    FreeMem(Buff);
+  end;
+end;
+
+procedure TdlgZipAnalizer.ShowLocalFileHeader(Stream: TStream);
+var
+  Data: TLocalFileHeader;
+  FileName: string;
+begin
+  Log('LOCAL_FILE_HEADER_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TLocalFileHeader));
+  with Data do
+  begin
+    if LocalFileHeaderSignature <> LOCAL_FILE_HEADER_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    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]));
+    LoadStringValue(Stream, FileName, FilenameLength,
+      GeneralPurposeBitFlag and PBF_UTF8 <> 0);
+    Log('>>> FileName: ' + FileName);
+    //Stream.Position := Stream.Position + CompressedSize;
+  end;
+  Log(Delim);
+end;
+
+procedure TdlgZipAnalizer.ShowZip64(Stream: TStream);
+var
+  Data: TZip64EOFCentralDirectoryRecord;
+begin
+  Log('ZIP64_END_OF_CENTRAL_DIR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TZip64EOFCentralDirectoryRecord));
+  with Data do
+  begin
+    if Zip64EndOfCentralDirSignature <> ZIP64_END_OF_CENTRAL_DIR_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    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;
+
+procedure TdlgZipAnalizer.ShowZip64Locator(Stream: TStream);
+var
+  Data: TZip64EOFCentralDirectoryLocator;
+begin
+  Log('ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE found at offset: ' + IntToStr(Stream.Position));
+  Stream.ReadBuffer(Data, SizeOf(TZip64EOFCentralDirectoryLocator));
+  with Data do
+  begin
+    if Signature <> ZIP64_END_OF_CENTRAL_DIR_LOCATOR_SIGNATURE then
+      Log('INVALID SIGNATURE!!!!');
+    Log(Format('NumberOfTheDisk: %d', [NumberOfTheDisk]));
+    Log(Format('RelativeOffset: %d', [RelativeOffset]));
+    Log(Format('TotalNumberOfDisks: %d', [TotalNumberOfDisks]));
+  end;
+  Log(Delim);
+end;
+
+end.