Скачать CapstoneDelphi - скачать исходный код CapstoneDelphi

CapstoneDelphi

Исходный код Делфи

Version 5.0.1

Скачать

Capstodedelphi

CapstoNeLphi - это Delphi и свободное связывание Pascal для библиотеки Capstone Disasssembler. Он поддерживает Capstone 5 и обеспечивает дружеский и простой API, безопасный для типа, который смехотворно легко выучить и быстро забрать.

Capstone - это рамка разборки с целью стать конечным двигателем Disasm для бинарного анализа и обращения в сообществе безопасности.

Функции

Поддерживает Capstone 5 Несколько аппаратных архитектур: ARM, AARCH64, Alpha, BPF, Ethereum VM, HP PA-RISC (HPPA), M68K, M680X, MIPS, MOS65XX, PPC, RISC-V (RV32G/RV64G), SH, SPARC, Systemz, TMMS320C64X, TRICORORER, TRICORORER, TRICORORER, TRICORORER, TRICARSLOR, TRICASLOR, SPARC, System (16, 32, 64).
Поддерживает Delphi XE2 и больше, а также FPC 3 и больше.
Предоставляет дружелюбное, безопасное для типов и простой для изучения API.

Установка: Руководство

Чтобы установить связывание CapstoNeLphi, выполните следующие действия:

Клонировать репозиторий:

git clone https://github.com/delphilite/CapstoneDelphi.git

Добавьте каталог CapstoNeLphi Source в проект или путь поиска IDE.
Убедитесь, что в вашей системе установлена библиотека Capstone 5. Вы можете обновить предварительно скомпилированные двойные библиотеки Capstone 5.0.1 из PYPI, Anaconda, Archlinuxarm и т. Д.

Установка: Delphinus-поддержка

CapstodeNelphi теперь должен быть указан в Delphinus Package Manager.

Обязательно перезапустите Delphi после установки через Delphinus, иначе единицы не могут быть найдены в ваших тестовых проектах.

Использование

Включен в комплект TCapstone Class Class в Capstone.pas . Пример реже является неполным, но он может создать впечатление, как его использовать.

 uses
  SysUtils, Capstone;

procedure DisAsmFunctionCode ( const AFunc: Pointer; ASize: Integer = - 1 );
var
  aInsn: TCsInsn;
  disasm: TCapstone;
  nAddr: UInt64;
  nSize: NativeUInt;
begin
  if ASize < 0 then
    nSize := MaxInt
  else nSize := ASize;
  disasm := TCapstone.Create;
  with disasm do
  try
{ $IFDEF CPUX64 }
    Mode := [csm64];
{ $ELSE }
    Mode := [csm32];
{ $ENDIF }
    Arch := csaX86;
    nAddr := UInt64(AFunc);
    if Open(AFunc, nSize) then
      while GetNext(nAddr, aInsn) do
    begin
      WriteLn(aInsn.ToString);
      if (ASize < 0 ) and (aInsn.mnemonic = ' ret ' ) then
        Break;
    end ;
  finally
    Free;
  end ;
end ;

begin
  try
    WriteLn(Format( ' Capstone Engine: v%s(%s), DisAsm ExpandFileNameCase ... ' , [TCapstone.LibraryVersion, TCapstone.EngineVersion]));
    WriteLn( ' ' );
    DisAsmFunctionCode(@SysUtils.ExpandFileNameCase);
    WriteLn( ' ' );
    WriteLn( ' Done. ' );
    ReadLn;
  except
    on E: Exception do
      WriteLn(Format( ' Error Decompiler: %s ' , [E.Message]));
  end ;
end .