ดาวน์โหลด BeaEngineDelphi - ดาวน์โหลดซอร์สโค้ด BeaEngineDelphi

BeaEngineDelphi

ซอร์สโค้ดเดลฟี

1.0.0

ดาวน์โหลด

Beenginedelphi

Beenginedelphi เป็น Delphi และ Pascal ที่มีผลผูกพันฟรีสำหรับ BeaEngine รองรับ BeaEngine และให้ API ที่ปลอดภัยและเป็นมิตรที่ง่ายซึ่งง่ายต่อการเรียนรู้และรับได้อย่างรวดเร็ว

BeaEngine เป็นห้องสมุด C ที่ออกแบบมาเพื่อถอดรหัสคำแนะนำจาก 16 บิต, 32 บิตและสถาปัตยกรรม Intel 64 บิต มันมีชุดคำแนะนำมาตรฐานและคำแนะนำที่ตั้งค่าจาก FPU, MMX, SSE, SSE2, SSE3, SSSE3, SSE4.1, SSE4.2, VMX, CLMUL, AES, MPX, AVX, AVX2, AVX512 ส่วนขยาย หากคุณต้องการวิเคราะห์รหัสที่เป็นอันตรายและรหัสที่สับสนโดยทั่วไปมากขึ้น BeaEngine จะส่งโครงสร้างที่ซับซ้อนซึ่งอธิบายคำแนะนำที่วิเคราะห์ได้อย่างแม่นยำ

คุณสมบัติ

รองรับ beenEngine 5, x16 บิต, x32 บิตและ x64 บิตสถาปัตยกรรม Intel
รองรับ Delphi XE2 และยิ่งใหญ่กว่าและ FPC 3 และยิ่งใหญ่กว่า
รองรับ ห้องสมุดคงที่: i386-WIN32, x86_64-WIN64, i386-Linux, x86_64-Linux, arm-linux, Aarch64-Linux, x86_64-Darwin, Aarch64-Darwin
รองรับ ไลบรารีแบบไดนามิก: I386-WIN32, X86_64-WIN64, X86_64-DARWIN, AARCH64-DARWIN

การติดตั้ง: คู่มือ

ในการติดตั้งการเชื่อมโยง beenginedelphi ให้ทำตามขั้นตอนเหล่านี้:

โคลนที่เก็บ:

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

เพิ่มไดเรกทอรี BEEANGINEDELPHI Source ลงในโครงการหรือเส้นทางการค้นหาของ IDE

การติดตั้ง: Delphinus-Support

ตอนนี้ Beenginedelphi ควรอยู่ในรายการใน Delphinus Package Manager

ตรวจสอบให้แน่ใจว่าได้รีสตาร์ท Delphi หลังจากติดตั้งผ่าน Delphinus มิฉะนั้นหน่วยอาจไม่พบในโครงการทดสอบของคุณ

การใช้งาน

รวมอยู่ในบันทึก TDisasm ใน BeaEngineDelphi.pas ตัวอย่างตะโกนไม่สมบูรณ์ แต่อาจทำให้คุณประทับใจว่าจะใช้มันได้อย่างไร

 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 .