Download de CapstoneDelphi - CapstoneDelphi Download de código fonte

CapstoneDelphi

Código fonte Delphi

Version 5.0.1

Baixar

Capstonedelphi

Capstonedelphi é uma ligação Pascal Delphi e Grátis para a Biblioteca de Desmontagem Capstone. Ele suporta o Capstone 5 e fornece uma API amigável e simples segura de tipo que é ridiculamente fácil de aprender e rápida de pegar.

A Capstone é uma estrutura de desmontagem, com o alvo de se tornar o melhor mecanismo de DISMASM para análise binária e reversão na comunidade de segurança.

Características

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).
Suporta Delphi Xe2 e maior e FPC 3 e maior.
Fornece uma API amigável, segura de tipo e fácil de aprender.

Instalação: manual

Para instalar a ligação de capstonelphi, siga estas etapas:

Clone o repositório:

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

Adicione o diretório de origem Capstonedelphi ao projeto ou o caminho de pesquisa do IDE.
Certifique -se de ter a biblioteca Capstone 5 instalada no seu sistema. Você pode atualizar as bibliotecas binárias Capstone 5.0.1 pré -compiladas de Pypi, Anaconda, Archlinuxarm, etc.

Instalação: Delphinus-suport

O capstonedelphi agora deve estar listado no Delphinus Package Manager.

Certifique -se de reiniciar o Delphi após a instalação do Via Delphinus, caso contrário, as unidades não poderão ser encontradas em seus projetos de teste.

Uso

Incluído está o wrapper Class TCapstone em Capstone.pas . O exemplo abaixo é incompleto, mas pode dar uma impressão de como usá -lo.

 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 .