Unit zur VM detection + Testprogramm

**Zacherl**

Hey,

zusammen mit blackdrake habe ich eine Unit entwickelt die sehr zuverlässig erkennen kann, ob das eigene Programm auf einer virtuellen Maschiene ausgeführt wird. Dabei sind sogar Fingerprints möglich, die eine Identifizierung der verschiedenen Emulations Software zulässt.

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TVMFingerprint = (fpUnknown, fpVMWare, fpVirtualPC, fpVirtualBox, fpNative,

    fpWINE, fpParallelsWorkstation, fpQEMU);

type

  TxDTEntry = record

    GDTBase: DWord;

    IDTBase: DWord;

    LDTRBase: DWord;

    GDTLimit: Word;

    IDTLimit: Word;

  end;

type

  TxDTArray = array of TxDTEntry;

  TFingerprintArray = array of TVMFingerprint;

// Prüft auf eine VM, wobei angegeben werden kann, ob WinE als VM gehandhabt werden soll

function IsVirtualMachine(const DetectWINE: Boolean = true): Boolean;

// Gibt einen Fingerprint anhand eines TxDTEntrys zurück

function GetVMFingerprint(xDTEntry: TxDTEntry): TVMFingerPrint; overload;

// Gibt einen Fingerprint für eine CPU zurück

function GetVMFingerprint(CPU: Cardinal): TVMFingerPrint; overload;

// Konvertiert einen Fingerprint in einen String

function VMFingerprintToStr(FP: TVMFingerprint): String;

// Gibt einen TxDTEntry für eine CPU zurück

function GetxDTEntry(CPU: Cardinal): TxDTEntry;

// Gibt ein Array of TxDTEntry für alle CPUs zurück

function GetxDTArray(var Output: TxDTArray): Integer;

// Gibt ein Array of TVMFingerprint für alle CPUs zurück

function GetFingerprintArray(var Output: TFingerprintArray): Integer;

Das ganze Funktioniert über verschiedene Tabellen, die für jede CPU existieren. Die GDT, die IDT und die LDT. Anhand deren Base Adressen und ihrer Größe (Limits) werden die VMs ermittelt.

Unterstützte Betriebssysteme:
* Win95 .. WinME
* WinNT .. WinVista

Unterstützt werden momentan:
* VirtualPC, VMWare, VirtualBox, ParallelsWorkstation und WinE.
* QEMU (Testphase)

Geplante Features:
* Sandbox detection

Download:

www.viathinksoft.de/download.php?id=125

Im Archiv findet sich die Unit, der Source für das Testprogramm und eine Excel Tabelle mit unseren Messergebnissen. Wir würden uns über Feedback und weitere Messergebnisse freuen!

Gruß Zacherl

Unit zur VM detection + Testprogramm

Unit zur VM detection + Testprogramm

Forumregeln