BeaEngineDelphi
BeaEngineDelphi copied to clipboard
Delphi interface for the BeaEngine x86/x86-64 disassembler library
BeaEngineDelphi
BeaEngineDelphi is a Delphi and Free Pascal binding for the BeaEngine. It supports BeaEngine and provides a friendly and simple type-safe API that is ridiculously easy to learn and quick to pick up.
BeaEngine is a C library designed to decode instructions from 16 bits, 32 bits and 64 bits intel architectures. It includes standard instructions set and instructions set from FPU, MMX, SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, VMX, CLMUL, AES, MPX, AVX, AVX2, AVX512 (VEX & EVEX prefixes), CET, BMI1, BMI2, SGX, UINTR, KL, TDX and AMX extensions. If you want to analyze malicious codes and more generally obfuscated codes, BeaEngine sends back a complex structure that describes precisely the analyzed instructions.
Features
- Supports BeaEngine 5, x16 bits, x32 bits and x64 bits intel architectures.
- Supports Delphi XE2 and greater, and FPC 3 and greater.
- Provides a friendly, type-safe, and easy-to-learn API.
Installation
To install the BeaEngineDelphi binding, follow these steps:
-
Clone the repository:
git clone https://github.com/delphilite/BeaEngineDelphi.git
-
Add the BeaEngineDelphi\Source directory to the project or IDE's search path.
Usage
Included is the wrapper record TDisasm
in BeaEngineDelphi.pas
. The example bellow is incomplete, but it may give you an impression how to use it.
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 := 64;
{$ELSE}
aDisasm.Archi := 0;
{$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 = $C3) or (nLen <= 0);
end;
begin
try
WriteLn(Format('BeaEngine: %s, DisAsm ExpandFileNameCase ...', [BeaEngineVersionInfo]));
WriteLn('');
DisAsmFunctionCode(@SysUtils.ExpandFileNameCase);
WriteLn('');
WriteLn('Done.');
except
on E: Exception do
WriteLn(Format('Error Decompiler: %s', [E.Message]));
end;
ReadLn;
end.
For more examples based on low-level API, refer to the test cases under the demos directory.
Documentation
For more detailed information, refer to the BeaEngine documentation.
Contributing
Contributions are welcome! Please fork this repository and submit pull requests with your improvements.
License
This project is licensed under the Mozilla Public License 2.0. See the LICENSE file for details.
Acknowledgements
Special thanks to the BeaEngine development team for creating and maintaining the BeaEngine.