CapstoneDelphi

Capstonedelphi

Capstonedelphi est une liaison Delphi et Pascal libre pour la bibliothèque de désassembleur de Capstone. Il prend en charge Capstone 5 et fournit une API sympathique et simple en sécurité de type qui est ridiculement facile à apprendre et rapide à ramasser.

Capstone est un cadre de démontage avec la cible de devenir le moteur Ultimate Disasm pour l'analyse binaire et l'inversion de la communauté de la sécurité.

Caractéristiques

• 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).
• Prend en charge Delphi XE2 et plus, et FPC 3 et plus.
• Fournit une API conviviale, sécurisée et facile à apprendre.

Installation: manuel

Pour installer la liaison CapstoneDelphi, suivez ces étapes:

1. Clone le référentiel:

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

2. Ajoutez le répertoire CapstoneDelphi Source au chemin de recherche du projet ou de l'IDE.

3. Assurez-vous que la bibliothèque Capstone 5 est installée sur votre système. Vous pouvez mettre à jour les bibliothèques binaires précompilées Capstone 5.0.1 de PYPI, Anaconda, Archlinuxarm, etc.

Installation: Support Delphinus

CapstoneDelphi devrait désormais être répertorié dans Delphinus Package Manager.

Assurez-vous de redémarrer Delphi après l'installation via Delphinus, sinon les unités ne se trouvent pas dans vos projets de test.

Usage

Inclus est la classe Wrapper TCapstone dans Capstone.pas . L'exemple ci-dessous est incomplet, mais il peut vous donner une impression de l'utiliser.

 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 .

Pour plus d'exemples basés sur l'API de bas niveau, reportez-vous aux cas de test dans le répertoire des tests.

Documentation

Pour des informations plus détaillées, reportez-vous à la documentation Capstone.

Contributif

Les contributions sont les bienvenues! Veuillez débarquer ce référentiel et soumettre des demandes de traction avec vos améliorations.

Licence

Ce projet est autorisé en vertu de la Mozilla Public License 2.0. Voir le fichier de licence pour plus de détails.

Remerciements

Un merci spécial à l'équipe de développement de Capstone pour la création et le maintien du cadre de démontage de Capstone.