Updating Zydis-Pascal to the latest Zydis version

.gitignore

@@ -1,42 +1,9 @@
-
-# Created by https://www.gitignore.io/api/delphi,freepascal
-
-### Delphi ###
-# Uncomment these types if you want even more clean repository. But be careful.
-# It can make harm to an existing project source. Read explanations below.
-#
-# Resource files are binaries containing manifest, project icon and version info.
-# They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
-#*.res
-#
-# Type library file (binary). In old Delphi versions it should be stored.
-# Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
-#*.tlb
-#
-# Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
-# Uncomment this if you are not using diagrams or use newer Delphi version.
-#*.ddp
-#
-# Visual LiveBindings file. Added in Delphi XE2.
-# Uncomment this if you are not using LiveBindings Designer.
-#*.vlb
-#
-# Deployment Manager configuration file for your project. Added in Delphi XE2.
-# Uncomment this if it is not mobile development and you do not use remote debug feature.
-#*.deployproj
-# 
-# C++ object files produced when C/C++ Output file generation is configured.
-# Uncomment this if you are not using external objects (zlib library for example).
-#*.obj
-#
+*.dSYM
 
 # Delphi compiler-generated binaries (safe to delete)
-*.exe
-*.dll
 *.bpl
 *.bpi
 *.dcp
-*.so
 *.apk
 *.drc
 *.map
@@ -45,9 +12,12 @@
 *.tds
 *.dcu
 *.lib
-*.a
 *.o
 *.ocx
+*.zip
+*.exe
+*.dbg
+*.res
 
 # Delphi autogenerated files (duplicated info)
 *.cfg
@@ -61,25 +31,18 @@
 *.tvsconfig
 *.dsk
 
-# Delphi history and backups
+# Delphi history , Build and backups
+lib
+backup
 __history/
 __recovery/
 *.~*
 
 # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
 *.stat
+*.bak
 
-### FreePascal ###
-*.lps
-*.compiled
-*.[oa]
-*.ppu
-*.rst
-*.cgi
-*.log
-*.bak*
-fp.ini
-fp.cfg
-fp.dsk
-
-# End of https://www.gitignore.io/api/delphi,freepascal
+# Linux binraies 
+Examples/EncodeFromScratch
+Examples/disassemblesimple
+Examples/Disassembler

Examples/DisassembleSimple.dpr

@@ -0,0 +1,46 @@
+{
+  Zydis DisassembleSimple Example By Coldzer0
+}
+program DisassembleSimple;
+
+{$IFDEF FPC}
+  {$mode Delphi}{$H+}{$J-}
+{$ENDIF}
+{$IfDef MSWINDOWS}
+  {$APPTYPE CONSOLE}
+{$EndIf}
+
+uses
+  SysUtils,
+  Zydis.Apis,
+  Zydis.Enums,
+  Zydis.Types,
+  Zydis.Status,
+  Zydis.Disassembler.Types;
+
+var
+  offset : ZyanUSize;
+  runtime_address: ZyanU64;
+  instruction : TZydisDisassembledInstruction;
+  Data: array[0..24] of ZyanU8 = ($51, $8D, $45, $FF, $50, $FF,
+    $75, $0C, $FF, $75, $08, $FF, $15, $A0, $A5, $48, $76, $85, $C0,
+    $0F, $88, $FC, $DA, $02, $00);
+
+{$R *.res}
+
+begin
+  offset := 0;
+  runtime_address := $007FFFFFFF400000;
+
+  Initialize(instruction);
+  // Loop over the instructions in our buffer.
+  while ZYAN_SUCCESS(ZydisDisassembleIntel(ZYDIS_MACHINE_MODE_LONG_64,
+      runtime_address, @data[offset], SizeOf(data) - offset, instruction)) do
+  begin
+    WriteLn(Format('%.16X  %s', [runtime_address, UTF8ToString(instruction.text)]));
+    inc(offset, instruction.info.length);
+    inc(runtime_address, instruction.info.length);
+  end;
+
+  ReadLn;
+end.