BeaEngineDelphiダウンロードBeaEngineDelphiソースコードのダウンロード

BeaEngineDelphi

Delphi のソースコード

1.0.0

ダウンロード

Beeenginedelphi

Beeenginedelphiは、ビーンジンのデルファイと無料のパスカルバインディングです。 Beaengineをサポートし、途方もなく簡単に学ぶことができ、すぐにピックアップするフレンドリーでシンプルなタイプセーフAPIを提供します。

Beaengineは、16ビット、32ビット、64ビットのインテルアーキテクチャからの命令をデコードするために設計されたCライブラリです。 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拡張機能。悪意のあるコードとより一般的に難読化されたコードを分析する場合、Beaengineは、分析された命令を正確に説明する複雑な構造を送り返します。

特徴

Beaengine 5、x16ビット、x32ビット、x64ビットのインテルアーキテクチャをサポートします。
Delphi XE2以上、およびFPC 3以上をサポートします。
静的ライブラリをサポート：I386-WIN32、X86_64-WIN64、I386-LINUX、X86_64-LINUX、ARM-LINUX、AARCH64-LINUX、X86_64-DARWIN、AARCH64-DARWIN、ARM-ANDROID、AARCH64-ANDROID
ダイナミックライブラリをサポート：i386-Win32、x86_64-Win64、x86_64-darwin、aarch64-darwin。

インストール：マニュアル

Beeenginedelphiバインディングをインストールするには、次の手順に従ってください。

リポジトリをクローンします：

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

Beeenginedelphi ソースディレクトリをプロジェクトまたはIDEの検索パスに追加します。

インストール：Delphinus-Support

Beenginedelphiは、Delphinus Package Managerにリストされるようになりました。

Delphinusを介してインストールしたらDelphiを再起動してください。そうしないと、ユニットはテストプロジェクトには見つかりません。

使用法

BeaEngineDelphi.pasのラッパーレコードTDisasmが含まれています。 Bellowは不完全ですが、それをどのように使用するかという印象を与えるかもしれません。

 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 .