CapstoneDelphi下载CapstoneDelphi源代码下载

CapstoneDelphi

Delphi源码

Version 5.0.1

下载

Capstonedelphi

Capstonedelphi是Capstone拆卸器库的Delphi且免费的Pascal绑定。它支持Capstone 5，并提供了一种友好而简单的类型安全性API，该API非常容易学习，并且很快就可以拿起。

Capstone是一个拆卸框架，其目标是成为安全界二进制分析和逆转的最终障碍引擎。

特征

Supports Capstone 5 multiple hardware architectures: ARM, AArch64, Alpha, BPF, Ethereum VM, HP PA-RISC (HPPA), M68K, M680X, Mips, MOS65XX, PPC, RISC-V(rv32G/rv64G), SH, Sparc, SystemZ, TMS320C64X, TriCore, Webassembly, XCore and x86（16，32，64）。
支持Delphi Xe2及更大的支持，以及FPC 3及更大。
提供友好，类型的安全且易于学习的API。

安装：手册

要安装Capstonedelphi绑定，请按照以下步骤：

克隆存储库：

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

将Capstonedelphi source目录添加到项目或IDE的搜索路径中。
确保系统上安装了Capstone 5库。您可以从PYPI，Anaconda，Archlinuxarm等更新预编译的Capstone 5.0.1二进制库。

安装：Delphinus-Support

现在，应在Delphinus软件包管理器中列出Capstonedelphi。

通过Delphinus安装后，请确保重新启动Delphi，否则在您的测试项目中可能找不到单元。

用法

其中包括Capstone.pas中的包装纸类TCapstone 。示例Bellow是不完整的，但它可能会给您留下深刻的印象。

 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 .