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

CapstoneDelphi

Delphi のソースコード

Version 5.0.1

ダウンロード

Capstonedelphi

Capstonedelphiは、Capstone ResosemblerライブラリのDelphiと無料のPascal Bindingです。 Capstone 5をサポートし、途方もなく簡単に学ぶことができ、すぐにピックアップできるフレンドリーでシンプルなタイプセーフAPIを提供します。

Capstoneは、セキュリティコミュニティでのバイナリ分析と逆転のための究極の排出エンジンになるという目標を持つ分解フレームワークです。

特徴

Capstone 5サポート5複数のハードウェアアーキテクチャ：ARM、AARCH64、ALPHA、BPF、Ethereum VM、HP PA-RISC（HPPA）、M68K、M680X、MIPS、MOS65XX、PPC、RISC-V（RV32G/RV64G）、SH、SH、SPARC、TMS320CCRE、TMCREMSO、TMCCROSE、TMS320CCRO、STARC、STARC-V（RV32G/RV64G） x86（16、32、64）。
Delphi XE2以上、およびFPC 3以上をサポートします。
フレンドリーで、タイプに安全で、学習しやすいAPIを提供します。

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

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

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

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

Capstonedelphi SourceディレクトリをプロジェクトまたはIDEの検索パスに追加します。
システムにCapstone 5ライブラリをインストールしていることを確認してください。 Pypi、Anaconda、Archlinuxarmなどから、Precompiled Capstone 5.0.1バイナリライブラリを更新できます。

インストール：Delphinus-Support

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

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

使用法

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

 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 .