BeaEngineDelphi 다운로드 BeaEngineDelphi 소스 코드 다운로드

BeaEngineDelphi

델파이 소스 코드

1.0.0

다운로드

Beaenginedelphi

Beaenginedelphi는 Beaengine의 델파이 및 무료 파스칼 바인딩입니다. 그것은 Beaengine을 지원하고 우스꽝스럽고 배우기 쉽고 빠르게 픽업하는 친절하고 간단한 유형 안전 API를 제공합니다.

Beaengine은 16 비트, 32 비트 및 64 비트 인텔 아키텍처에서 지침을 해독하도록 설계된 C 라이브러리입니다. 여기에는 FPU, MMX, SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, VMX, CLMUL, AES, MPX, AVX, AVX2, AVX512 (VEX & EVEX PREFIXES), CET, CET, BMI1, BMI2, SGX, KL, KL, KL, KL, kl, kl, kl, kl, a ami2, sse4.2, sse4.2, sse4.2, sse4.2, sse4.2에서 설정된 표준 지침 세트 및 지침이 포함됩니다. 확장. 악의적 인 코드와보다 일반적으로 난독 화 된 코드를 분석하려면 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-andROD, AARCH64-android, LOONGARCH64-LIUX.
동적 라이브러리를 지원합니다 : i386-WIN32, X86_64-WIN64, X86_64-DARWIN, AARCH64-DARWIN.

설치 : 매뉴얼

Beaenginedelphi 바인딩을 설치하려면 다음을 수행하십시오.

저장소 복제 :

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

Beaenginedelphi 소스 디렉토리를 프로젝트 또는 IDE의 검색 경로에 추가하십시오.

설치 : Delphinus-Support

Beaenginedelphi는 이제 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 .