BeaEngineDelphi

Beaenginedelphi

Beaenginedelphi es un enlace de Pascal Delphi y libre para el Beaengine. Apoya a BeaEngine y proporciona una API de tipo segura de tipo amigable y simple que es ridículamente fácil de aprender y rápidamente para recoger.

BeaEngine es una biblioteca C diseñada para decodificar instrucciones de 16 bits, 32 bits y 64 bits Intel Architectures. Incluye instrucciones estándar establecidas e instrucciones establecidas desde FPU, MMX, SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, VMX, CLMUL, AES, MPX, AVX, AVX2, AVX512 (VEX y EVEX PREFIXES), CET, BMI1, BMI2, SGX, UINTR, KL, TDX, AMX, AMX), TDX, TDX) extensiones. Si desea analizar los códigos maliciosos y los códigos más generalmente ofuscados, Beaengine envía una estructura compleja que describe con precisión las instrucciones analizadas.

Características

• Admite BeaEngine 5, X16 bits, X32 bits y X64 bits Intel Architectures.
• Admite Delphi XE2 y más, y FPC 3 y más.
• Admite bibliotecas estáticas: i386-win32, x86_64-win64, i386-linux, x86_64-linux, arm-linux, aarch64-linux, x86_64-darwin, aarch64-darwin, brazo android, aarch64-android, loongarch64-linux.
• Admite bibliotecas dinámicas: i386-win32, x86_64-win64, x86_64-darwin, aarch64-darwin.

Instalación: Manual

Para instalar la vinculación de BeaenginedElphi, siga estos pasos:

1. Clon el repositorio:

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

2. Agregue el directorio de fuente BeaenginedElphi a la ruta de búsqueda del proyecto o IDE.

Instalación: Support de Delphinus

BeaenginedElphi ahora debe aparecer en Delphinus Package Manager.

Asegúrese de reiniciar Delphi después de instalar a través de Delphinus, de lo contrario, las unidades no se pueden encontrar en sus proyectos de prueba.

Uso

Se incluye el récord de envoltura TDisasm en BeaEngineDelphi.pas . El ejemplo a continuación está incompleto, pero puede darle una impresión de cómo usarlo.

 uses
  SysUtils, BeaEngineDelphi;

procedure DisAsmFunctionCode ( const AFunc: Pointer);
var
  aDisasm: TDisasm;
  nLen: LongWord;
  pData: PByte;
  B, S: string;
begin
  FillChar(aDisasm, SizeOf(TDISASM), 0 );
  aDisasm.EIP := UIntPtr(AFunc);
{ $IFDEF CPUX64 }
  aDisasm.Archi := ARCHI_X64;
{ $ELSE }
  aDisasm.Archi := ARCHI_X32;
{ $ENDIF }
  aDisasm.Options := NoTabulation + MasmSyntax;
  pData := PByte(AFunc);
  repeat
    nLen := Disasm(aDisasm);
    B := BufferToHex(pData, nLen);
    S := Format( ' %.8x %-16s %s ' , [aDisasm.EIP, B, aDisasm.CompleteInstr]);
    Writeln(S);
    aDisasm.EIP := aDisasm.EIP + nLen;
    Inc(pData, nLen);
  until (aDisasm.Instruction.Opcode = OPCODE_RET) or (nLen <= 0 );
end ;

begin
  try
    WriteLn( ' BeaEngine: ' , BeaEngineVersionInfo, ' , DisAsm ExpandFileNameCase ... ' );
    WriteLn( ' ' );
    DisAsmFunctionCode(@SysUtils.ExpandFileNameCase);
    WriteLn( ' ' );
    WriteLn( ' Done. ' );
  except
    on E: Exception do
      WriteLn( ' Error Decompiler: ' , E.Message);
  end ;
  ReadLn;
end .

Para obtener más ejemplos basados en API de bajo nivel, consulte los casos de prueba en el directorio de demostraciones.

Documentación

Para obtener información más detallada, consulte la documentación de Beaengine.

Que contribuye

¡Las contribuciones son bienvenidas! Bifurque este repositorio y envíe solicitudes de extracción con sus mejoras.

Licencia

Este proyecto tiene licencia bajo la Licencia Pública de Mozilla 2.0. Consulte el archivo de licencia para obtener más detalles.

Expresiones de gratitud

Un agradecimiento especial al equipo de desarrollo de Beaengine por crear y mantener el Beaengine.